urgente funciones en asp y bases de datos

[Saruman]

prueben con esta. me funciona perfectamente y es la que utilizo en todos mis portales

funcion.asp

Código:

Function DBOpenConection()
  Dim Master
  strDBPath = "db/datos.mdb"
	 
  Set Master = Server.CreateObject("ADODB.Connection")
  Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strDBPath))
  Set DBOpenConection = Master
End Function

default.asp

Código:

<!--#include file="funcion.asp"-->

set Master = DBOpenConection()

sql = "select * from tabla"
set RS = Master.Execute(sql)