Proyecto: Foro en ASP

[El_Metallick]

Bueno llevamos muy poco del archivo global pues las ideas aun no estan muy claras... en el fondo tenemos solo la centecia de coneccion a la BD.... bueno aqui esta:

Código:

<%
'Declaración de variables
Dim conn
Dim rs
Dim sql
'Conección a la base de datos
'Ruta y nombre de la base de datos
Const BD = "BD/foro.mdb"
 
'Conección sin DSN
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & BD & ""))
 
'Conección con DSN
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "foro"
 
function abrirrs(sql,cursor1,cursor2)
	set abrirrs=server.CreateObject("ADODB.recordset")
	abrirrs.open sql,conn,cursor1,cursor2
end function
 
'forma de llamada
sql="select * from......"
set rs=abrirrs(sql,0,1)
 
function cierrars(rso)
	rso.close
	set rso=nothing
end function
'forma de llamada
cierrarrs(rs)
 
function cierraconexion()
	conn.close
	set conn=nothing
end function
'forma de llamada
cierraconexion
%>

asique desde ahora pueden proponer algunas cosas...
------ Edicion -----
Agregada la funcion propuesta por trasgu... gracias