<%
'=======================================================================================================
'The Functions below were developed by Robert Collyer:- ASPwiz@hotmail.com
'
'These scripts will now make variables live well beyond the page scope and make the debugging
'process of passing variables between pages just a memory.
'All scripts are really flexible and work on form elements, querystrings and cookies.
'
'=======================================================================================================
'The first Funtion-'GetVariables(type1, type2)' can be used in place of the very common:-
'var1=request.form("var1")
'var2=request.form("var2")
'var3=request.form("var3")
'var4=request.form("var4")
'var5=request.form("var5")
'and likewise for reading in querystrings and cookies
'
'Taking FORMS as an example:
'You simply now just call the function, and all vbscript values are set to match those
'posted from a form.  This sounds great, and it is but the vbscript variables are named
'identically to the form/querystring/cookie variable names (this is usually a good thing) 
'If for example a form contained a text box that is named 'Surname', 
'and after submitting the form, the following page called upon the 'GetVariables("form",0)'
'function, VBScript would now have access to a variable called Surname containing the value
'of whatever the user entered into the textbox. It will loop through ALL form variables, 
'setting the VBScript equivelents.
'
'
'=======================================================================================================
'The Second Function-'SaveAsFormFields(type1, type2)' is very useful for those occasions where
'you need to read in all the form/querystring/cookie values, and include them within another form as
'hidden fields.  Reasons to this could include multiple page forms and also when a user
'enters data incorrectly on a form, and you want to post the data back for editing, etc
'
'=======================================================================================================
'The Third Function-'SaveAsCookie(type1, type2) will pass the variables stated by type1 and type2
'to a cookie on the clients computer.  You can retrieve this cookie and read the variables
'back in on another page using:-   Call GetVariables("cookies",0)

'=======================================================================================================
'Please email ASPwiz@hotmail.com with all feedback. (Including bugs if any)
'I do not require a mention if you use this code (Unless the source is published), it 
'is supplied purely because
'I know how much of a pain in the arse the long way round is and I feel sorry for those
'who are non-the-wiser.  Please feel free to distribute this as far and as wide as you like.
'This message will self destruct, etc......
'=======================================================================================================

'*//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**
	
'=======================================================================================================	
' Call the following function with:
' 
' Call GetVariables("TYPE1", "TYPE2") replacing TYPE1 and TYPE2 with: form, cookies or querystring.
'
' Alternatively the function may be called as follows:
' Call GetVariables("ALL", 0) calling the function in this way performs all three types.
'=======================================================================================================
	function GetVariables(type1,type2)
		if lcase(type1)="form" or lcase(type2)="form" or lcase(type1)="all" then
			For Each Field In Request.Form
				TheString = Field & "=Request.Form(""" & Field & """)"
				Execute(TheString)'Executes the command contained in the string(This will set all VBScript variables)
			Next
		end if
		if lcase(type1)="cookies" or lcase(type2)="cookies" or lcase(type1)="all" then
			For Each Field In Request.cookies
				TheString = Field & "=Request.cookies(""" & Field & """)"
				Execute(TheString)'Executes the command contained in the string(This will set all VBScript variables)
			Next
		end if
		if lcase(type1)="querystring" or lcase(type2)="querystring" or lcase(type1)="all" then
			For Each Field In Request.querystring
				TheString = Field & "=Request.querystring(""" & Field & """)"
				Execute(TheString)'Executes the command contained in the string(This will set all VBScript variables)
			Next
		end if
	END function

'*//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**

'=============================================================================
' Call the following function with:
' Call SaveAsFormFields("TYPE1", "TYPE2") replacing TYPE1 and TYPE2 with: form, cookies or querystring.
'
'Lastly the function may be also be called as follows:
'Call SaveAsFormFields("ALL", 0) calling the function in this way performs all three types.
'=============================================================================

	function SaveAsFormFields (type1, type2)
		if lcase(type1)="form" or lcase(type2)="form" or lcase(type1)="all" then
			For Each Field In Request.Form
				TheString="<input type=""hidden"" name=""" & Field & """ value="""
				Value=Request.Form(Field)
				Thestring=TheString + cstr(Value) & """>" & vbcrlf
				Response.Write TheString
			Next
		end if
		if lcase(type1)="cookies" or lcase(type2)="cookies" or lcase(type1)="all" then
			For Each Field In Request.cookies
				TheString="<input type=""hidden"" name=""" & Field & """ value="""
				Value=Request.cookies(Field)
				Thestring=TheString + cstr(Value) & """>" & vbcrlf
				Response.Write TheString
			Next
		end if
		if lcase(type1)="querystring" or lcase(type2)="querystring" or lcase(type1)="all" then
			For Each Field In Request.Querystring
				TheString="<input type=""hidden"" name=""" & Field & """ value="""
				Value=Request.querystring(Field)
				Thestring=TheString + cstr(Value) & """>" & vbcrlf
				Response.Write TheString
			Next
		end if
	END function

'*//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**

'=============================================================================
' Call the following function with:
' Call SaveAsCookie("TYPE1", "TYPE2") replacing TYPE1 and TYPE2 with: form, cookies or querystring.
'
'Lastly the function may be also be called as follows:
'Call SaveAsCookie("ALL", 0) calling the function in this way performs all three types.
'=============================================================================	
	function SaveAsCookie (type1, type2)
		if lcase(type1)="form" or lcase(type2)="form" or lcase(type1)="all" then
			For Each Field In Request.Form
				Response.cookies(field)= Request.Form(Field)
			Next
		end if
		if lcase(type1)="cookies" or lcase(type2)="cookies" or lcase(type1)="all" then
			For Each Field In Request.cookies
				Response.cookies(field)= Request.cookies(Field)
			Next
		end if
		if lcase(type1)="querystring" or lcase(type2)="querystring" or lcase(type1)="all" then
			For Each Field In Request.Querystring
				Response.cookies(field)= Request.querystring(Field)
			Next
		end if
	END function
	
'*//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**//**
'    TESTING THE CODE
	'uncomment the code below to test the functions. 
	'Set up a form or something to call this page passing variables
	'or manually pass querystring info when calling this page
	'once the script is run, checking the resulting html source
	' will reveal the result of the saveasformfields function
	'try typing: formfunctions.asp?test1=testing&test2=numbers12345&test3=final-test
	'into the browser.
	'Uncomment below here
	'
	'call getvariables("all",0)
	'call SaveAsFormFields("all",0)
	'call SaveAsCookie("all",0)
	'response.write vbcrlf & test1 & "<BR>" & test2 & "<BR>" & test3 & vbcrlf
	'response.write "<BR><BR>Cookies<BR>-------<BR>" & vbcrlf
	'for each item in request.cookies
	'	response.write(Request.cookies(item))&"<BR>" & vbcrlf
	'next
	'response.write "<B><BR>Click View...source to see where hidden form elements have been set.</b>"
%>