Erro Asp + Mysql

[Ivan.Teles 23]

Estou com um erro somente em uma página.. Todas as outras funcionam certinho..

 

arquivo conec_banco.asp

 

<%
set conconexao = Server.CreateObject("ADODB.Connection") 
conconexao.Open "Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=bancolocal; Uid=root; Pwd=123;"
%>

página que cotem o erro.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1046 %>
<%
var_seg = "0"
If (request.querystring("segmento") <> "") Then 
  var_seg = request.querystring("segmento")
End If
var_nume = "0"
If (request.querystring("numero") <> "") Then 
  var_nume = request.querystring("numero")
End If
var_uf = "0"
If (request.querystring("uf") <> "") Then 
  var_uf = request.querystring("uf")
End If
var_mes = "0"
If (request.querystring("mes") <> "") Then 
  var_mes = request.querystring("mes")
End If
var_ano = "0"
If (request.querystring("ano")  <> "") Then 
  var_ano = request.querystring("ano") 
End If
var_tema = "0"
If (request.querystring("tema")  <> "") Then 
  var_tema = request.querystring("tema") 
End If

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id, referencia, data, hora, tema, cgc, cidade, uf, participantes, endereco, palestrante, telefone, hotel, contato, telcontato, lojas, previsao, segmento, observacoes, ano, foto  FROM palestras  WHERE tema LIKE '%" + Replace(var_tema, "'", "''") + "%' OR (uf = '" + Replace(var_uf, "'", "''") + "' AND referencia = " + Replace(var_mes, "'", "''") + " AND ano = '" + Replace(var_ano, "'", "''") + "' AND segmento = '" + Replace(var_seg, "'", "''") + "' AND participantes >= " + Replace(var_nume, "'", "''") + ")  ORDER BY data DESC, hora ASC"
rs.Open sql,conconexao,3
%>

<%
rs.Close()
Set rs = Nothing
conconexao.close()
set conconexao = nothing
%>

Erro:

 

Tipo de erro:
ADODB.Recordset (0x800A0E7D)
A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto.
/visa_sql/result_palestras_avan.asp, line 38

Alguém salve-me..

[joacatito 0]

Tenta alterar isso:

rs.Open sql,conconexao,3

Para isso:

Set rs = conconexao.Execute(sql)

Qualquer coisa, poste.

[Ivan.Teles 23]

deu certinho..

 

mas me esclareça uma coisa.

 

tenho essa mesma linha rs.Open sql,conconexao,3 em outras páginas e estão funcionando numa boa, por que so essa página deu esse erro?

[joacatito 0]

Não sei te explicar direito como funciona esse cursor (3), mas ele geralmente dá uns pepinos.Vamos esperar a resposta de algum outro colega q entenda melhor disso ;)Abraço.