Hola gente,
Ya no beo los errores mas tontos. El siguiente codigo:
<%
' Cargamos las Constantes
%>
<!-- #include file="adovbs.inc" -->
<%
' cadena de conexion con Access Jet
' Base de Datos
Dim conn_consulta
' cadena de conexion con Access Jet
'conn_consulta = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ("d:\www\midominio.com\www\consultas.mdb")
' Declaracion de variables.
' Objetos ADO
Dim cnn_consulta, rst_consulta
' Variables de control
Dim strSQL 'Para contener las sentencias SQL
'Variables de campos de la base de datos
Dim fld_Id_Consulta
Dim fld_Id_cliente
Dim fld_Nombre_cliente
Dim fld_Apellidos_cliente
Dim fld_Mail_cliente
Dim fld_Estado_cliente
Dim fld_Residencia_cliente
Dim fld_Edad_cliente
Dim fld_Consulta
Dim fld_Order
Dim fld_Importe
Dim fld_Fecha
Dim fld_result
Dim fld_pszPurchorderNum
Dim fld_pszTxnDate
Dim fld_tipotrans
Dim fld_store
Dim fld_pszApprovalCode
Dim fld_pszTxnID
Dim fld_coderror
Dim fld_deserror
'Recuperamos los parametros
id_consulta = request.Cookies("id")
fld_result = request.querystring("result")
fld_order = request.querystring("pszPurchorderNum")
fld_pszTxnDate = request.querystring("pszTxnDate")
fld_tipotrans = request.querystring("tipotrans")
fld_store = request.querystring("store")
if fld_result = 0 then
fld_pszApprovalCode = request.querystring("pszApprovalCode")
fld_pszTxnID = request.querystring("pszTxnID")
else
fld_coderror = request.querystring("coderror")
fld_deserror = request.querystring("deserror")
end if
' Construimos la sentencia SQL.
strSQL = "UPDATE consultas SET " _
& "result = '" & fld_result & "', " _
& "order = '" & fld_order & "', " _
& "pszTxnDate = '" & fld_pszTxnDate & "', " _
& "pszApprovalCode = '" & fld_pszApprovalCode & "', " _
& "pszTxnID = '" & fld_pszTxnID & "' " _
& "coderror = '" & fld_coderror & "', " _
& "deserror = '" & fld_deserror & "' " _
& "WHERE (id_consulta =" & id_consulta & ")"
Set cnn_consulta = Server.CreateObject("ADODB.Connection")
cnn_consulta.Open CONN_Consulta
cnn_consulta.Execute strSQL, adAffectAll, adCmdText Or adExecuteNoRecords
cnn_consulta.Close
Set cnn_consulta = Nothing
%>
Me da el siguiente error:
Microsoft JET Database Engine error '80040e14'
Error de sintaxis en la instrucción UPDATE.
/_operacion.asp, line 133
un cable por favor, llevo toda la tarde.
Gracias.
Un saludo.