Se las voy a poner mas facil

[cacike500]

La verdad, yo jamas he programado un insert asi. Y parece como demasiado rollo para algo que se puede hacer en dos lineas. Primero, no necesitas un objeto recordset para hacer un insert y segundo, es tan sencillo como esto:

dim db
set db = Server.CreateObject("ADODB.Connection")
db.open("Cadena de conexion")
db.execute("instruccion insert")

Pruebalo asi y ya veras como funciona.

Espero haber servido de ayuda,

cacike500