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:
Gracias por todo <!--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>