<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.Expires = 0%> <% Dim varSql Dim rsMuralRecados Dim i 'Seleciona todos os registros ordenando pelo ID varSql = "SELECT * " varSql = varSql & "FROM MuralRecados " varSql = varSql & "ORDER BY IdRecado DESC " 'Seta a variável e define as propriedas Set rsMuralRecados = Server.CreateObject("ADODB.Recordset") rsMuralRecados.CursorType = 0 rsMuralRecados.CursorLocation = 3 rsMuralRecados.LockType = 3 rsMuralRecados.PageSize = 7 rsMuralRecados.CacheSize = 7 rsMuralRecados.Open varSql, objConn 'Verifica qual página deve ser exibida If Request.QueryString("Pagina") <> "" Then rsMuralRecados.AbsolutePage = Request.QueryString("Pagina") Else If Not rsMuralRecados.EOF Then rsMuralRecados.AbsolutePage = 1 End If End If %> Expedição Terra de Gigantes

<%For i = 1 to rsMuralRecados.PagesiZe%> <%If rsMuralRecados.EOF = False Then%> <%rsMuralRecados.MoveNext%> <%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%> <%End If%>
Data/Hora Envio: <%=rsMuralRecados.Fields("DataInclusao") & " - " & rsMuralRecados.Fields("HoraInclusao")%>
Nome: <%=rsMuralRecados.Fields("De")%>
Mensagem:
<%=rsMuralRecados.Fields("Mensagem")%>
<%End If%> <%Next%>
<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%> );" disabled="disabled" /> <%Else%> );" /> <%End If%> <%If rsMuralRecados.EOF Then%> );" disabled="disabled" /> <%Else%> <%If Request.QueryString("Pagina") = "" Then%> );" /> <%Else%> );" /> <%End If%> <%End If%>