subrutina que conecta a base de datos

[trasgukabi]

es que conectas con la BBDD pero no creas el recordset.

podrías hacer:

Código:

function abreconexion()
	Set abreconexion = Server.CreateObject("ADODB.Connection")
	abreconexion.open "la cadena que sea"
end function

function abrers(sql)
	set abrers=server.CreateObject("ADODB.recordset")
	abrers.CursorType = 0
	abrers.LockType = 1
	abrers.CursorLocation = 3
	abrers.open sql,conn
end function

y después llamarlo así:

Código:

set conn=abreconexion
set rs=abrers(sql)