Foros del Web » Programando para Internet » ASP Clásico »

error de formulario

Estas en el tema de error de formulario en el foro de ASP Clásico en Foros del Web. Mi página me presenta el siguiente error: Microsoft JET Database Engine (0x80040E14) Error de sintaxis en la instrucción INSERT INTO. esta página es para verificar ...
  #1 (permalink)  
Antiguo 20/02/2003, 14:40
 
Fecha de Ingreso: febrero-2003
Ubicación: Osorno
Mensajes: 2
Antigüedad: 21 años, 3 meses
Puntos: 0
error de formulario

Mi página me presenta el siguiente error:

Microsoft JET Database Engine (0x80040E14)
Error de sintaxis en la instrucción INSERT INTO.

esta página es para verificar los datos ingresados a una base de datos desde un formulario el código completo es el siguiente:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body background="../imagenes/AREA%20DE%20MATEMATICA.gif">
<p align="center"> <font size="3" face="Tahoma, Century Gothic"> <strong> <font size="2">
<%
Dim nombres, apellidos, mail, establecimiento, ciudad, pais, usuario, password
Dim correcto
Dim oConn, rs, SQL

'Recogemos el formulario
nombres=Request.Form("nombres")
apellidos=Request.Form("apellidos")
mail=Request.Form("mail")
establecimiento=Request.Form("establecimiento")
ciudad=Request.Form("ciudad")
pais=Request.Form("pais")
usuario=Request.Form("usuario")
password=Request.Form("password")

correcto=True
'Comprobamos que no hay campos vacíos
if nombres="" then correcto=False end if
if apellidos="" then correcto=False end if
if mail="" then correcto=False end if
if establecimiento="" then correcto=False end if
if ciudad="" then correcto=False end if
if pais="" then correcto=False end if
if usuario="" then correcto=False end if
if password="" then correcto=False end if

if correcto then
'Solo si todo está bien, comprobamos con la bd

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("base_datos.mdb")
SQL="SELECT * FROM datos WHERE (usuario='"&usuario&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, así que le insertamos en la bd
sSQL="INSERT INTO datos (nombres, apellidos, mail, establecimiento, ciudad, pais, usuario, password) VALUES ('"&nombres&"', '"&apellidos&"', '"&mail&"','"&establecimiento&"','"&ciudad&"','"&p ais&"','"&usuario&"','"&password &"');"
Response.Write("Gracias por registrarte, "& usuario)
oConn.Execute(sSQL)
end if
'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else

'El usuario ha ingresado datos incorrectos
Response.Write("Datos incorrectos!")
end if

%>
</font></strong></font></p>
<p align="center"><font size="2" face="Tahoma, Century Gothic"><a href="inscripcion.asp"><strong>Volver
al formulario</strong></a> / <strong><a href="index.htm">Iniciar Aula Virtual</a></strong></font></p>
</body>
</html>


ESPERO QUE ME PUEDAN AYUDAR CON ESTE PROBLEMILLA
de antemano gracias
  #2 (permalink)  
Antiguo 21/02/2003, 11:45
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Pon esto:

sSQL="INSERT INTO datos (nombres, apellidos, mail, establecimiento, ciudad, pais, usuario, password) VALUES ('"&nombres&"', '"&apellidos&"', '"&mail&"','"&establecimiento&"','"&ciudad&"','"&p ais&"','"&usuario&"','"&password &"');"
Response.Write("Gracias por registrarte, "& usuario)
Response.Write sSQL
'oConn.Execute(sSQL)

Y pon lo que te imprime
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:38.