<%
'*********************************
'Funktion: ConnectionMSSQL (ConnStr)
'Parameter: ConnStr, Datenbankverbindungscode
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Allgemeiner Datenbankverbindungsprozess
'Beispiel: <%= ConnectionMSSQL ("Provider = 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.Erors.count = 0Then
Anders
Antwort.Write "ConnectionMSSQL", "Datenverbindung fehlgeschlagen, bitte überprüfen Sie die Konfigurationsdatei!"
Antwort.end
Endif
Ende
%>