Ir para conteúdo

POWERED BY:

Arquivado

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

inicio

Busca com link

Por , em ASP Clássico

Recommended Posts

inicio    0

inicio
Postado

Estou desevolvendo um código de busca que fornece resultado + link. Est´aparecendo o seguinte erro: Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: '[string: "Conexao.Execute(Cami"]'

/buscaag.asp, line 14

Os codigos são:

Codigo do formulario: <form name="form2" method="post" action="buscaag.asp">		  <strong><font color="#FFCC00" size="2" face="Tahoma">Buscar:</font></strong>		  <input name="nomeag" type="text" size="30" maxlength="50">		  <input type="submit" name="Submit2" value="Buscar">		  </form>-----------------------------Ocodigo ASp é:<!-- Created: 00:00:00 --><html>	<head>		<meta name="GENERATOR" Content="ASP Express 5.0">		<title>Untitled</title>	</head>	<body><%Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\localuser\jamesnascimento\banco\banco.mdb;"Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open Caminhovalor=request.Querystring("nomeag")campo= split(trim(valor)," ")for i=0 to Ubound(campo)str = str & "%" & campo(i)nextstr= str & "%"Dim rsSet Rs=server.CreateObject("ADODB.RECORDSET")SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '" &campo& "' "Conexao.Execute(SqlStr)Response.Write (SqlStr)Rs.Open SqlStr, oConnIf Rs.EOF thenResponse.Write("Não Foram encontradas ocorrências para palavra digitada")Else<center><font color="blue">Resultado da Pesquisa - Foram encontradas as seguintes ocorrências:</font></b></center>link=rs.fields("emailag")<p align="left">Do until Rs.eofIf rs.fields.count>0 thenelseResponse.Write(("<br><br>Não Foram encontrados nenhuma ocorrência para a palavra digitada"))End IfResponse.Write(Rs.fields("nomeag")&"<br>")Response.Write("<A HREF='"& RS.Fields("emailag")&">"&"<BR>")Response.Write("<b>"& rs.fields ("telag")&"</B></a>")Response.Write("<b>"& rs.fields ("assuntoag")&"</B></a>")Rs.movenextLoopend if%>	</body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

troque isso

Set Rs=server.CreateObject("ADODB.RECORDSET")SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '" &campo& "' "Conexao.Execute(SqlStr)
por

SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '" &campo& "'"set rs = oConn.Execute(SqlStr)
faltou colocar os dados pra dentro do recordset e o nome do objeto conexão estava errado

 

pergunto...porque fez isso?

valor=request.Querystring("nomeag")campo= split(trim(valor)," ")for i=0 to Ubound(campo)str = str & "%" & campo(i)nextstr= str & "%"
não poderia ser assim

valor=request.Querystring("nomeag")SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '%" &valor& "%'"

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