
21/01/2008, 07:25
|
| | Fecha de Ingreso: noviembre-2002 Ubicación: Elche
Mensajes: 548
Antigüedad: 22 años, 5 meses Puntos: 0 | |
Re: Leer datos de un formulario Efectívamente. Ha funcionado siguiendo tus instrucciones.
Este es el código final mensaje=""
For each elemento in request.form
if elemento <>"tarifa" then ' discrimino el request que me indica a que tarifa corresponde.
if IsNumeric(request.form(elemento)) then ' controlo que sea numerico
el_precio=replace(request.form(elemento),",",".") ' cambio las comas por puntos para guardar en formato "double(10,2)
array_puntos=split(el_precio,".") ' controlo si hay más de un punto
total_array=Ubound(array_puntos)
if total_array >1 then
mensaje= "<script language='javascript1.2'>alert('Un PRECIO lleva dos separadores. Utilizar sólo para decimales.\n\n Pulse para volver');history.back();</script>"
end if
else
mensaje="<script language='javascript1.2'>alert('Los campos PRECIO deben ser NUMERICOS.\n\n Pulse para volver');history.back();</script>"
end if
if mensaje="" then ' si no hay errores
Valores = ver_tarifa&","&elemento&","&el_precio
%>
<!-- #Include File="../include_basedatos.asp" -->
<%
strSQL = "INSERT INTO precios (tarifa_precio_db, articulo_precio_db, precio_precio_db) VALUES (" & Valores & ")"
Set miConexion = Conexion.Execute(strSQL)
miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
end if ' del mensaje
end if ' diferente tarifa
next
if mensaje="" then
response.write "<script language='JavaScript'>alert('Se ha actualizado los precios correctamente.\n');location.replace('precios.asp') ;</script>"
else
response.write mensaje
end if
Bueno más o menos esto.
Saludos y gracias... me veía cambiando un montón de cosas. |