
29/01/2005, 07:24
|
| | Fecha de Ingreso: diciembre-2003
Mensajes: 46
Antigüedad: 21 años, 4 meses Puntos: 0 | |
Error al insertar registro! Que me suicido eh?? Dios mio! como puede ser que algo tan facil se complique tanto? recurro a vosotros para ver si alguien me alumbra y me enseña el camino, porque yo no puedo massss!! echo humo!
Lo que tengo:
5 campos de texto y un boton submit dentro de un formulario que al pulsar ha de introducir los registros esos en una Bd.
Y me dice error en la consulta INSERT INTO!! pero yo no veo nada mal ya!
-------cnxLongJorn.asp-------
Dim MM_cnxLongJorn_STRING
MM_cnxLongJorn_STRING = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mapPath("/LongJorn/access_db/longjorn.mdb")
-----
<!--#include file="Connections/cnxLongJorn.asp" -->
'INSERCION DE REGISTROS
Dim MM_editAction
Dim valorNombre
Dim valorApellidos
Dim valorUsuario
Dim valorPassword
Dim valorEmail
Dim MM_editQuery
Dim MM_editConnection
If (CStr(Request("campoOculto")) = "Form2") Then
valorNombre=CStr(Request.Form("txtNombre"))
valorApellidos=CStr(Request.Form("txtApellidos"))
valorUsuario=CStr(Request.Form("txtUsuario"))
valorPassword=CStr(Request.Form("txtPassword"))
valorEmail=CStr(Request.Form("txtEmail"))
MM_editQuery="Insert into usuarios(Nombre,Apellidos,Usuario,Password,Email)v alues('"&valorNombre&"','"&valorApellidos&"','"&va lorUsuario&"','"&valorPassword&"','"&valorEmail&"' )"
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
MM_editCmd.ActiveConnection.Close
Response.Redirect("login_ok.asp")
End if
Mil gracias por intentarlo. |