1 reply to this topic

[ariesley]

Ao rodar o código a seguir aparece o seguinte erro:

error '80020009'
Ocorreu uma exceção.
/net/cadastra.asp, line 21

Alguém pode me ajudar!!!

<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit

Response.Expires = 0

Dim serie, serial, conexao, Rs, tabela, padrao, grava, exec

serie = Request.Form("serie")
serial = Request.Form("serial")
padrao="0"

Set conexao = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

conexao.Open "DBQ=" & Server.MapPath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

tabela = "SELECT * FROM base where serie='"&serie&"'"

rs.open tabela,conexao

If serie = rs("serie") then
Response.write("Serie ja cadastrada")
Else 
grava = "INSERT into base (serie, serial, situacao) VALUES ('"&serie&"','"&serial&"','"&padrao&"')"
Set exec=conexao.execute(grava)
if err = 0 then
Response.write("Cadastrado com sucesso")
end if
end if

%>

Attached Files

•  cadastra.asp   835bytes   6 downloads

[pchardnet]

Essa é a linha 21??
rs.open tabela,conexao


Se sim substitua por isso
Set rs = conexao.execute(tabela)