Estimado josemgd, seguramente te estés olvidando de incluir el archivo adovbs.inc en tu página asp, necesitas este archivo para poder utilizar las constantes que estás utilizando para definir el tipo de cursor y de bloqueo del recordset.
Si no tienes este archivo incluído en tu página asp no te preocupes simplemente cambia las constantes por sus valores reales, entonces en lugar de poner:
40 rs.CursorType = adOpenKeyset
41 rs.LockType = adLockOptimistic
deberías de poner:
40 rs.CursorType = 1
41 rs.LockType = 3
Eso solucionará tu problema seguramente.
Saludos
