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: 9pt">

</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><font size="1"><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>