Function GetAllItem
			Dim nm, vl
			For Each nm in Request.QueryString
				vl = Request.QueryString(nm)
				Response.write vl
			Next
			For Each nm in Request.Form
				vl = Request.Form(nm)
				Response.write vl
			Next
		End Function