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

[Manoloweb]

Funcion para generar un recordset con el resultado de un query SQL
Si {tipo} es =1 se corre un select en la {tabla} en el {campo} en busca del {criterio}
Si tipo es otro valor, se ejecuta la sentencia SQL del {query}

Ejemplo de Uso:

Código:

set web = webDato (1,,"Categorias","catID",1)
	while not  web.EOF
		response.write web("descripcion")
	web.movenext
wend	

set web2 = webDato (0,"SELECT * FROM Productos WHERE ID=1",0,0,0)
	while not  web2.EOF
		response.write web2("descripcion")
	web2.movenext
wend

[splashman]

creo que deberias de ingresarlo a la faqs de asp

este es el link

http://www.forosdelweb.com/showthrea...threadid=89836

salu2