<%
'***********************************
'Função: ConnectionMSSQL (Connstr)
Parâmetros: Connstr, código de conexão do banco de dados
'Autor: Alixi
Data: 2007/7/13
'Descrição: processo geral de conexão do banco de dados
'Exemplo: <%= ConnectionMSSQL ("Provedor = Microsoft.Jet.oledb.4.0; DataSource = test.mdb")%>
'***********************************
SubConnectionMSSSQL (Connstr)
OnErrorReSumenext
Setobjconn = server.createObject ("adodb.connection")
objconn.connectionTimeout = 12
objconn.connectionstring = Trim (Connstr)
objconn.open
Ifobjconn.errors.count = 0then
Outro
Response.Write "ConnectionMSSQL", "A conexão de dados falhou, verifique o arquivo de configuração!"
Resposta.END
Endif
Endsub
%>