<%dim oConn,RS,sql,anuncio,cadena Dim mostrar,cant_paginas,pagina_actual,registro_mostrado,I Dim autos autos = Request.QueryString("autos") If Request.QueryString("page") = "" Then pagina_actual = 0 Else pagina_actual = CInt(Request.QueryString("page")) End If 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,telefono From autos order by nombre" mostrar = 10 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.shtml") Else RS.AbsolutePage = pagina_actual registro_mostrado = 0 %>
Mola Panameña
<% If pagina_actual > 1 Then %> <%End If%> <%If pagina_actual < cant_paginas Then %> <%End If%>
anteriorInicio
siguientesiguiente
<% Do While registro_mostrado < mostrar And Not RS.EOF%> <%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 %>
<%=rs.fields(trim("nombre"))%>
Tel.: [507] <%=rs.fields(trim("telefono"))%>

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