Saludos:
No consigo saber por qué no me valida bien los datos de un formulario.
Estoy validando los datos desde otro fichero donde recojo el valor de los campos del formulario en variables.
En el fichero de validación uso una variable de control que se llama insertar que vale True, y luego por cada campo que no sea un número o esté vacio hago que insertar valga false y se muestre un mensaje de error.
Si despues de revisar todos los valores que recibe del formulario insertar vale true hago el update.
El caso es que le da igual que en un campo meta un caracter, lo deje vacio o escriba cualquier barbaridad. Siempre me actualiza los datos.
Les paso el código a ver si ustedes ven el error, porque yo no lo veo...;(
Código:
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="../../../ADOVBS.asp"-->
<%
nombreusuario=request.QueryString("nombreusuario")
ruta=request.QueryString("empresanombrefiscal")
'Recogemos el valor de la variable identificadoroferta. Se usa para determinar el producto
' que vamos a modificar/ver
identificadoroferta=request.querystring("identificadoroferta")
nombreusuario=request.QueryString("nombreusuario")
empresanombrefiscal=request.QueryString("empresanombrefiscal")
referenciahotelcasa=request.QueryString("referenciahotelcasa")
tanohabitaciondoblebano=trim(Request.Querystring("tanohabitaciondoblebano"))
tanohabitaciondoblebanocomun=Trim(Request.Querystring("tanohabitaciondoblebanocomun"))
tanohabitaciondobleespecialbano=Trim(Request.Querystring("tanohabitaciondobleespecialbano"))
tanohabitacionindividualbano=Trim(Request.Querystring("tanohabitacionindividualbano"))
tanohabitacionindividualbanocomun=Trim(Request.Querystring("tanohabitacionindividualbanocomun"))
tanocena=Trim(Request.Querystring("tanocena"))
tanoapartamento=Trim(Request.Querystring("tanoapartamento"))
tanoduplex=Trim(Request.Querystring("tanoduplex"))
tanocasacompleta=Trim(Request.Querystring("tanocasacompleta"))
tanocamasupletoria=Trim(Request.Querystring("tanocamasupletoria"))
tanodesayuno=Trim(Request.Querystring("tanodesayuno"))
tanodesayunobuffet=Trim(Request.Querystring("tanodesayunobuffet"))
tanocomida=Trim(Request.Querystring("tanocomida"))
'Abrimos la tabla tarifasturismo
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="tarifasturismo"
RS.Locktype = adLockOptimistic
RS.CursorType = adOpenDinamic
RS.open
'Localizamos el registro a modificar. Hay que convertir a número "identificadoroferta" porque identificarproducto es
'un campo autonumerico e identificadoroferta es una variable que contiene texto puesto que viene de un formulario
do while rs("referenciahotelcasa") <> referenciahotelcasa
rs.movenext
loop
insertar=True
'Validamos los valores del formulario
if (tanohabitaciondoblebano <> "" and not isnumeric(tanohabitaciondoblebano)) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Habitación doble con baño"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanohabitaciondoblebanocomun <> "" and not isnumeric(tanohabitaciondoblebanocomun) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Habitación doble con baño común"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanohabitaciondobleespecialbano <> "" and not isnumeric(tanohabitaciondobleespecialbano) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Habitación doble especial con baño"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanohabitacionindividualbano <> "" and not isnumeric(tanohabitacionindividualbano) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Habitación individual con baño"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanohabitacionindividualbanocomun <> "" and not isnumeric(tanohabitacionindividualbanocomun) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Habitación individual con baño común"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanocena <> "" and not isnumeric(tanocena) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Cena"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanoapartamento <> "" and not isnumeric(tanoapartamento) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Apartamento"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanoduplex <> "" and not isnumeric(tanoduplex) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Duplex"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanocasacompleta <> "" and not isnumeric(tanocasacompleta) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Casa completa"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanocamasupletoria <> "" and not isnumeric(tanocamasupletoria) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Cama supletoria"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanodesayuno <> "" and not isnumeric(tanodesayuno) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Desayuno"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanodesayunobuffet <> "" and not isnumeric(tanodesayunobuffet) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Desayuno buffet"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if tanocomida <> "" and not isnumeric(tanocomida) then
response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Comida"" en la columna ""Todo el año""</em> no es un número</font></div>")
insertar=False
end if
if insertar=True then
For each Parametro in request.Form
response.write("<br>Campo vale: " & parametro & ", Contenido:" & request.form(parametro) & ", Insertar: " & "<strong>" & insertar & "</strong>")
rs(parametro)=request.form(parametro)
Next
rs.update
Response.write "Las tarifas se han actualizado correctamente. Proceso de modificación terminado"
end if
%>
<body>
</body>
</html>
Gracias por todo