HOla gente estoy intentado insertar en una base de datos ACCESS unos datos de un formulario y me da el siguiente error:
Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis en la instrucción INSERT INTO.
/prueba/insertar.asp, line 37
he repasado el INSERT creo que lo tengo bien, y la conexion a la base de datos tambien funciona seguro.
¿ me podeis hechar una mano ? os pongo el codigo
<%
Dim snombre, scriador, sNombreCriadero,spassword,semail
Dim correcto
Dim Conn, RES, SQL,rSQL,xSQL
'Recogemos el formulario
snombre=Request.Form("nombre")
scriador=Request.Form("criador")
sNombreCriadero=Request.Form("NombreCriadero")
spassword=Request.Form("password")
semail=Request.Form("email")
correcto=True
'Comprobamos que no hay campos vacíos
if snombre="" then correcto=False end if
if scriador="" then correcto=False end if
if sNombreCriadero="" then correcto=False end if
if spassword="" then correcto=False end if
if semail="" then correcto=False end if
if correcto then
'Solo si todo está bien, comprobamos con la bd
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\yorki.mdb"
'SQL="SELECT * FROM propietario WHERE (nombre='" & snombre &"')"
''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
SQL="INSERT INTO propietario (nombre,email,password) VALUES ('"&snombre&"', '"&semail&"','"&spassword&"')"
Conn.Execute(SQL)
' Response.Write("Gracias por registrarte, "& nombre)
'end if
'Limpiamos objetos
rs.Close
Conn.Close
set rs=nothing
set Conn=nothing
else
'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos o en blanco!")
end if
%>
He puesto varias lineas de codigo comentado por si hacia algo anteriormente que fallara.. pero no esta bien. Saludos
