Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/10/2005, 07:12
mamachicho
 
Fecha de Ingreso: diciembre-2003
Mensajes: 46
Antigüedad: 20 años, 3 meses
Puntos: 0
Error en insercion de campo de texto a base de datos!! Que triste!

Pues si, que no soy capaz de hacer una insercion de registros en una tabla de una base de datos....
El caso es que me devuelve un error (al estilo del 404 del explorer), y no se porqué es. He ido comentando lineas hasta que veo que el error lo da en el momento de ejecutar la sentencia SQL (.Execute)
Os pego este trozito de codigo, que es donde casca:

Dim MM_Accion_Insertar
Dim MM_editConnection
Dim MM_editQuery
Dim valorComentario
Dim valorUsuario
Dim valorfecha

Dim MM_cnxLongJorn_STRING
MM_cnxLongJorn_STRING = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mapPath("/LongJorn/access_db/longjorn.mdb")
MM_Accion_Insertar = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (CStr(Request("hdFormulario")) = "Form2") Then
valorComentario=CStr(Request.Form("txtComentario") )
valorUsuario=Request.Cookies("Usuario")
valorfecha=Date()
MM_editQuery="insert into comentarios(Id,Comentario,Fecha,Usuario)values('"& idComentario&"','"&valorComentario&"','"&valorfech a&"','"&valorUsuario&"')"
MM_editConnection = MM_cnxLongJorn_STRING
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute 'Aqui es donde casca
MM_editCmd.ActiveConnection.Close

por cierto que valorfecha me lo escribe valorfech a pero eso es cosa de aqui, de este foro.