Erro Na Conexão

[marvi]

Ola pessoal, tenho uma pagina que roda normal e outra que dar sempre esse erro e não sei porque, veja:

Microsoft VBScript compilation error '800a0411'

Name redefined

/sistema/conteudo/votos/conexao_dados.asp, line 3

dim conn, varconn

----^

e a minha conexão esta assim:

<%
dim conn, varconn

sub abre_conexao
    set conn = Server.createobject("adodb.connection")
    varconn="Provider=SQLOLEDB.1;User teste;PASSWORD=teste;Initial Catalog=teste1;Data Source=teste2;"
    conn.Open VarConn
end sub

sub fecha_conexao
    conn.close
    set conn = nothing 
end sub
%>

Obrigado!

Marcelo

Editado Maio 18, 2007 por marvi

[ADL]

você mudou o nome dessa variavel ao longo do programa?

[bareta]

você está repetindo a variavel

dim conn, varconn

coloque o dim conn, varconn dentro da sub

[marvi]

vou testar então!

grato!

Ocorreu esse erro agora

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Conexao' 

/sistema/conteudo/votos/cadastrodevotos.asp, line 5 


<!-- #include file="conexao_dados.asp" -->
<%
sqlpvs = "Select * from pvs"
 Set rspvs=Conexao.Execute(sqlpvs)
linha 5 %>

[webdeveloper]

vou testar então!

grato!

Ocorreu esse erro agora

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Conexao' 

/sistema/conteudo/votos/cadastrodevotos.asp, line 5 


<!-- #include file="conexao_dados.asp" -->
<%
sqlpvs = "Select * from pvs"
 Set rspvs=Conexao.Execute(sqlpvs)
linha 5 %>

Troque isso:

<!-- #include file="conexao_dados.asp" -->
<%
sqlpvs = "Select * from pvs"
 Set rspvs=Conexao.Execute(sqlpvs)
linha 5 %>

Por isso:

<!-- #include file="conexao_dados.asp" -->
<%
sqlpvs = "Select * from pvs"
 Set rspvs=conn.Execute(sqlpvs)
linha 5 %>

Porém não esqueça de chamar a sub 'abre_conexao' antes de setar o rspvs.

[marvi]

já troquei e continuo o erro, não sabia o que era, mas eu refiz a conexao de novo do zero, peguei uma que antes eu usava e começou a rodar normal! Pense!

obrigado!

Marcelo