No conecto con la base de datos.
Publicado por Harp (3 intervenciones) el 03/12/2007 18:01:13
Hola:
Estoy haciendo una prueba con asp para acceder a una simple base de datos, la cuestión es que me da el siguiente error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/barri/Default.asp, line 14
Esto si entro en la página con el navegador Opera, si entro con internet explorer no dice nada, simplemente no funciona. He probado a subir varios códigos de ejemplo de distintas páginas (con sus bases de datos correspondientes) y ninguno me funciona, comienzo a pensar que puede ser cosa del servidor gratuito www.titanichost.com
A ver que podeis contarme, el código es el siguiente:
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<%
Dim Conn, objRS, strConnection
Set Conn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER=Microsoft Access Driver(*.mdb); DBQ=" & Server.MapPath("/barri/db/prueba.mdb")
Response.Write strConnection
oConn.Open(strConnection)
Response.Write "Conexión con la base de datos conseguida."
strSQL = "SELECT Nombre, Apellidos FROM prueba"
Set objRS = oConn.Execute(strSQL)
%>
Fecha <%= Now ()%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</body>
</html>
Estoy haciendo una prueba con asp para acceder a una simple base de datos, la cuestión es que me da el siguiente error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/barri/Default.asp, line 14
Esto si entro en la página con el navegador Opera, si entro con internet explorer no dice nada, simplemente no funciona. He probado a subir varios códigos de ejemplo de distintas páginas (con sus bases de datos correspondientes) y ninguno me funciona, comienzo a pensar que puede ser cosa del servidor gratuito www.titanichost.com
A ver que podeis contarme, el código es el siguiente:
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<%
Dim Conn, objRS, strConnection
Set Conn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER=Microsoft Access Driver(*.mdb); DBQ=" & Server.MapPath("/barri/db/prueba.mdb")
Response.Write strConnection
oConn.Open(strConnection)
Response.Write "Conexión con la base de datos conseguida."
strSQL = "SELECT Nombre, Apellidos FROM prueba"
Set objRS = oConn.Execute(strSQL)
%>
Fecha <%= Now ()%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</body>
</html>
Valora esta pregunta
0
