<%
'################## Comienzo paginación #############
Server.ScriptTimeOut=180
'################################################
'# Asigna el tamaño de largo de la página #
'################################################
tamanopagina=10
paginaabsoluta=request.querystring("paginaabsoluta")
if paginaabsoluta="" then
paginaabsoluta=1
end if
'################## FIN ///paginación/// #############
'############################################################################################
'# Abrir base de datos y anexar el nuevo usuario
'# agregar la fecha de alta y la fecha de la última visita y el contador de entradas impresas
'############################################################################################
ruta ="datos/hoteles.mdb"
dbfile=Server.MapPath(ruta) '????????????????????????????????????????
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&dbfile
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
' if request.querystring("buscarx")="tcomienza" then
' rs.open "SELECT * from terminos where Termino Like'" & buscar& "%' Order by Termino",Conn
' else
' if request.querystring("buscarx")="tcontiene" then
' rs.open "SELECT * from terminos where Termino Like'%" & buscar& "%' Order by Termino",Conn
' Else
' if request.querystring("buscarx")="dcontiene" then
' rs.open "SELECT * from terminos where Descripcion Like'%" & buscar & "%' Order by Termino",Conn
' Else
rs.open "SELECT * from hoteles order by Razon_Hotel",Conn
' End If
' End If
' End If
If rs.eof then
%>
No
hay datos que coincidan con su petición
Formule
una nueva búsqueda
<%
Else
%>
<%
'################## Comienzo paginación #############
'################## Comienzo paginación #############
if tamanopagina <> "all" then
'######################################################
'# Asigna los valores guardados en cint() a las rs #
'######################################################
rs.pagesize= cint(tamanopagina)
rs.absolutepage=cint(paginaabsoluta)
contador=1
'################## FIN ///paginación/// #############
'### indica que imprima en pantalla resultados del RS mientras no sea Eof el Rs y el ###
'### contador que se inicializo arriba sea <=cint(tamanopagina)"cantidad de reg*pag ###
do while not rs.eof and contador <= cint(tamanopagina)
'################## FIN ///paginación/// #############
'Do while not rs.Eof
%>
.jpg" width="100" height="100">
<%= rs("Razon_Hotel") %>
<%= rs("Slogan_Hotel") %>
Horarios:
Direccion:<%= rs("Direccion_Hotel") %>
<% if rs("Ciudad_Hotel")<> "" then
response.write " " & rs("Ciudad_Hotel")
elseif rs("Provincia_Hotel") <> "" then
response.write " " & rs("Provincia_Hotel")
end if %>
Telefono: <%= rs("Telefono_Hotel") %> E-Mail: <%= rs("Email_Hotel") %>
<% if rs("Mapa_Hotel") <> "Verdadero" then %>
<% else %>
','Ubicación','width=400,height=400')">
<% end if %>
<% if rs("Descuentos_Hotel") <> "Verdadero" then %>
<% else %>
<% end if %>
<%
rs.MoveNext
'######################### COMIENZA LA PAGINACIÓN ############################
'### aca se termino de imprimir los registros ya sea * Eof o se llego a (tamanopagina) ###
'### incrementa el contador "de paginas" en 1 y hace el loop ###
'End If 'If del "Not eof"
contador=contador+1
loop
'### imprime el cartel "pulsa en la pag que deseas ir" ###
%>
Pulse
en la página a la que deseas ir
<%
'### se inicializa a (j) en 0 ###
j=0
'### si pagina absoluta no es 1 entonces le asigna a (atras)=paginaabsoluta - 1 ###
'### asigna a href el valor "<" si esta en pag 2 en adelante para ir hacia atras ###
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write "
<% else %>
<% else %>
