<% id=request("c") if id = "" then id=1 'Se crea RecordSet Finanzas Set RS = Server.CreateObject("ADODB.RecordSet") 'Se crea instancia del objeto conexion Set conexion = Server.CreateObject("ADODB.Connection") 'Se Abre Conexion con la cadena del Global.asa conexion.Open Application("info_ConnectionString") cadSQL= "SELECT * FROM ad_ciudades where id=" & id rs.open CadSQL,conexion,3 ciudad=rs("nombre") rs.close dim hay(),disponibles() redim hay(5),disponibles(5) cadSQL= "SELECT * FROM disponibles where ciudad=" & id & " order by existen desc" rs.open CadSQL,conexion,3 %>

<%=Ciudad%>

<% x=1 i=1 while not rs.eof if not rs.EOF Then hay(i) = rs("existen") disponibles(i) = rs("disponible") Else hay(i) = 0 disponibles(i) = 0 End if if hay(i) > 0 or rs("categoria")=4 then if (x mod 2) = 1 then %> <% else %> <% End if if rs("categoria")=4 then %> <% else %> <% end if if (x mod 2) > 0 then x=x+1 Else x=1 %>
<% End if end if rs.movenext WEND %>