<%
'*********************************
'Function: ConnectionMssql(ConnStr)
'Parameters: ConnStr, database connection code
'Author: Alixi
'Date: 2007/7/13
'Description: General Database Connection Process
'Example: <%=ConnectionMssql("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb")%>
'*********************************
SubConnectionMssql(ConnStr)
OnErrorResumeNext
SetobjConn=Server.Createobject("ADODB.Connection")
objConn.ConnectionTimeout=12
objConn.ConnectionString=Trim(ConnStr)
objConn.Open
IfobjConn.Errors.Count=0Then
Else
Response.Write"ConnectionMssql","Data connection failed, please check the configuration file!"
Response.End
EndIf
EndSub
%>