Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mkboy

erro

Por , em ASP Clássico

Recommended Posts

mkboy    1

mkboy
Postado

Meu form de busca é o query estou enviando por GET, e ao executar dar erro.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

Veja o codigo:

<%OPTION EXPLICITDIM ConnDIM RSDIM MyQueryDim PaginaDIM ConsultaDIM CorDIM CorTituloDIM iConsulta = Request.QueryString("query")IF Consulta = "" THEN Response.Redirect "busca.asp"SET Conn = Server.CreateObject("ADODB.Connection")SET RS = Server.CreateObject("ADODB.RecordSet")Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fish.mdb")MyQuery = "SELECT * FROM bo WHERE nome LIKE '%" & Consulta & "%' order by data"RS.Open MyQuery, ConnIF RS.BOF AND RS.EOF THEN    Response.Write "NENHUM REGISTRO ENCONTRADO"ELSE    RS.PageSize = 10    Pagina = cInt(Request.QueryString("pag"))    IF Pagina = 0 THEN Pagina = 1                IF Pagina > RS.PageCount THEN Pagina = RS.Pagecount    RS.AbsolutePage = Pagina Cor = "#FFFFFF" CorTitulo = "#CCCCCC"  %> <HTML> <head> <title>Resultado da pesquisa.</title> <link rel=stylesheet type="text/css" href="estilos.css"> </head> <body> <table bgcolor="#000033" border="0" width="80%" cellspacing="0" cellpaging="0"> <tr><td> <table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"> <tr><td><font class="padrao"><b>Registros encontrados:</b></font></td></tr> </table> <br> <table bgcolor="#000033" border="0" width="80%" cellspacing="0" cellpaging="0"> <tr><td> <table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"> <tr><td> <table border="0" cellpaging="0" cellspaging="0" width="100%"> <tr bgcolor="<%=CorTitulo%>"> <td>ID</td> <td>Nome</td> <td>E-mail</td> <td>IP</td> <td>Data</td> </tr> <% DO WHILE RS.AbsolutePage = Pagina IF Cor = "#FFFFFF" THEN Cor = "#EFEFEF" ELSE Cor = "#FFFFFF" END IF %> <tr bgcolor="<%=CorTitulo%>">              <td><%=RS("id")%></td>            <td><%=RS("nome")%></td> <td><a href="mailto:<%=RS("email")%>"><%=RS("email")%></a></td> <td><%=RS("ip")%></td> <td><%=RS("data")%></td> </tr> <% RS.MoveNext LOOP %> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table>   <%       Response.Write "<BR>"   FOR i = 1 TO RS.PageCount   %><a href="ok.asp?query=<%=Consulta%>&pag=<%=i%>"><%=i%></a><%   Response.Write "  "   IF i < RS.PageCount THEN Response.Write "-"   NEXT   %> </body> </HTML> <%END IF%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faltou iniciallizar a variável "pagina", troca o inicio por esse:

<%
OPTION EXPLICIT

DIM Conn
DIM RS
DIM MyQuery
Dim Pagina
DIM Consulta
DIM Cor
DIM CorTitulo
DIM i



Consulta = Request.QueryString("query")
IF Consulta = "" THEN Response.Redirect "busca.asp"

pagina=request("pag")
If pagina="" Then pagina=1 End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Fiz assim:

<%OPTION EXPLICITDIM ConnDIM RSDIM MyQueryDim PaginaDIM ConsultaDIM CorDIM CorTituloDIM i Consulta = Request.QueryString("query")IF Consulta = "" THEN Response.Redirect "busca.asp"pagina=request("pag")If pagina="" Then pagina=1 End IfSET Conn = Server.CreateObject("ADODB.Connection")SET RS = Server.CreateObject("ADODB.RecordSet")Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fish.mdb")MyQuery = "SELECT * FROM bo WHERE nome LIKE '%" & Consulta & "%' order by data"RS.Open MyQuery, ConnIF RS.BOF AND RS.EOF THEN    Response.Write "NENHUM REGISTRO ENCONTRADO"ELSE    RS.PageSize = 10    Pagina = cInt(Request.QueryString("pag"))    IF Pagina = 0 THEN Pagina = 1                IF Pagina > RS.PageCount THEN Pagina = RS.Pagecount    RS.AbsolutePage = Pagina Cor = "#FFFFFF" CorTitulo = "#CCCCCC"  %> <HTML> <head> <title>Resultado da pesquisa.</title> <link rel=stylesheet type="text/css" href="estilos.css"> </head> <body> <table bgcolor="#000033" border="0" width="80%" cellspacing="0" cellpaging="0"> <tr><td> <table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"> <tr><td><font class="padrao"><b>Registros encontrados:</b></font></td></tr> </table> <br> <table bgcolor="#000033" border="0" width="80%" cellspacing="0" cellpaging="0"> <tr><td> <table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"> <tr><td> <table border="0" cellpaging="0" cellspaging="0" width="100%"> <tr bgcolor="<%=CorTitulo%>"> <td>ID</td> <td>Nome</td> <td>E-mail</td> <td>IP</td> <td>Data</td> </tr> <% DO WHILE RS.AbsolutePage = Pagina IF Cor = "#FFFFFF" THEN Cor = "#EFEFEF" ELSE Cor = "#FFFFFF" END IF %> <tr bgcolor="<%=CorTitulo%>">              <td><%=RS("id")%></td>            <td><%=RS("nome")%></td> <td><a href="mailto:<%=RS("email")%>"><%=RS("email")%></a></td> <td><%=RS("ip")%></td> <td><%=RS("data")%></td> </tr> <% RS.MoveNext LOOP %> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table>  <%      Response.Write "<BR>"  FOR i = 1 TO RS.PageCount  %><a href="maikon.asp?query=<%=Consulta%>&pag=<%=i%>"><%=i%></a><%  Response.Write "  "  IF i < RS.PageCount THEN Response.Write "-"  NEXT  %> </body> </HTML> <%END IF%>

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 41

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito