archivo unico para los recordset

[Adler]

Creo que se refiere a crear una conexión por defecto tipo

Sub Conectar
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("xx.mdb"))
End Sub

Sub Registro (id)
' Crea un recordset
set id=Server.CreateObject("ADODB.Recordset")
End Sub

Sub LimpiarReg (registro)
registro.Close
set registro=nothing
End Sub

Sub LimpiarCon ()
oConn.Close
set oConn=nothing
End Sub

Ahora en cada página usas un include

Para conectarte

Call Conectar
Call Registro (rs)

Para limpiar

Call LimpiarReg (rs)
Call LimpiarCon

Suerte