<% response.buffer=true Server.ScriptTimeout=300 %> ::: ABC NATAL :::

<% Call abre1 Dim cn %>
  Deixe sua mensagem ! Clique aqui !
<% Set rs = server.createobject("ADODB.RecordSet") rs.activeconnection = cn rs.cursortype = 3 rs.cursorlocation = 3 SQL = "Select CodMensagem,Nome,Status,Data, email, mensagem from tbMensagem inner join tbUsuario on tbMensagem.CodUsuario = tbUsuario.CodUsuario where status = 2 order by CodMensagem DESC" rs.source = sql rs.cachesize = 15 rs.pagesize = 15 rs.open if not rs.eof and not rs.bof then if request("pg") <> "" then pagina = request("pg") else pagina = 1 end if if rs.recordcount > 0 then rs.absolutepage = pagina %> <%for temp = 1 to 15%> <%rs.movenext if rs.eof then exit for end if next end if else %> <% end if if pagina = "" then pagina = 0 end if %>
 
Mensagem dos Torcedores
 
Nome: <%=rs.fields("nome")%>
Data: <%=rs.fields("Data")%>
E-mail: <%=rs.fields("email")%>
<%=rs.fields("mensagem")%>
 
Não foram encontrados Mensagens Cadastrados

Página <%=pagina%> de <%=rs.pagecount%>

  <%if rs.pagecount > 1 then%>
<%if cint(pagina) > cint(1) then%> Página Anterior <%else%> <%end if%> <%if cint(pagina) < cint(rs.pagecount) then%> Página Posterior <%else%> <%end if%>
<%end if%>