<%
set rs=server.createobject("adodb.recordset")
sql="select * from city order by city_id"
rs.open sql,conn,1,1
do while not rs.eof
%>
<% Set rscity=Server.CreateObject("adodb.recordset")
sqlcity="select hotelid,hotelname,fifatotal from hotel where commend3=1 and city="&rs("city_id")
rscity.open Sqlcity,Conn,1,1
If Not rscity.eof Then %>
<%=rs("cityname")%>:
<% For i=1 To 12
%>