<% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> <% Dim mostrar,cant_paginas,pagina_actual,registro_mostrado,I,detalle mostrar = 6 If Request.QueryString("page") = "" Then pagina_actual = 0 Else pagina_actual = CInt(Request.QueryString("page")) End If dim oConn,RS,sql,anuncio set oConn = server.createobject("ADODB.Connection") oConn.open "Provider=Microsoft.Jet.Oledb.4.0;Data source=" & server.mappath("\db\data.mdb") set RS = server.createobject("ADODB.Recordset") sql = "Select id,nombre,detalle,logo,telefono01,fax01,provincia,correo,status From hoteles where status='A' order by nombre" RS.PageSize = mostrar RS.CacheSize = mostrar RS.open sql,oConn,3,3 cant_paginas = RS.PageCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 If cant_paginas = 0 Then Response.redirect("error.html") Else RS.AbsolutePage = pagina_actual registro_mostrado = 0 %>

LISTA COMPLETA DE HOTELES

<% If pagina_actual > 1 Then %> <%End If%> <%If pagina_actual < cant_paginas Then %> <%End If%>

<% Do While registro_mostrado < mostrar And Not RS.EOF%> <%detalle=rs.fields(trim("detalle"))%> <%end if%> <%rs.movenext ' Sumamos 1 a los mostrados registro_mostrado = registro_mostrado + 1 loop End If RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %>


alt=<%=rs.fields("nombre")%> border="0" id="hotel">	<%=rs.fields(trim("nombre"))%> Tel.:<%=rs.fields(trim("telefono01"))%> - Fax:<%=rs.fields(trim("Fax01"))%> Provincia:<%=rs.fields(trim("provincia"))%> <% if detalle <> "" then %> " class="navlink">más...

Búsqueda por Nombre

Si conoce el nombre del hotel que busca, puede introducirlo directamente o, si lo prefiere, puede realizar su búsqueda al seleccionar una provincia.

Búsqueda
por Provincia o Tipo

Provincia
Por tipo