<%
Dim k as Integer = 0
For k=0 To Request.Servervariables.Count - 1
    Response.Write(Request.Servervariables.Keys(k) & " = " &
Request.Servervariables(k) & "
")
Next
%>