Name Redefined

[Jony Walker]

Meu arquivo de conexão é este:

<%
Dim Conexao
sub abre_conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(".")&"\0010.mdb;"
end sub
sub fecha_conexao
Conexao.close
Set Conexao = nothing
end sub
%>

Esta é a página:

<!--#include file="bd_conexao.asp"-->
<%

Dim[color=#FF0000] Conexao[/color] rslinks, sqlProd

sqlProd =  "SELECT * FROM Sub4 ORDER BY nom_link"

Call abre_conexao

Set rslinks = Conexao.Execute(sqlProd)
%>

Ele acusa erro de name redefined, mas quando excluo o vermelho da página ele acusa o mesmo erro pra página de conexao... o que acontece... se eu excluir lá em cima ele chama outro erro

OBJECT REQUIRED ''

[.Andreia.]

Voce não pode mesmo declarar Conexao sendo que no include já tem declarado. Tente assim:

<!--#include file="bd_conexao.asp"-->
<%
Call abre_conexao
Dim rslinks, sqlProd

sqlProd =  "SELECT * FROM Sub4 ORDER BY nom_link"
Set rslinks = Conexao.Execute(sqlProd)
%>

[Jony Walker]

Então Andréia, quando eu removo o Dim Conexao ele abre object required ''

Vou tentar o que você me passou...