alguém Sabe Me Ajudar Nesse Erro

[marcus Gemeos]

Ola, a o seguinte erro:

Object required: 'conn'

/sistema/conteudo/prad/teste/inserir.asp, line 14

Mas não acho nada na linha abaixo:

<%

for i = 0 to ubound(op) - 1

op1 = split(op(i),"|")

Linha14 Set inserir=conn.Execute ("INSERT INTO marcelo (nome, cpf, pis ) values ('" & op1(0) & "','" & op1(1) & "','" & op1(2) & "')")

next

E minha conexão esta ok:

<%

<!--#include file="conexao_dados.asp"-->

%>

<%

dim conn, varconn

sub abre_conexao

set conn = Server.createobject("adodb.connection")

varconn="Provider=SQLOLEDB.1;User ID=se;PASSWORD=se;Initial Catalog=ok;Data Source=bahia;"

conn.Open VarConn

end sub

Obrigado!

[kuroi]

você esta chamando a sub abre_conexao de algum lugar?

[marcus Gemeos]

Como assim? Tenho um :

<%

<!--#include file="conexao_dados.asp"-->

%>

Ele chama uma conexão que tem uma sub:

sub abre_conexao

set conn = Server.createobject("adodb.connection")

varconn="Provider=SQLOLEDB.1;User ID=se;PASSWORD=se;Initial Catalog=ok;Data Source=bahia;"

conn.Open VarConn

end sub

é isso?

Obrigado!

[kuroi]

está mas tudo que você faz é deixar a funcao declarada. ou você salva o conexao_dados.asp apenas assim:

set conn = Server.createobject("adodb.connection")
varconn="Provider=SQLOLEDB.1;User ID=se;PASSWORD=se;Initial Catalog=ok;Data Source=bahia;"
conn.Open VarConn
[/code]

ou você chama a funcao depois do include:
[code]<%
<!--#include file="conexao_dados.asp"-->
abre_conexao
%>

[marcus Gemeos]

Fiz isso:

<%

<!--#include file="conexao_dados.asp"-->

Call abre_conexao

%>

e deu isso:

Type mismatch: 'abre_conexao'

/sistema/conteudo/prad/teste/inserir.asp, line 3

<%

<!--#include file="conexao_dados.asp"-->

Linha 3: Call abre_conexao

%>

Obrigado!

[kuroi]

faca assim:

<!--#include file="conexao_dados.asp"-->
<% Call abre_conexao
%>[/code]
o include fica fora do <% %>

[marcus Gemeos]

Ok,

'

ADODB.Recordset error '800a0e78'

Operação não permitida quando o objeto está fechado.

/sistema/conteudo/prad/teste/inserir.asp, line 21

minnha linha 21 é o inserir.Close que fechei do: Set inserir=conn.Execute ("INSERT INTO...como fecha o meu set então? Se eu tirar esse inserir.close ele fica normal....?

<%

'fecha a conexao

Set inserir.Close ' da erro aqui

Call fecha_conexao

Set inserir = Nothing

%>

Obrigado

[kuroi]

acho que você não chegou a abrir o inserir.

para corrigir, faca:

if inserir.state <> 0 Then inserir.Close