13/09/2006, 09:59
|
 | | | Fecha de Ingreso: agosto-2006 Ubicación: Santiago
Mensajes: 120
Antigüedad: 18 años, 8 meses Puntos: 0 | |
| <%
sub conexion
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\xxxx\xxx.mdb"))
end sub
------------------
dim conn
call conexion
sql="Select ..."
set rs = conn.execute(sql)
conn.close
set conn=nothing
%> |