IF not page.ispostback kill loop1, loop2 as integer Dim Arr1 (), arr2 () as string dim copy as system.collections.specialized.namevalueCollection
'Load Form variables into NameValueCollection variable coll = Request.QueryString.' Get names of all keys into a string array arr1 = coll.AllKeys For loop1 = 0 To arr1.GetUpperBound (0) Response.Write (. "Key:" & Server .Htmlencode (arr1 (loop1)) & "
") 'get all values under this key. Arr2 = Coll.getVALUES (LOOP1)
For loop2 = 0 To arr2.GetUpperBound (0) Response.Write ( "Value" & CStr (loop2) & ":" & Server.HtmlEncode (arr2 (loop2)) & "
") Next loop2 Next Loop1
END IF
