Sign in to follow this  
marvi

Erro Na Conexão

Recommended Posts

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

Edited by marvi

Share this post


Link to post
Share on other sites

você está repetindo a variavel

dim conn, varconn

coloque o dim conn, varconn dentro da sub

Share this post


Link to post
Share on other sites

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 %>

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this