archivo unico para los recordset

[Peiping]

Hola,
La consulta es la siguiente.
Yo tengo una conexión a mi base de datos.
Y luego por cada ASP, voy creando los juegos de registros... pero estos van ¨ensuciando¨ el código fuente propio de la ASP.

Existe alguna manera de pasar toda esa información a una ASP que unica que unifique todos los juegos de registros ???

Espero que se entienda la idea... !!!

tks

[JuanRAPerez]

yo la verdad no entendi pero si lo que quieres es hacer un codigo mas limpio si usas los mismos RS, entonces puedes usar funciones, para re utilizar la creacion de tus RS y asi solo llamar la funcion en todas las paginas que la ocuparas

suerte, si comentas mas te podrian ayudar mas.

[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

[Peiping]

Muchas gracias Adler por tus comentarios... la verdad soy bastante inexperto en esto... y me guío mas por los ejemplos y tutoriales que voy leyendo. Y lo que pusiste mucho no me quedó claro.... podrías explicarme un poco más

te lo ejemplifico con mis archivos así quizá me quede mas claro

yo tengo

peiping.mdb

luego cree una conexión a esa base... que la tengo en mi carpeta
...connection/connpeiping.asp
- donde en el código está la conexión -
Este archivo se mantiene tal cual ? o lo tengo que modificar ?

que tipo archivo tengo que generar para el código que me pasaste ?


help... quiero rediseñar mi web... de la mejor manera posible..

muchas tks

[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