<%@Language="VBScript"%> <%Option Explicit%> <%Response.Expires = 0%> <% 'Fabio Alves 'fabiocd.pe@bol.com.br 'Mural de recados '26/03/2005 %> <% Dim objConn Dim varConn Dim varSql Dim rsMuralRecados Dim i 'Cria a conexão com a base de dados Set objConn = Server.CreateObject("ADODB.Connection") varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" objConn.Open varConn '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 %>

 

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

 

<% rsMuralRecados.Close Set rsMuralRecados = Nothing objConn.Close Set objConn = Nothing %>