Dynamically Pass Form Variables through Forms

				
'**************************************
' Name: Dynamically Pass Form Variables through Forms
' Description:This code passes all form variables by creating hidden copies of every form variable that was passed to it. This is great for gathering information over multiples forms (i.e. Order Processing).
' By: Chris Shell
'
' Returns:A string representing the hidden form varibles.
'
' Assumes:Active Server Pages (Tested on with IIS 4.0)
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6467&lngWId=4'for details.'**************************************

'This is the call here....
'Response.Write PassFormVariables
Function PassFormVariables()
Const INPUT_START = "<input type=hidden name="
Const INPUT_MID = " value="
Const INPUT_END = ">" & Chr(13) & Chr(10)
Dim var_name
Dim var_value
	PassFormVariables = ""
	
	if len(request.form) > 0 then
		for each var_name in request.form
		
			var_value = request.form(var_name)
			
			PassFormVariables = PassFormVariables & _
				INPUT_START & var_name & INPUT_MID & var_value & INPUT_END
				
		next
	end if 
End Function