<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = true Response.CacheControl = "no-cache" %>
<% dim conn 'db connection dim rs 'recordset dim sql 'sql query Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show dim iRecordsShown dim i 'counter iPageSize = 5 'you can edit how many messages per page if request("page")="" then iPageCurrent = 1 else iPageCurrent = cint(request.querystring("page")) end if Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn'open connection sql = "select * from recados where autorizar = true order by codigo desc" Rs.Open sql, conn,adOpenStatic, adLockReadOnly, adCmdText RS.PageSize = iPageSize RS.CacheSize = iPageSize iPageCount = RS.PageCount iRecordsShown = 0 %> Recados

Clique aqui para deixar sua mensagem!
Total de mensagens: <%=rs.recordcount%>

<% if Rs.eof AND Rs.bof =True Then response.write "• Nenhuma mensagem postada!" else RS.AbsolutePage = iPageCurrent Do While iRecordsShown < iPageSize And Not RS.EOF %>

<% if rs("site")<>"" then %> <% end if %>
De:  
<%=rs("nome")%>
Data:  
<%=rs("data")%>
Cidade:  
<%=rs("cidade")%>
Assunto:  
<%=rs("assunto")%>
Mensagem:  
<%=rs("mensagem")%>

<% iRecordsShown = iRecordsShown+1 rs.movenext loop %>
<% if ipagecount > "1" then for i=1 to ipagecount response.write "" & i & " " next end if %>
Página <%= iPageCurrent %> de <%= iPageCount %> <% end if rs.close set rs= nothing conn.close set conn = nothing %>