Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/03/2008, 13:06
GUW
 
Fecha de Ingreso: julio-2006
Mensajes: 45
Antigüedad: 18 años, 9 meses
Puntos: 1
Exclamación Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

Hola amigos.

Un error en la programacion me esta volviendo loco.
Dejo el codigo, por si alguien ve lo que yo no veo. Saludos.
Me devuelve el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''Tenemos la esperanza de que nos conceda la oportunidad de servirle con nuestros conocimientos del mercado internacional con el fin de incrementar su 'portfolio' de propiedades con algo que sea realmente no solo una inversión más, sino aquello que provoque q'.

/mn_guardar_nosotros.asp, line 37

El codigo:

<%
Option Explicit

'Definición de variables

Dim Base
Dim Tabla
Dim SQL
Dim cod_nosotros
Dim nosotros1
Dim nosotros2
Dim nosotros3
Dim activo
Dim orden
Dim ant_orden

'Fin de la definición de variables

cod_nosotros = request.Form ("cod_nosotros")
if cod_nosotros = "" then cod_nosotros = "#"
nosotros1 = request.Form("nosotros1")
nosotros2 = request.Form("nosotros2")
nosotros3 = request.Form("nosotros3")
if request.Form("activo") <> "" Then activo = "True" Else activo = "False"
orden = request.Form("orden")
ant_orden = request.Form("ant_orden")
if ant_orden = "" Then ant_orden = "9999"

SET Base = Server.CreateObject("ADODB.Connection")
base.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:/business/louduniversal.com/private/ louduniversal mdb"

If cod_nosotros = "#" Then
SQL = "Insert Into nosotros (cod_nosotros, nosotros1, nosotros2, nosotros3, activo, orden) values ('#', '" & nosotros1 & "', '" & nosotros2 & "', '" & nosotros3 & "', " & activo & ", " & orden & ")"
Else
SQL = "Update nosotros Set nosotros1='" & nosotros1 & "', nosotros2='" & nosotros2 & "', nosotros3='" & nosotros3 & "', activo=" & activo & ", orden=" & orden & " Where cod_nosotros='" & cod_nosotros & "'"
end If
Base.Execute SQL