La copia del código es la siguiente:
'**************************************************
'Las siguientes son funciones relacionadas con la base de datos
'**************************************************
'=============================================================
'Inicializar el objeto de conexión de la base de datos
'Principio de uso: llame a lo último, lanza lo más temprano
'=============================================================
Subdbconnbegin ()
'Si el objeto de la base de datos ya está abierto, no lo vuelva a abrir
IfisObject (oconn) = trueThenExitsub
'Puede abrir el objeto de conjunto de registros directamente sin abrir el objeto de conexión de la base de datos, pero si necesita abrir múltiples objetos de conjunto de registros, la eficiencia es muy ineficiente.
'Si no crea un objeto de conexión de la base de datos, ADO creará automáticamente un nuevo objeto de conexión de la base de datos cuando se abre cada conjunto de registros, incluso si está utilizando la misma instrucción SQL.
Setoconn = server.createObject ("ADODB.Connection")
OnerrorResumEnext
OCONN.OPEN "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.mappath ("db/lbedit.mdb")
Iferr.number> 0then
'Mostrar mensaje de error y enviar un correo electrónico para notificar al administrador
'CalldbConnergor (err)
'Salir del script de ejecución por completo
Respuesta.
Endif
'Crear un conjunto de registros
Setors = server.createObject ("ADODB.Recordset")
Endsub