Que tal.
De las líneas que ya tienes:
Código:
....
'Abrimos la conexión a la base de datos.
Dim DB_CONNECTIONSTRING
...
En medio de esas dos líneas hay que agregar una línea para crear un objeto
conection, para tener:
Código:
....
'Abrimos la conexión a la base de datos.
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
...
Saludos y suerte!