Includes en ASP

[kevin22]

Hola!
En diversas paginas ASP realizo la misma conexion a una Base de Datos. Se que hay una manera de poner esta conexion en un archivo aparte e incluir dicho archivo en cada pagina ASP que usa esa conexion. Como se hace?
Gracias.

[Changes_76]

Para realizar esto puedes utilizar lo siguiente:

<%
option explicit
%>
<!--#include file="Funciones.asp"-->


y listo...

Saludos,
Jhonny Vargas

[Yoston]

Hola
mira lo puedes hacer asi...
creas una pagina asp

***conn.asp*****
<%
sub CrearCon()
Application.Lock()
BD= "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("Tu_BD.mdb;")
set Conexion=server.CreateObject ("ADODB.connection")
Conexion.Open BD
Application.UnLock()
end sub

sub CrearRs()
Application.Lock()
set rs = Server.CreateObject("ADODB.Recordset")
Application.UnLock()
end sub

Sub RSEjecutar(senSQL)
Application.Lock()
rs.Open senSQL, Conexion
Application.UnLock()
End Sub
%>


*****en otra pagina*****
<!--#include file="conn.asp"-->
<%
Dim Conexion, rs, SQL
CrearCon
CrearRs
SQL = "select * from... "
RSEjecutar(SQL)

if rs.eof then
..
else
...
end if

etc...

Espero que te sirva..
;)

[kevin22]

Gracias por la ayuda, pero se podria hacer igual sin la necesidad de poner tantas funciones? Algo del estilo:

***conn.asp*****
<%
BD= "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("Tu_BD.mdb;")
set Conexion=server.CreateObject ("ADODB.connection")
Conexion.Open BD

set rs = Server.CreateObject("ADODB.Recordset")
%>


*****en otra pagina*****
<!--#include file="conn.asp"-->
<%
sSQL = "select * from... "
rs.Open sSQL, conexion
%>

Gracias

[Yoston]

Claro...es como uno quiera
pero yo lo hago ordenado por si luego necesito reutilizar codigo ..solo cambio el tipo de BD ...pero esa es la idea
tu ve como lo haces.. :-p