<% orden = request.querystring("orden") tipo = request.querystring("tipo") if orden = "" then orden = "Fecha" end if if tipo = "" then tipo = "desc" end if Dim mostrar Dim cant_paginas Dim pagina_actual Dim registro_mostrado Dim I mostrar= 15 'indicar la cantidad de mensajes a mostrar por página. If Request.QueryString("page") = "" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If strsql="select * from mensajes order by "& orden & " "&tipo Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("libvis.mdb") Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = mostrar RS.CacheSize = mostrar RS.Open strSQL, oConn,3,1 cant_paginas = RS.PageCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 %>

Libro de Visitas de Caja Ludica

Ordenar por


FIRMAR LIBRO

<%If cant_paginas = 0 Then%>

El libro de visitas está vacío

<% Else RS.AbsolutePage = pagina_actual registro_mostrado = 0 Do While registro_mostrado < mostrar And Not RS.EOF url = RS("url") %>

De: "><%=rs("Nombre")%> | País: <%=rs("Pais")%> | Sitio web: <%=url%>

Enviado el: <%=rs("Fecha")%>

Asunto: <%=rs("Asunto")%>

<%=rs("Mensaje")%>

')" style="width:75">

<% registro_mostrado = registro_mostrado + 1 RS.MoveNext Loop End If %>

<%If pagina_actual > 1 Then %> &tipo=<%=request.querystring("tipo")%>"><< Anterior ] <% End If For I = 1 To cant_paginas If I = pagina_actual Then %> <%= I %> <% Else %> &tipo=<%=request.querystring("tipo")%>"><%= I %> <% End If Next 'I If pagina_actual < cant_paginas Then %> &tipo=<%=request.querystring("tipo")%>"> [ siguiente >> <% End If 'Fin... %>

®Caja Ludica