Erro No Select

[ju_rezende]

Olá pessoal tenho um pagina que está dando o seguinte erro

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/loja.asp, line 43

Alguém poderia me ajudar com isso

Meu cod

<%

dim busca1

busca1= cint(request.querystring("codigo"))

'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")Linha 43set rs2 = server.CreateObject ("adodb.recordset")

sql2 = "select * from clientes where codigo = " & busca1 & " and del=0 order by empresa"

'response.write sql2

'response.end

rs2.Open sql2,con,3,3%>

<table id="lojamostra"width="770" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="515"><font size="2" face="Arial, Helvetica, sans-serif"><a href="default.asp">Home</a></font>

<font size="2" face="Arial, Helvetica, sans-serif"><a href="loja.asp">Voltar</a></font></td>

<td width="255"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Total

de registros</strong></font> <%=rs2.recordcount%> </div></td>

</tr>

<tr>

<td colspan="2" "> <div align="left">

<%if rs2.eof=true then %>

<font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

<%response.write " Nenhum registro encontrado"%>

<%else%>

</strong></font></div></td>

</tr>

<tr >

<td colspan="2"background="../imagem/fundodaTd.gif"><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa

por Empresa</font><font color="#000000"> &gt;&gt;</font>

<font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

</strong></font><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong>

<%response.write rs2("empresa")%>

</strong></font></td>

</tr>

<tr >

<td colspan="2"background="../imagem/fundodacinza.gif">

<% do while not rs2.eof%>

<font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:</strong></font><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"> <strong>

<%response.write rs2("empresa")%>

</strong></font></td>

</tr>

<tr>

<td><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Endere&ccedil;o:

</strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<%response.write rs2("Endereco")%>

</font></td>

<td><strong><font color="#000000" size="2">Bairro: </font></strong>

<font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<%response.write rs2("Bairro")%>

</font></td>

</tr>

<tr>

<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Telefone:

(12)</strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<% response.write rs2("Telefone")%>

<strong>Fax :</strong></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>(12)</strong><font size="2" face="Arial, Helvetica, sans-serif">

<% response.write rs2("Telfax")%>

</font> <strong>Cel:</strong>

<% response.write rs2("cel")%>

<strong>E-mail:</strong>

<% response.write rs2("email")%>

</font> </td>

<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Site:</strong></font>

<font size="2" face="Arial, Helvetica, sans-serif">:

</font>

<% if rs2("site")<>"-" then%>

<a href ="Http://<%=rs2("site")%>" target="_blank"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<%response.write rs2("Site")%>

</font>

<%else%>

</a><a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<%response.write rs2("Site")%>

</font>

<%end if%>

</a>

</td>

</tr>

<%rs2.movenext%>

<%loop%>

<%end if%>

</table>

<% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs2.state <> 0 Then rs2.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing

set rs2 = Nothing%></td>

</tr>

</table>

</td>

</tr>

<tr>

<td width="779" height="22"><!--#include file="Rodape.html"--></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

[kuroi]

tem certeza que você já não criou a conexao em alguma outra parte do arquivo?

[ju_rezende]

já existe a conecção no include,

[kuroi]

já tentou tirar essa linha?

set con = server.CreateObject("adodb.connection")

[ju_rezende]

já tirei essa linha e mesmo assim continua dando este erro, não entendi muito que erro tá dando, pior que preciso resolver issso urgente e nem imagino o que seja

Antes funcionava normalmente sem problemas

Pessoal achei o problema era no include, no final a conxaõ estava sendo fecha

Ufa levei um susto agora

valeu mesmo pela ajuda e atenção de todos

[kuroi]

esquece, postei antes de ler seu ultimo post.