Não Exibe Consulta Mas Pagina.

[ibreak]

Oi pessoal, beleza... tive muitas dificuldades para conseguir paginar esta página, e quando deu certo a paginação não exibe as informações que estão salvas no DB, como o IP, data entre outras informando em que horário anterior o usuário acessou o sistema. É uma página do sistema de login que motra o histórico de acesso do usuário a página.

Atualmente a página não está dando erro álgum... mas também não exibe as informações salvas no DB, histórico de acesso. A única info que é exibida é este:

Este é seu primeiro acesso ao sistema.

Você ainda não tem histórico, faça o logout e logue-se novamente.

Logout! [ 1 ] [ 2 ] [ 3 ] Última Página »

Pagina sem resultado álgum...

porque acontece isso...

Veja abaixo o código da pagina que não está exebindo as info acima. Abaixo também publiquei o código da página que funciona perfeitamente mas sem paginação para que possam comparar e me ajudar a resolver isso...

desde já agradeço qualquer ajuda.

Código da página com paginação.

<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->

<%
registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

user = Session("member")

set Conexao = Server.CreateObject ("ADODB.Connection")
Conexao.Open Application("connString")

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "Nenhum registro encontrado"
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
      rs.Close
      rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
      online = rs.RecordCount
      rs.Close    
      set rs = nothing
      Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
      Response.Write "<tr bgcolor=#333366>"
      Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
      Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
      Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
      Response.Write "<td><font class=colltitle>IP:</a></td>"
      Response.Write "</tr>" & vbcrlf
          
      i = 1
      while not rs.EOF
          if i mod 2 then
              Response.Write "<tr class=defaultsmall>"
          else
              Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
          end if
          Response.Write "<td>" & rs("SID") & "</td>"
          Response.Write "<td>" & rs("Login_Time") & "</td>"
          if rs("Logout_Time") <> "" then
              Response.Write "<td>" & rs("Logout_Time") & "</td>"
          else
              Response.Write "<td>N/A</td>"
          end if
          Response.Write "<td>" & rs("user_ip") & "</td>"
          Response.Write "</tr>" & vbcrlf
          i = i + 1
          rs.MoveNext
      wend
    rs.Close
      set rs = nothing

      Response.Write "</table>"
      
      Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"                
  else
      Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
  end if
%>
<a href='logout.asp' class=errmsg>Logout!</a>
<% 'Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
<% rs.MoveNext
Wend

anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
'End If %>

Código original (funcionando) sem paginação

<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->

<center>
  <%
	user = Session("member") 
	set rs_log = server.CreateObject ("ADODB.Recordset")
	query = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
	rs_log.Open query, Application("connString"), 3
	if not rs_log.eof then 
  set rs = server.CreateObject ("ADODB.Recordset")
  query = "SELECT * FROM Members WHERE id=" & user
  rs.Open query, Application("connString"), 3, 3
  Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
  rs.Close
  rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
  online = rs.RecordCount 
  rs.Close  
  set rs = nothing
  Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
  Response.Write "<tr bgcolor=#333366>"
  Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
  Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
  Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
  Response.Write "<td><font class=colltitle>IP:</a></td>"
  Response.Write "</tr>" & vbcrlf
  	
  i = 1
  while not rs_Log.EOF 
  	if i mod 2 then 
    Response.Write "<tr class=defaultsmall>"
  	else
    Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
  	end if
  	Response.Write "<td>" & rs_Log("SID") & "</td>"
  	Response.Write "<td>" & rs_Log("Login_Time") & "</td>"
  	if rs_Log("Logout_Time") <> "" then 
    Response.Write "<td>" & rs_Log("Logout_Time") & "</td>"
  	else
    Response.Write "<td>N/A</td>"
  	end if
  	Response.Write "<td>" & rs_Log("user_ip") & "</td>"
  	Response.Write "</tr>" & vbcrlf
  	i = i + 1
  	rs_Log.MoveNext 
  wend
  Response.Write "</table>"
  
  Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"    
	else
  Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
	end if

	rs_Log.Close 
	set rs_Log = nothing

%>
  <a href='logout.asp' class=errmsg>Logout!</a> 
</center>

[bareta]

verifique se ao mudar de pagina as informações do usuario são mantidas de um responsel.write na sql e veja