Directorio Virtual y BD

[pumuky]

Hola, Prueba así:

<%
Dim rs, conn, SQL

Set rs = CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\datos\mascotas.mdb"))

SQL="Select * From nom_mascota"
Set rs= conn.Execute(SQL)
...
...
...
rs.Close