La primera vez que cargo la pag. asp accede a la BD, después no
Estoy comenzando a programar ASP. He creado una BD con access muy sencilla y un .asp que muestra los campos en una tabla. La primera vez que cargo la página con el explorer funciona bien, pero después, si le doy a recargar por ejemplo, me dice que error desconocido en la esta linea:
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbprueba.mdb"))
Y este es el error que da:
Tipo de error:
Provider (0x80004005)
Error no especificado
/con_bd.asp, line 11
Os pego el código completo.
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbprueba.mdb"))
Response.Write("Conexión con DB conseguida!<br>")
Dim strSQL, objRS
strSQL = "SELECT nombre, fecha_nacimiento FROM personas"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE CELLSPACING=1 CELLPADDING=1 border="1">
<TR><TD> Nombre</TD><TD> Fecha de nacimiento </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("nombre") & "</TD> <td>" & objRS("fecha_nacimiento") & "</td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
Muchas gracias.
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbprueba.mdb"))
Y este es el error que da:
Tipo de error:
Provider (0x80004005)
Error no especificado
/con_bd.asp, line 11
Os pego el código completo.
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbprueba.mdb"))
Response.Write("Conexión con DB conseguida!<br>")
Dim strSQL, objRS
strSQL = "SELECT nombre, fecha_nacimiento FROM personas"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE CELLSPACING=1 CELLPADDING=1 border="1">
<TR><TD> Nombre</TD><TD> Fecha de nacimiento </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("nombre") & "</TD> <td>" & objRS("fecha_nacimiento") & "</td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
Muchas gracias.