banco de dados

<%

 'Declarando variáveis

Dim adoCon, strCon

Dim caminho_banco

 

'Definindo caminho do banco

caminho_banco = Server.MapPath("C:\MTB - APLICATIVOS/mtb_abril_14.accdb")

 

'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

 

'Fechando conexão

adoCon.Close

Set adoCon = Nothing

%>