Erro estranho
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, 3O que pode ser?Obrigado à todos...
Discussão (2)
Carregando comentários...