Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

Erro na busca

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

Galera estou com problemas no momento que faço a busca

 

Esta aparecendo esse erro no navegador

 

 

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: ''

 

/resultado.asp, line 130

 

 

resultado.asp

<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="300" valign="top" bgcolor="#FFFFFF"><table width="700" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="10">

</td>

</tr>

</table>

<table width="100%" border="0" cellpadding="5" cellspacing="0">

<tr>

<td width="15%" height="20" bgcolor="#0033CC" class="texto"><div align="center" class="style7"><a href="modelo.html" class="style8">Referência</a></div></td>

<td width="33%" class="texto" bgcolor="#0033CC"><div align="center" class="style7"><a href="modelo.html" class="style8">Bairro</a></div></td>

<td width="16%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Dormitórios</div></td>

<td width="11%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Vagas</div></td>

<td width="25%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Preço</div></td>

</tr>

</table>

<font face="Comic Sans MS">

<%

 

set cn = Server.CreateObject("ADODB.Connection")

'Access

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd\bd.mdb") & ";Persist Security Info=False"

 

 

set conn=server.createobject("adodb.connection")

set rs=server.createobject("adodb.recordset")

cn.open dsn

 

sql = "select * from imovel where busca_referencia LIKE '%"& busca_referencia &"%'"

rs.open sql,conn,cn

do while not rs.eof

%>

</font>

<table width="100%" border="0" cellspacing="0" cellpadding="5">

 

<tr>

<td width="15%" height="24" bgcolor="#F7F7F7" class="texto"><div align="center"><a href="modelo.html" class="texto"></a><font face="Comic Sans MS"><%=rs("desc_negrito02")%></font></div></td>

<td width="33%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="16%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="11%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="25%" class="texto" bgcolor="#F7F7F7"><div align="center">R$<font face="Comic Sans MS"><%=rs("tp_imovel")%></font></div></td>

</tr>

</table>

<font face="Comic Sans MS">

<%rs.movenext

loop

call close()

%>

</font><br>

<br>

<br>

<p align="center"> </p>

</td></tr>

</table>

 

 

cn.asp

<%

set cn = Server.CreateObject("ADODB.Connection")

'Access

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\bd\bd.mdb") & ";Persist Security Info=False"

%>

Eu destaquei em vermelho e Bold a linha que está apresentando o erro.

 

Se alguem tiver ideia o porque não está funfando eu ficarei muito grato

 

 

Valew galera http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

VictorWorks    0

VictorWorks
Postado

Galera estou com problemas no momento que faço a busca

 

Esta aparecendo esse erro no navegador

 

 

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: ''

 

/resultado.asp, line 130

 

 

resultado.asp

<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="300" valign="top" bgcolor="#FFFFFF"><table width="700" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="10">

</td>

</tr>

</table>

<table width="100%" border="0" cellpadding="5" cellspacing="0">

<tr>

<td width="15%" height="20" bgcolor="#0033CC" class="texto"><div align="center" class="style7"><a href="modelo.html" class="style8">Referência</a></div></td>

<td width="33%" class="texto" bgcolor="#0033CC"><div align="center" class="style7"><a href="modelo.html" class="style8">Bairro</a></div></td>

<td width="16%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Dormitórios</div></td>

<td width="11%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Vagas</div></td>

<td width="25%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Preço</div></td>

</tr>

</table>

<font face="Comic Sans MS">

<%

 

set cn = Server.CreateObject("ADODB.Connection")

'Access

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd\bd.mdb") & ";Persist Security Info=False"

 

 

set conn=server.createobject("adodb.connection")

set rs=server.createobject("adodb.recordset")

cn.open dsn

 

sql = "select * from imovel where busca_referencia LIKE '%"& busca_referencia &"%'"

rs.open sql,conn,cn

do while not rs.eof

%>

</font>

<table width="100%" border="0" cellspacing="0" cellpadding="5">

 

<tr>

<td width="15%" height="24" bgcolor="#F7F7F7" class="texto"><div align="center"><a href="modelo.html" class="texto"></a><font face="Comic Sans MS"><%=rs("desc_negrito02")%></font></div></td>

<td width="33%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="16%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="11%" class="texto" bgcolor="#F7F7F7"><div align="center"><a href="modelo.html" class="texto"><font face="Comic Sans MS"><%=rs("tp_imovel")%></font></a></div></td>

<td width="25%" class="texto" bgcolor="#F7F7F7"><div align="center">R$<font face="Comic Sans MS"><%=rs("tp_imovel")%></font></div></td>

</tr>

</table>

<font face="Comic Sans MS">

<%rs.movenext

loop

call close()

%>

</font><br>

<br>

<br>

<p align="center"> </p>

</td></tr>

</table>

 

 

cn.asp

<%

set cn = Server.CreateObject("ADODB.Connection")

'Access

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\bd\bd.mdb") & ";Persist Security Info=False"

%>

Eu destaquei em vermelho e Bold a linha que está apresentando o erro.

 

Se alguem tiver ideia o porque não está funfando eu ficarei muito grato

 

 

Valew galera http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

 

 

Onde você especificou o parâmetro 'dsn'?

' Acredito que você não tenha especificado o parâmetro dsn... ^^
cn.open [b]dsn[/b]

Dá uma olhadinha no código...

 

aguardo resposta...

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