Script para accesar a una BD

[Manoloweb]

Espero que le sirva a alguien...

Código:

Dim webStrConn
webStrConn=  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")

Function webDato(tipo,query,tabla,campo,criterio)  'tipo = 1.SELECT 2.Query, query 
	Dim webConn, webRs, strSQL
	if tipo=1 then
		strSQL="SELECT * FROM "&tabla&" WHERE "&campo&"="&criterio
	else
		strSQL=query
	end if
	set webConn = Server.CreateObject("ADODB.Connection")
	webConn.Open webStrConn
	set webRs = webConn.Execute (strSQL)
	set webDato = webRs
End Function