<%
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
%>