Imports system.Web
Public Class log
    Shared Sub PrintQueryString()
        ' usage: lib.PrintQueryString()       
        Dim Server As Web.HttpServerUtility = Web.HttpContext.Current.Server
        Dim Response As Web.HttpResponse = Web.HttpContext.Current.Response
        Dim Request As Web.HttpRequest = Web.HttpContext.Current.Request
        Dim QueryString As System.Collections.Specialized.NameValueCollection = Request.QueryString
        Dim Param As String
        For Each Param In QueryString 
             Response.write("param name: " & Param )
             Response.write("<br>")
             Response.write("param value: " & QueryString(Param) )
             Response.write("<br>")
        Next
    end Sub
end Class