Paginação....

[mkboy 1]

Estou tentando execultar essa busca com paginação, e da dando o seguinte erro:

ADODB.Recordset error '800a0bb9' O aplicativo está usando argumentos que são do tipo incorreto, estão fora do intervalo aceitável, ou estão em conflito entre si. /pesca/boletim/processa_01.asp, line 33

<%dim objRSdim strrscor_titulo = "#cccccc"%><%'Recupera o que foi digitadoquery = Request.querystring("query")'Verifica se o campo não está vazioIf query = "" thenresponse.redirect "busca.asp"End if'Conecta ao banco.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("fish.mdb")conn.open strconnSet objRS = Server.CreateObject("ADODB.Recordset")nomepagina = "processa_01.asp"  registros = 4objRS.Open SQl,Conexao,3,3If objRS.Eof thenResponse.Write("Nenhum registro encontrado.")elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>objRS.PageCount thenpagina = objRS.PageCountelse pagina=Request.QueryString("pagina")end ifend ifobjRS.AbsolutePage = paginacontador = 0While contador<registros and not objRS.eofresponse.Write(objRS("nome")&"-"&objRS("email")&"<p>")objRS.MoveNextcontador = contador + 1If objRS.eof thenResponse.Write("")end ifWendfor i=1 to objRS.PageCount  cor="ffffff"  response.write "<table border=0 cellpaging="&"0"&" cellspaging="&"0"&" width="&"100%"&">"  response.write "<tr bgcolor="&cor_titulo&"><td>Nome:</tr><td>E-mail:</tr><tr>"  Do While Not objRS.EOF    if cor="ffffff" then    cor="efefef"else  cor="ffffff"  end if   response.write  "<tr bgcolor="&cor&"><td>"&objRS("nome")&"</td><td><a href=""mailto:" & objRs("email") & """>"& objRs("email") &"</a></td></tr>"    objRS.MoveNext  Loop  response.write "</table>"Next%></td></tr></table></td></tr></table></center></body></html>

:wacko:

[ska_ska 0]

so da uma olhada nessa linha... você se acha alguma coisa estranha...

 

objRS.Open SQl,Conexao,3,3

pelo menos naum vi você especificando as variavel SQL e CONEXAO em lugar nenhum nesse codigo...

 

:blink: