
20/02/2003, 14:40
|
| | Fecha de Ingreso: febrero-2003 Ubicación: Osorno
Mensajes: 2
Antigüedad: 22 años, 2 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 |