Bueno, por lo poco que le ví a tu codigo, puedo comentarte que .... no tiene mucho sentido, jejeje, es decir, hipotéticamente insertarias tantos registros como parámetros recibieras (como lo observó El_Metallick -Saludos-), pero no lo haces, solo pretendes hacer el último. Creo que tu código podría resumirse a:
Código:
<%
If IsEmpty(Request.Form("NombreUsuario")) or IsEmpty(Request.Form("correo")) or IsEmpty(Request.Form("Comentarios")) Then
Response.Redirect "formulario.htm"
End If
'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"))
%>
<html><head><title>Untitled</title><link rel="STYLESHEET" type="text/css" href="css/letras.css">
</head>
<body>
Nombre: <%=Request.Form("NombreUsuario")%>
Correo Electrónico: <%=Response.Write(cor)%>
Tipo de comentario: <%Tcomen=Request.Form("TipoMensaje")%>
Comentarios: <%=Response.Write(comen)%>
<%
strSQL = "insert into comentario (Nombre, Comentario, Correo, Tipo_Comentario) values ('" & Request.Form("NombreUsuario") & "','" & Request.Form("Comentarios") & "', '" & Request.Form("Correo") &"', '" & Request.Form("TipoMensaje") & "')"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
%>
</body>
</html>
Ahora, no posteaste correctamente el error, pero por la clave (0x80004005), casi siempre o es el error de la consulta actualizable (permisos a la carpeta donde esta la BD) o tienes el Access abierto cuando lo estas corriendo (se soluciona mediante los medios de apartura), pero para asegurarte necesito que postees el error correctamente.
Saludos