Ya he metido el codigo de validación en la pagina. Y ahora no me funciona del todo bien. Llevo dos días peleandome y no consigo ver el error.
Si dejo la casilla "fecha de validación" en blanco o añado cualquier letra, valida bien.
Si pongo un fecha válida: 14/10/2004 o 14/10/2 me devuelve el siguiente error:
-------------
Microsoft OLE DB Provider for ODBC Drivers
error '80004005' [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la instrucción INSERT INTO. /turofertas/gestion_mayoristas/ofertas/insertar/insertar_ofertas_result.asp, línea 86
-----------------
Por favor podríais echarle un vistazo al código. Es que no entiendo que pasa y me estoy volviendo loco. Ya sueño con la peich.
Gracias
Código:
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Administrar Ofertas</title>
</head>
<!--#INCLUDE file="../../../adovbs.asp"-->
<%
'Aquí se usa la coleccion upload.form debido a que el componente AspUplad no
'se lleva bien con el request.form del ASP
Set Upload = Server.CreateObject("Persits.Upload.1")
'Carpeta donde se subirán los ficheros
Upload.Save("d:\xvrt\clubviajesoferta.com\html\amanciodeportes\images\prueba")
'Upload.Save("c:\Inetpub\turofertas\images\prueba")
%>
<%
set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=clubviajesoferta.com.turofertas"
Conn.open
Set RS=Server.CreateObject("ADODB.Recordset")
rs.activeconnection=conn
rs.source="ofertasmayoristas"
rs.Locktype = adLockOptimistic
rs.CursorType = adOpenDinamic
rs.open
'Recupera las variables del formulario
referenciaoferta= Trim(upload.Form("referenciaoferta"))
denominacionoferta= Trim(upload.form("denominacionoferta"))
mayoristaoferta= Trim(upload.Form("mayoristaoferta"))
fechavalidezoferta= Trim(upload.form("fechavalidezoferta"))
imagenproducto=trim(upload.form("imagenproducto"))
insertar="True"
'Validamos el formulario
if referenciaoferta= "" then
response.write("<ul><div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Referencia""</em> está vacio</font></div>")
insertar="False"
end if
if denominacionoferta= "" then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Denominación""</em> está vacio </font></div>")
insertar="False"
end if
if mayoristaoferta= "" then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Mayorista""</em> está vacio </font></div>")
insertar="False"
end if
If NOT IsDate(fechavalidezoferta) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Fecha Validación""</em> contiene una fecha incorrecta </font></div>")
insertar="False"
'else
'response.write "La fecha de validez una vez convertida es: " & Cdate(fechavalidez) & "<br>"
end if
'Añadimos el registro
rs.addnew
For each Parametro in upload.Form
'Aquí recogemos el valor del campo del formulario porque las variables solo
'se usan para validar el formulario, debido a que no hay forma de recoger
'los valores que hay en las variables para meterlas en la base de datos
if rs(parametro.name)="fechavalidezoferta" then
'rs(parametro.value)=FormatDateTime(Date, 2)
rs(parametro.name)=(parametro.value)
end if
Next
'Este For-Next hace que el fichero se suba al servidor
ruta="../images/prueba/"
For Each File in Upload.Files
rs(File.name)=ruta & (File.filename)
'Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
Next
If Insertar="True" then
rs.Update
%>
<table width="100%" border="0">
<tr>
<td width="87%"><div align="right"><font face="Arial, Helvetica, sans-serif"><a href="../modulo_gestion.asp"><font size="2">Menú Principal</font></a> </font></div></td>
<td width="13%"><div align="right"><font size="2"><a href="frame_insertar.htm" target="_parent"><font face="Arial, Helvetica, sans-serif">Otra Inserción</font></a> </font></div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<font face="Arial, Helvetica, sans-serif" size="3" color="#FB4C50">
<p> </p>
<p> </p>
<p> </p>
<p><strong>LA OFERTA SE HA AÑADIDO A LA BASE DE DATOS CORRECTAMENTE</p></strong></font>
</div></td>
</tr>
</table>
<%
else
rs.cancelupdate
response.write("<div align=""center""><br><strong><font face= ""Arial, Helvetica, sans-serif"" size=""3"" color=""#FB4C50"">" & "El producto no se ha añadido a la base de datos. <br>El/los campo/s arriba indicados no contienen datos o no son correctos. <p> <a href=""javascript:history.back()"">Pulse aquí para poder completar los datos correctamente</strong></font></a></div>")
End if
rs.close
conn.close
%>
<body>
</body>
</html>