Página não exibe consulta mas pagina.

[Paulo Cézar Júnior 0]

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 = 20pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End Ifuser = Session("member")set Conexao = Server.CreateObject ("ADODB.Connection")Conexao.Open Application("connString")Set rs = Server.Createobject("ADODB.RECORDSET")set rs.ActiveConnection = Conexaors.CursorType = 3rs.PageSize = registrossql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"rs.Open sqlIf rs.EOF ThenResponse.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><% 'Elsers.AbsolutePage = paginaWhile Not rs.EOF AND x < rs.PageSizex = x + 1 %><% rs.MoveNextWendanterior = pagina - 1proxima = pagina + 1ultima = rs.PageCountprimeira = 1ultm2 = FormatNumber(rs.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "<b>[ "&pagina&" ]</b> "If Not rs.EOF ThenResponse.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "End IfIf Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "End IfIf Not rs.EOF ThenResponse.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> "End Ifrs.CloseSet 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>

[Paulo Cézar Júnior 0]

Lucas como eu posso resolver... eu tenho que tirar essa função rs.Close para fechar só uma vez o rs. você disse também que tem coisa a mais no código, o que é essa coisa a mais... Estou perguntando de novo porque entendo muito pouco de ASP, e espero aprender mais com vocês do fórum... Se puder me orientar me explicando como resolver e que áreas devo modificar agradeço.