Paginação

[3306Port 0]

Olá pessoal, peguei o Tuto de pagainação do CrazyBaby, mas ele traz todos os registros da tabela, o problema é que na pesquisa eu uso um List/Menu que traz as datas para serem pesquisadas. Seria o caso de usar uma outra SQL parecida com essa:"SELECT Distinct(data) FROM consultas ORDER BY data DESC", Conn -- Essa SQL é a que taz as datas na pagina de pesquisa

Pagina que mostra o resultado da pesquisa Resposta.asp

ASP

[*]<% Set Conn = Server.CreateObject("ADODB.CONNECTION")

 

[*]Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; BQ=D:\DNA\madipe.mdb"

 

[*]Set RS = Server.CreateObject("ADODB.RECORDSET")

 

[*]nomepagina = "Resposta.asp" 

 

[*]registros = 1

 

[*]RS.CacheSize = registros

 

[*]RS.PageSize = registros

 

[*]SQL = "Select * from consultas"

 

[*]RS.Open SQl,Conn,3,3

 

[*]If RS.Eof then

 

[*]Response.Write("<h2>NEHUM REGISTRO ENCONTRADO.</h2>")

 

[*]else

 

[*]if Request.QueryString("pagina")="" then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))<1 then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))>RS.PageCount then

 

[*]pagina = RS.PageCount

 

[*]else pagina=Request.QueryString("pagina")

 

[*]end if

 

[*]end if

 

[*]RS.AbsolutePage = pagina

 

[*]contador = 0

 

[*]While contador<registros and not RS.eof

 

[*]response.Write(RS("empresa")&"<br><br>"&RS("nome")&"<br><br>"&RS("depto")&"<br><br>"&RS("telefone")&"<br><br>"&RS("email")&"<br><br>"&RS("produto")&"<br><br>"&RS("quantidade")&"<br><br>"&RS("estado")&"<br><br>"&RS("cidade")&"<br><br>"&RS("entrega")&"<br><br>")

 

[*]RS.MoveNext

 

[*]contador = contador + 1

 

[*]If RS.eof then

 

[*]Response.Write("")

 

[*]end if

 

[*]Wend

 

[*]for i=1 to RS.PageCount

 

[*]response.Write("<a href="&Resposta&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")

 

[*]Next

 

[*]%>

 

MUITO Obrigadooo

[Magnoweb 0]

Pelo o q pude notar você não está selecionando os registro que quer mostrar

 

SQL = "Select * from consultas"

 

RS.Open SQl,Conn,3,3

por isso que está vindo todos os registros, experimente por um Where na sua consulta.

 

flw B)