error instruccion update asp
Publicado por Miguel A. (2 intervenciones) el 05/01/2007 12:08:56
Alguien me podria ayudar con error de update me estoy volviendo loco para arreglarlo:
error de sistasis con la instruccion update.
expongo el codigo y muchas gracias de antemano.
<!--#include file="Admin.asp"-->
<!--#include file="Funciones.asp"-->
<%
AbreConexion
'Cogemos los Valores del FORM
Nombre = Request.Form("Nombre")
Apellidos = Request.Form("Apellidos")
Direccion = Request.Form("Direccion")
CodPostal = Request.Form("CodPostal")
Poblacion = Request.Form("Poblacion")
Provincia = Request.Form("Provincia")
Movil = Request.Form("Movil")
Telefono = Request.Form("Telefono")
EMail = Request.Form("EMail")
Dni = Request.Form("Dni")
Observaciones = Request.Form("Observaciones")
'Asignamos las Nuevas Sessions
Session("Nombre")=Nombre
Session("Apellidos")=Apellidos
Session("Direccion")=Direccion
Session("CodPostal")=CodPostal
Session("Poblacion")=Poblacion
Session("Provincia")=Provincia
Session("Movil")=Movil
Session("Telefono")=Telefono
Session("EMail")=EMail
Session("Dni")=Dni
Session("Observaciones")=Observaciones
'Generamos la Cadena SQL
TxtSql = "UPDATE Pacientes Set Id = " & IdPaciente & ""
TxtSql = TxtSql & "Nombre = '" & Nombre & "',"
TxtSql = TxtSql & "Apellidos = '" & Apellidos & "',"
TxtSql = TxtSql & "Direccion = '" & Direccion & "',"
TxtSql = TxtSql & "CodPostal = '" & CodPostal & "',"
TxtSql = TxtSql & "Poblacion = '" & Poblacion & "',"
TxtSql = TxtSql & "Provincia = '" & Provincia & "',"
TxtSql = TxtSql & "Movil = '" & Movil & "',"
TxtSql = TxtSql & "Telefono = '" & Telefono & "',"
TxtSql = TxtSql & "EMail = '" & EMail & "',"
TxtSql = TxtSql & "Dni = '" & Dni & "',"
TxtSql = TxtSql & "Observaciones = '" & Observaciones & "'"
TxtSql = TxtSql & " WHERE Id=" & Session("IdPaciente")
Cn.Execute TxtSql
'Cerramos la Conexion
CierraConexion
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("Modificación realizada correctamente.")
//-->
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<META HTTP-EQUIV="refresh" CONTENT="0;URL=ListPacientes.asp"><%'Para cambiar de página despues de guardar"%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>E-Loggy.com</title>
</head>
<link rel=stylesheet type="text/css" href="estilos.css">
<BODY class="BODY" leftmargin="5">
<base target="principal">
Sistema procesando datos...
</body>
</html>
error de sistasis con la instruccion update.
expongo el codigo y muchas gracias de antemano.
<!--#include file="Admin.asp"-->
<!--#include file="Funciones.asp"-->
<%
AbreConexion
'Cogemos los Valores del FORM
Nombre = Request.Form("Nombre")
Apellidos = Request.Form("Apellidos")
Direccion = Request.Form("Direccion")
CodPostal = Request.Form("CodPostal")
Poblacion = Request.Form("Poblacion")
Provincia = Request.Form("Provincia")
Movil = Request.Form("Movil")
Telefono = Request.Form("Telefono")
EMail = Request.Form("EMail")
Dni = Request.Form("Dni")
Observaciones = Request.Form("Observaciones")
'Asignamos las Nuevas Sessions
Session("Nombre")=Nombre
Session("Apellidos")=Apellidos
Session("Direccion")=Direccion
Session("CodPostal")=CodPostal
Session("Poblacion")=Poblacion
Session("Provincia")=Provincia
Session("Movil")=Movil
Session("Telefono")=Telefono
Session("EMail")=EMail
Session("Dni")=Dni
Session("Observaciones")=Observaciones
'Generamos la Cadena SQL
TxtSql = "UPDATE Pacientes Set Id = " & IdPaciente & ""
TxtSql = TxtSql & "Nombre = '" & Nombre & "',"
TxtSql = TxtSql & "Apellidos = '" & Apellidos & "',"
TxtSql = TxtSql & "Direccion = '" & Direccion & "',"
TxtSql = TxtSql & "CodPostal = '" & CodPostal & "',"
TxtSql = TxtSql & "Poblacion = '" & Poblacion & "',"
TxtSql = TxtSql & "Provincia = '" & Provincia & "',"
TxtSql = TxtSql & "Movil = '" & Movil & "',"
TxtSql = TxtSql & "Telefono = '" & Telefono & "',"
TxtSql = TxtSql & "EMail = '" & EMail & "',"
TxtSql = TxtSql & "Dni = '" & Dni & "',"
TxtSql = TxtSql & "Observaciones = '" & Observaciones & "'"
TxtSql = TxtSql & " WHERE Id=" & Session("IdPaciente")
Cn.Execute TxtSql
'Cerramos la Conexion
CierraConexion
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("Modificación realizada correctamente.")
//-->
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<META HTTP-EQUIV="refresh" CONTENT="0;URL=ListPacientes.asp"><%'Para cambiar de página despues de guardar"%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>E-Loggy.com</title>
</head>
<link rel=stylesheet type="text/css" href="estilos.css">
<BODY class="BODY" leftmargin="5">
<base target="principal">
Sistema procesando datos...
</body>
</html>
Valora esta pregunta
0