<%
'**********************************
'Función: ConnectMSSQL (Connstr)
'Parámetros: Connstr, código de conexión de la base de datos
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: proceso de conexión de base de datos general
'Ejemplo: <%= ConnectMSSQL ("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
Demás
Response.WRITE "ConnectMMSSQL", "Falló la conexión de datos, verifique el archivo de configuración!"
Respuesta.
Endif
Endsub
%>