Dim loop1, loop2 As Integer
 Dim arr1(), arr2() As String
 Dim coll As NameValueCollection


' Load Header collection into NameValueCollection object.
coll=Request.Headers

' Put the names of all keys into a string array.
arr1 = coll.AllKeys 
For loop1 = 0 To arr1.GetUpperBound(0)
   Response.Write("Key: " & arr1(loop1) & "<br>")
   arr2 = coll.GetValues(loop1) 
   ' Get all values under this key.
   For loop2 = 0 To arr2.GetUpperBound(0)
      Response.Write("Value " & CStr(loop2) & ": " & Server.HtmlEncode(arr2(loop2)) & "<br>")
    Next loop2
 Next loop1

int loop1, loop2;
NameValueCollection coll;

// Load Header collection into NameValueCollection object.
coll=Request.Headers;

// Put the names of all keys into a string array.
String[] arr1 = coll.AllKeys; 
for (loop1 = 0; loop1<arr1.Length; loop1++) 
{
   Response.Write("Key: " + arr1[loop1] + "<br>");
   // Get all values under this key.
   String[] arr2=coll.GetValues(arr1[loop1]);
   for (loop2 = 0; loop2<arr2.Length; loop2++) 
   {
      Response.Write("Value " + loop2 + ": " + Server.HtmlEncode(arr2[loop2]) + "<br>");
   }
}

var arr1, arr2 : String[]
var coll : NameValueCollection

coll=Request.Headers  // Load Header collection into NameValueCollection object.
arr1 = coll.AllKeys   // Put names of all keys into a string array.
for(var i=0; i < arr1.Length; i++){
  Response.Write("Key: " + arr1[i] + "<br>")
  arr2 = coll.GetValues(i) // Get all values under this key.
  for(var j=0; j < arr2.Length; j++){
      Response.Write("Value " + j + ": " + Server.HtmlEncode(arr2[j]) + "<br>")
  }
}