<%
'*********************************
'Function: ConnectionMssql (connstr)
'Параметры: connstr, код подключения базы данных
Автор: Аликси
Дата: 2007/7/13
'Описание: Общий процесс подключения к базе данных
Пример: <%= ConnectMysSQL ("Provider = microsoft.jet.oledb.4.0; dataSource = test.mdb")%>
'*********************************
Subconcectionmssql (connstr)
OnerRorResumenext
SetObjConn = server.createObject ("adodb.connection")
objconn.connectiontimeout = 12
objconn.connectionstring = trim (connstr)
objconn.open
Ifobjconn.errors.count = 0then
Еще
Response.Write "ConnectMSSQL", "Сбой подключения к данным, пожалуйста, проверьте файл конфигурации!"
Response.end
Эндиф
Заканчивая
%>