<%
'*******************************
'Fonction: ConnectionMSSQL (Connstr)
'Paramètres: Connstr, code de connexion de la base de données
'Auteur: Alixi
'Date: 2007/7/13
«Description: processus de connexion de la base de données générale
'Exemple: <% = ConnectionMSSQL ("Provider = Microsoft.Jet.oledb.4.0; DataSource = test.mdb")%>
'*******************************
Sous-connectionmsql (Connstr)
Onerrorresumenext
SetObjConn = server.createObject ("adodb.connection")
objConn.ConnectionTimeout = 12
objConn.ConnectionString = Trim (Connstr)
objconn.open
IfoBjConn.Errors.Count = 0Then
Autre
Response.Write "ConnectionMSSQL", "La connexion de données a échoué, veuillez vérifier le fichier de configuration!"
Réponse.
Endire
Fin
%>