Código fuente de 'Crea variables de formularios.asp'
<html>
<head>
<title>Crea variables de formularios - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Crea variables de formularios</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
Esta subrutina crea variables (en tiempo de ejecución) por cada valor encontrado
en las colecciones Request.Forms y Request.QueryString. Además, la variable toma
el mismo nombre del formulario o parámetro de la que procede. Muy útil si utilizamos
gran número de parámetros.
<!--
'**************************************
' Name: VarsFromForm
' By: Dean Kroon
-->
<form method="post" action="Crea variables de formularios.asp">
<p><b>Nombre:</b> <input type="text" name="nombre" size="15">
<b>Dirección1: </b><input type="text" name="direccion1" size="14"> <b>Dirección2: </b><input type="text" name="direccion2" size="16">
<input type="submit" value="Enviar" name="B2">
<input type="reset" value="Borrar" name="B3"></font></p>
</form>
<%
Public Sub VarsFromForm
For Each item In request.form
execute(item & "=""" & Replace(request.form(item), Chr(34), Chr(34) & Chr(34)) & """")
Next
For Each item In request.QueryString
execute(item & "=""" & Replace(request.QueryString(item), Chr(34), Chr(34) & Chr(34)) & """")
Next
End Sub
Call VarsFromForm
if nombre<>"" and direccion1<>"" and direccion2<>"" then
Response.write "Nombre:" & nombre & " --- Dirección1:" & direccion1 & " --- Dirección2:" & direccion2
else
response.write "Rellena todos los campos"
end if
%>
</body></html>