archivo unico para los recordset

[JuanRAPerez]

conexion.asp

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

asi como dijo Adler...
luego llamas las funciones en cada pagina que uses....

suerte