<% Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("hoteles.html")) Sql1 = "SELECT * FROM ciudad_hotel where tipo=1 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql2 = "SELECT * FROM ciudad_hotel where tipo=2 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql3 = "SELECT * FROM ciudad_hotel where tipo=3 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql4 = "SELECT * FROM ciudad_hotel where tipo=4 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql5 = "SELECT * FROM ciudad_hotel where tipo=5 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql6 = "SELECT * FROM ciudad_hotel where tipo=6 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql7 = "SELECT * FROM ciudad_hotel where tipo=7 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" Sql8 = "SELECT * FROM ciudad_hotel where tipo=8 and cod_ciudad=" + Request.QueryString("ciudad") + " order by nombre" session("ciudad") = Request.QueryString("ciudad") Sql9 = "SELECT * FROM ciudades where codigo=" + session("ciudad") + "" Set rsciudad = Server.CreateObject("ADODB.Recordset") rsciudad.Open sql9, objConnection Set rshoteles = Server.CreateObject("ADODB.Recordset") rshoteles.Open sql1, objConnection Set rsapart = Server.CreateObject("ADODB.Recordset") rsapart.Open sql2, objConnection Set rscabanas = Server.CreateObject("ADODB.Recordset") rscabanas.Open sql3, objConnection Set rscamping = Server.CreateObject("ADODB.Recordset") rscamping.Open sql4, objConnection Set rshostal = Server.CreateObject("ADODB.Recordset") rshostal.Open sql5, objConnection Set rshosteria = Server.CreateObject("ADODB.Recordset") rshosteria.Open sql6, objConnection Set rsmotel = Server.CreateObject("ADODB.Recordset") rsmotel.Open sql7, objConnection Set rsresidencial = Server.CreateObject("ADODB.Recordset") rsresidencial.Open sql8, objConnection %>

En esta p�gina se ofrecen todas las posibilidades de arriendo en la ciudad elegida

 

Hospedajes en <%=Server.HTMLEncode(rSciudad.Fields("nombre").Value)%>

HOTELES

APART HOTEL

CABA�AS

CAMPING

HOSTAL

HOSTERIA

MOTEL

RESIDENCIALES
<% On Error Resume Next rshoteles.MoveFirst Do while not rshoteles.EOF %> <% rshoteles.MoveNext loop %> <% On Error Resume Next rsapart.MoveFirst Do while not rsapart.EOF %> <% rsapart.MoveNext loop %> <% On Error Resume Next rscabanas.MoveFirst Do while not rscabanas.EOF %> <% rscabanas.MoveNext loop %> <% On Error Resume Next rscamping.MoveFirst Do while not rscamping.EOF %> <% rscamping.MoveNext loop %> <% On Error Resume Next rshostal.MoveFirst Do while not rshostal.EOF %> <% rshostal.MoveNext loop %> <% On Error Resume Next rshosteria.MoveFirst Do while not rshosteria.EOF %> <% rshosteria.MoveNext loop %> <% On Error Resume Next rsmotel.MoveFirst Do while not rsmotel.EOF %> <% rsmotel.MoveNext loop %> <% On Error Resume Next rsresidencial.MoveFirst Do while not rsresidencial.EOF %> <% rsresidencial.MoveNext loop %>

HOTELES
<%=Server.HTMLEncode(rshoteles.Fields("nombre").Value)%> <%=Server.HTMLEncode(rshoteles.Fields("direccion").Value)%>

">RESERVAS

APART HOTEL
<%=Server.HTMLEncode(rsapart.Fields("nombre").Value)%> <%=Server.HTMLEncode(rsapart.Fields("direccion").Value)%>

">RESERVAS

CABA�AS
<%=Server.HTMLEncode(rscabanas.Fields("nombre").Value)%> <%=Server.HTMLEncode(rscabanas.Fields("direccion").Value)%>

">RESERVAS

CAMPING
<%=Server.HTMLEncode(rscamping.Fields("nombre").Value)%> <%=Server.HTMLEncode(rscamping.Fields("direccion").Value)%>

">RESERVAS

HOSTAL
<%=Server.HTMLEncode(rshostal.Fields("nombre").Value)%> <%=Server.HTMLEncode(rshostal.Fields("direccion").Value)%>

">RESERVAS

HOSTERIA
<%=Server.HTMLEncode(rshosteria.Fields("nombre").Value)%> <%=Server.HTMLEncode(rshosteria.Fields("direccion").Value)%>

">RESERVAS

MOTEL
<%=Server.HTMLEncode(rsmotel.Fields("nombre").Value)%> <%=Server.HTMLEncode(rsmotel.Fields("direccion").Value)%>

">RESERVAS

RESIDENCIALES
<%=Server.HTMLEncode(rsresidencial.Fields("nombre").Value)%> <%=Server.HTMLEncode(rsresidencial.Fields("direccion").Value)%>

">RESERVAS
<% rshoteles.Close objConnection.Close Set rshoteles = Nothing Set objConnection = Nothing rsapart.Close objConnection.Close Set rapart = Nothing Set objConnection = Nothing rscabanas.Close objConnection.Close Set rscabanas = Nothing Set objConnection = Nothing rscamping.Close objConnection.Close Set rscamping = Nothing Set objConnection = Nothing rshostal.Close objConnection.Close Set rshostal = Nothing Set objConnection = Nothing rshosteria.Close objConnection.Close Set rshosteria = Nothing Set objConnection = Nothing rsmotel.Close objConnection.Close Set rsmotel = Nothing Set objConnection = Nothing rsresidencial.Close objConnection.Close Set rsresidencial = Nothing Set objConnection = Nothing rsciudad.Close objconnection.Close Set rsciudad = Nothing Set objConnection = Nothing %>