A cópia do código é a seguinte:
'**************************************************
'O seguinte são funções relacionadas ao banco de dados
'**************************************************
'=============================================================
'Inicialize o objeto de conexão do banco de dados
'Princípio de uso: ligue para o mais recente, libere os primeiros
'=============================================================
Subdbconnbegin ()
'Se o objeto do banco de dados já estiver aberto, não o abra novamente
IfisObject (OCONN) = TrueTenexitsub
'Você pode abrir o objeto Definir registro diretamente sem abrir o objeto de conexão do banco de dados, mas se precisar abrir vários objetos de conjunto de registros, a eficiência será muito ineficiente.
'Se você não criar um objeto de conexão de banco de dados, o ADO criará automaticamente um novo objeto de conexão de banco de dados quando cada conjunto de registros for aberto, mesmo se você estiver usando a mesma instrução SQL.
Setoconn = server.createObject ("adodb.connection")
OnErrorReSumenext
OCONN.OPEN "Provedor = Microsoft.Jet.oledb.4.0; DataSource =" & Server.mappath ("db/lbedit.mdb")
IFERR.Number> 0Then
'Mostre a mensagem de erro e envie um email para notificar o administrador
'CallDBConnerRor (ERR)
'Saia completamente do script em execução
Resposta.END
Endif
'Crie um conjunto de registros
Setores = server.createObject ("adodb.recordset")
Endsub