Erro estranho

[Davidmg 0]

Salve galera,

 

Tenho o seguinte código abaixo que quando eu usava com o BD Accesse funcionava certinho, agora estou tentando usar com o BD MySQL e está dando um erro, será que terei que alterar algo no código por causa do BD?

 

CÓDIGO

<%set myconn = server.CreateObject("ADODB.Connection")Dim dbqexecutar = "select * from emails"set rs = server.createobject("ADODB.Recordset")rs.open executar, myconn, 3, 3sql = "delete from emails"myconn.execute(sql)Set fs = Server.CreateObject("Scripting.FileSystemObject")caminho = Server.Mappath("emails/emails.txt")Set txt= fs.OpenTextFile(caminho, 1,0)while ( not txt.AtEndOfStream) and response.isclientconnected()linha_txt = txt.readlinearrayx = split(linha_txt,";")rs.addnewif arrayx(0) <> "" then rs("email") = arrayx(0)rs.updatewendtxt.closeset txt = nothingset fs = nothingmyconn.closeset myconn = nothing%>

Dá 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.

 

/atu_emails.asp, line 10

 

A linha 10 é:

 

rs.open executar, myconn, 3, 3

O que pode ser?

Obrigado à todos...

[Davidmg 0]

Valew galera já consegui.....

 

Tinha 2 códigos desse abaixo iguais na página, eu nem tinha vista, tinha um no config.asp e outro na propria pagina, tirei um deles e funcionou certinho.

 

set myconn = server.CreateObject("ADODB.Connection")

Valewwww...

[sr.silva 1]

Legal Davidmg que conseguiu...melhor ainda ter voltado e dito que resolveu...Parabéns.. ;)