Me salta un error que no comprendo. Yo creo que deberia aceptar. A ver si me pueden ayudar.
Cita: Microsoft JET Database Engine error '80040e14'
Error de sintaxis en la instrucción INSERT INTO.
../funciones.asp, line 58
Código:
<%
sub agregarcliente
dim pagina_regreso
pagina_regreso="registro.asp"
dim email,clave,confirmclave
email=trim(request("email"))
clave=request("clave")
confirmclave=request("confirmclave")
response.write email&"<br>"
response.write clave&"<br>"
response.write confirmclave&"<br>"
if email="" then
error_formulario "Debes introducir una dirección de correo electrónico",pagina_regreso
end if
if emailnovalido(email) then
error_formulario "Debes introducir una dirección de correo válida",pagina_regreso
end if
if existe_cliente(email) then
error_formulario "Ya exíste un cliente con ese email de acceso",pagina_regreso
end if
if compara_clave(clave,confirmclave) then
error_formulario "Las dos contraseñas deben coincidir",pagina_regreso
end if
'AQUI TENGO QUE INTRODUCIR TODOS LOS DATOS DEL ***NUEVO USUARIO***
dim agrg_user
clave=Cstr(clave)
response.write clave&"<br>"
agrg_user="INSERT INTO CLIENTES(EMAIL,PASSWORD) VALUES('"&email&"','"&clave&"')"
objConCli.execute agrg_user
end sub
%>
<%
function emailnovalido(email)
if instr(email,"@")=0 or instr(email,".")=0 then
emailnovalido="true"
else
emailnovalido="false"
end if
end function
%>
<%
function existe_cliente(email)
dim existe_sql,objexiste
existe_sql="SELECT EMAIL FROM CLIENTES WHERE EMAIL='"&email&"'"
set objexiste=Server.CreateObject("ADODB.recordset")
objexiste.open existe_sql,objConCli
if objexiste.eof then
existe_cliente="false"
else
existe_cliente="true"
end if
objexiste.close
set objexiste=nothing
end function
%>
<%
function compara_clave(clave,confirmclave)
if StrComp(clave,confirmclave,0)<>0 then
compara_clave="true"
else
compara_clave="false"
end if
end function
%>
<% sub error_formulario(mensaje,pag_regreso) %>
<!--mensaje que devuelve y pgina a la que vuelve-->
<HTML><BODY bgcolor="#FFFF99">
<form method="post" action="<%=pag_regreso%>">
<table width="300" border="0" align="center" cellpadding="5" cellspacing="5">
<tr>
<td align="center"><b>Hay un problema con la informacin
introducida</b></td>
</tr>
<tr>
<td align="center"><b><%=mensaje%>!!</b></td>
</tr>
<tr>
<td align="center"><input type="hidden" name="ierror" value="1"></td>
</tr>
<tr>
<td align="center">
<%
dim campo
for each campo in request.form
%>
<input type="hidden" name="<%=campo%>" value="<%=request(campo)%>">
<% next %>
</td>
</tr>
<tr>
<td align="center"><input type="submit" value="Volver"></td>
</tr>
</table>
</form>
<% response.end
end sub %>
el rpoblema esta en al subrutian agregar cliente que lalmo desde el archivo compruebareg.asp:
Código:
<%
dim objConCli
set objConCli=Server.CreateObject("ADODB.Connection")
objConCli.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../Data/clientes.mdb")&";"
%>
<!--#include file="funciones.asp"-->
<%
dim ierror
ierror=request("error")'detecta si ha habido algún error en el ingreso del formulario
if ierror="" then 'que ierror venga vacío
agregarcliente ' función que se encontrará en funciones.asp
end if
objConCli.close
set objConCli=nothing
%>
A ver si pueden ayudarme, por favor. Que estoy bloqueadisimo. Garcias y un saludo.