'**************************************
    ' Name: VarsFromForm
    ' Description:This subroutine creates a 
    '     variable (on the fly) for each form item
    '     found on Request.Forms or Request.QueryS
    '     tring collections. The variable is given
    '     the same name as the form items name. It
    '     was built to duplicate some of PHPs buil
    '     t in functionality. 
    ' By: Dean Kroon
    '
    ' Assumes:
    Ex.
    ' this form lives in some asp or html pa
    '     ge
    <FORM method="post" action="doit.asp">
    <INPUT type="text" name="name">
    <INPUT type="text" name="Address1">
    <INPUT type="text" name="Address2">
    </FORM>
    ' the user enters:
    Dean Kroon
    421 Blue Earth St
    PO Box 123
    ' this code lives in doit.asp
    <%
    Call VarsFromForm
    Response.write name & "<BR>" & address1 & ", " & address2
    %>
    ' The output looks like
    Dean Kroon
    421 Blue Earth St, PO Box 123
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6278&lngWId=4    'for details.    '**************************************
    
    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