hola a todos.
Estoy de practicante en una empresa y estoy desarropllando su paguina, pero me he topado con un error q no he podido solucionar, el error es este:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] Escriba su Nombre
/procesar02.asp, línea 65
Y este es el codigo:ç
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ LANGUAGE="VBSCRIPT" %>
<%
'Conectamos a la BD.
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./comentarios.mdb"))
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./comentarios.mdb")
'Con una sentencia SQL pedimos toda la BD.
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Comentario"
RS.Open sql, oConn
%>
<html>
<head>
<title>Untitled</title>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
</head>
<body >
<form>
<%x=""%>
Nombre: <%nom=Request.Form("NombreUsuario")
If nom="" then
Response.Redirect "formulario.htm"
ElseIf nom <> x then
Response.Write(nom)
'strSQL = "insert into comentario (Nombre) values ('" & Request.Form("NombreUsuario") & "')"
'oConn.Execute "INSERT INTO comentario (Nombre) VALUES ('" & Request.Form("NombreUsuario") & "')"
RS.Requery
End If
%>
<p>
Correo Electrónico: <%cor=Request.Form("correo")
If cor="" then
Response.Redirect "formulario.htm"
ElseIf cor <> x then
strSQL = "insert into comentario (correo) values ('" & Request.Form("correo") & "')"
Response.Write(cor)
End If
%>
<p>
Tipo de comentario: <%Tcomen=Request.Form("TipoMensaje")
Response.Write(Tcomen)
strSQL = "insert into comentario (Tipo_Comentario) values ('" & Request.Form("TipoMensaje") & "')"
%>
</p>
<p>
Comentarios: <%comen=Request.Form("Comentarios")
If comen="" then
Response.Redirect"formulario.htm"
ElseIf nom <> x then
strSQL = "insert into comentario (Nombre, Comentario) values ('" & Request.Form("NombreUsuario") & "','" & Request.Form("Comentarios") & "')"
Response.Write(comen)
End If
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
%>
</p>
</Form>
</body>
</html>
en la base de datos solo me muestra el resulta del formulario comentarios, los otros 3 estan en blanco, les agradeceria su ayuda.