'Resolvido o problema do caminho do banco de dados ACCESS!
'Use DBType=0 ou DBType=1 para distinguir biblioteca AC ou biblioteca MSSQL
'Para assuntos específicos que devem ser observados ao usar a biblioteca AC, consulte a descrição do programa
----------------------------- ----- ----------
Dim DBType,Conn,StrConn
DBType=0 '0 é o banco de dados Access, 1 é o banco de dados MSSQL
If(DBType=0) Then
'******************ACESSO À BASE DE DADOS******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" 'Nome da pasta onde está localizado o banco de dados
DbFolder_Path = Server.MapPath(DbFolderName) 'O caminho para o banco de dados
SiteFolder="Article" 'O nome do diretório raiz onde o sistema está localizadoIf
Session("RootDir") = "" Then
Sessão("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
Terminar se
Definir Conexão = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Conectar ao banco de dados
Conn.Open StrConn
'**********************************************
ElseIf(DBType=1) Então
'****************Banco de dados do SERVIDOR MSSQL******
Dim DBUserID,DBPassWord,DBName,DBIP
'Modifique as seguintes informações para se adequar ao seu site
DBUserID="sa" 'Nome de login do banco de dados
DBPassWord="" 'Senha do banco de dados
DBName="dbname" 'Nome do banco de dados
DBIP="local" 'O endereço do banco de dados, se for um banco de dados local: (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Catálogo inicial="&DBName&";Persistir informações de segurança=True;User ID="&DBUserID&";Password="&DBPassWord&";Tempo limite de conexão=30"
Conn.Open StrConn
'********************************************** ****
Outro
'************************Erro de configuração do banco de dados******************
Response.Write "Erro de configuração do banco de dados, entre em contato com o administrador!"
Resposta.Fim
Terminar se
'Resposta.WriteStrConn