Conexao ADODB em Servidor WEB

[Ulisses Paps 0]

Olá Pessoal, sempre desenvolvi aplicações para uso em rede locais ou VPN´s, mas agora preciso hospedar uma aplicação na WEB. Sempre conecto o banco utilizando esse codigo:

<%
' Esta é a conexao original
sub abre_conexao
   Set Conexao = Server.CreateObject("ADODB.Connection")
   Conexao.Open "DBQ=c:\inetpub\wwwroot\bdinfo.mdb;Driver={Microsoft Access Driver (*.mdb)}"
end sub

sub fecha_conexao
    Conexao.close
    Set Conexao =nothing
end sub
%>

E chamo via include, sempre funcionou. Agora no UOLHOST isso não funciona foi passado o seguinte exemplo:

<%

'Declarando variáveis
Dim adoCon, strCon
Dim caminho_banco

'Definindo caminho do banco
caminho_banco = Server.MapPath("../dados/arquivo.mdb")

'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")

'Abrindo conexão
adoCon.Open strCon

## Aqui coloque o código desejado

'Fechando conexão
adoCon.Close
Set adoCon = Nothing
%>

Mas com isso teria que alterar todos os codigos da aplicação. Tentei adaptar para a minha conexao padrao dessa forma:

<%
' esta é a do servidor
sub abre_conexao
   Set Conexao = Server.CreateObject("ADODB.Connection")
   Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath("../dados/bdinfo.mdb") "
end sub

sub fecha_conexao
    Conexao.close
    Set Conexao =nothing
end sub
%>

Mas não funciona mesmo assim, alguem tem como dar uma mão? O suporte do UOL simplesmente ignora o chamado em aberto! Agradeço qualquer informação!

[xanburzum 169]

tente usar o IP do server e verifique se o UOLHOST não esta bloquenado seu acesso

[Gilberto Jr 26]

Boa noite eu uso o seguinte código para conexão com o banco de dados.

config.asp

<%
dim con, caminho

'caminho = server.MapPath("../banco/descricao.mdb")
'caminho = "D:\web\localuser\descricaodorock\banco\descricao.mdb"
caminho = "D:\sites\site\banco\descricao.mdb"

sub connect
	set con = server.CreateObject("ADODB.Connection")

	con.connectionstring="driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
	con.open
end sub
sub disconnect	

set con = nothing
end sub
%>

 

Na página eu coloco antes do inicio da tag HTML

<!--#include file="config.asp" -->
<%
call connect
%>

 

e no fim dopois do fim ta tag HTML eu coloco o código para fecharmos a conexão com o banco de dados.

call desconnect