<%
Dim gBns_phone,BnsTopCount
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select top 10 Bns_id,Bns_image,Bns_name,Bns_phone,Bns_address,Bns_bclass From Bns Where "& ChannelClass("ss","Bns_sclass") &" Bns_image<>'/images/NoImage_Bns.gif' and Bns_check=1 and Bns_effective>getdate() and Bns_city='"& CityName &"' Order By Bns_star Desc",conn,1,1
Set gBns_id=rs("Bns_id")
Set gBns_image=rs("Bns_image")
Set gBns_name=rs("Bns_name")
Set gBns_phone=rs("Bns_phone")
Set gBns_address=rs("Bns_address")
BnsTopCount=1
While Not rs.Eof
Response.Write "
" & Chr(10)
BnsTopCount=BnsTopCount+1
rs.MoveNext
Wend
rs.Close
Set rs=Nothing
%>
