<%
' On Error Resume Next
' BARF
' Response.write("Error #" & Err.Number & ", " & _
' Err.Description & ", " & _
' Err.Source & ", " _
' )
' Err.Clear()
z = Request.Form().Count
For x=1 to z
response.write(x & " : " & " " & Request.Form(x) & "
")
Next
response.write("
")
response.write("HTML Form variables sent via POST
")
response.write(Request.Form())
response.write("
")
Response.write("Query Strings:")
Response.write(Replace(Request.ServerVariables("QUERY_STRING"), vbcrlf,"
"))
response.write("
")
Response.write("Last Modified Date is [")
Response.Write(Request.ServerVariables("LAST_MODIFIED"))
Response.write("]
")
Response.write("Web server software is [")
Response.Write(Request.ServerVariables("SERVER_SOFTWARE"))
Response.write("]
")
Response.write("Server Protocol is [")
Response.Write(Request.ServerVariables("SERVER_PROTOCOL"))
Response.write("]
")
Response.write("Client IP Address: [")
Response.write(Request.ServerVariables("REMOTE_ADDR"))
Response.write("]
")
Response.write("Remote Host [")
Response.Write(Request.ServerVariables("REMOTE_HOST"))
Response.write("]
")
Response.write("Web server port is [")
Response.Write(Request.ServerVariables("SERVER_PORT"))
Response.write("]
")
Response.write("Translated path is [")
Response.Write(Request.ServerVariables("PATH_TRANSLATED"))
Response.write("]
")
Response.write("Application physical path is [")
Response.Write(Request.ServerVariables("APPL_PHYSICAL_PATH"))
Response.write("]
")
Response.write("Authorization Type is [")
Response.Write(Request.ServerVariables("AUTH_TYPE"))
Response.write("]
")
Response.write("Authenticated User is [")
Response.Write(Request.ServerVariables("AUTH_USER"))
Response.write("]
")
Response.write("Content Type is [")
Response.Write(Request.ServerVariables("CONTENT_TYPE"))
Response.write("]
")
Response.write("Http Referer is [")
Response.Write(Request.ServerVariables("HTTP_REFERER"))
Response.write("]
")
Response.write("Https Key Size [")
Response.Write(Request.ServerVariables("HTTPS_KEYSIZE"))
Response.write("]
")
Response.write("Logon User [")
Response.Write(Request.ServerVariables("LOGON_USER"))
Response.write("]
")
Response.write("Path Info [")
Response.Write(Request.ServerVariables("PATH_INFO"))
Response.write("]
")
Response.write("Gateway Interface is [")
Response.Write(Request.ServerVariables("GATEWAY_INTERFACE"))
Response.write("]
")
Response.write("Web server timeout is [")
Response.write(Server.ScriptTimeout)
Response.write("] seconds
")
Set browser=Server.CreateObject("MSWC.BrowserType")
Response.write("Browser Platform is [")
Response.write(browser.Platform)
Response.write("]
")
' Response.write("Session ID is [")
' Response.write(Server.SessionID)
' Response.write("] seconds
")
'Response.write("Session LCID is [")
'Response.write(Server.CodePage)
'Response.write("] seconds
")
Set browser = Server.CreateObject("MSWC.Browsertype")
Response.write("Browser Cookies = " & browser.Cookies & "
")
Response.write("Browser Frames = " & browser.Frames & "
")
Response.write("Browser Javascript = " & browser.Javascript & "
")
Response.write("Browser VBscript = " & browser.VBscript & "
")
Response.write("Script Name: [")
Response.write(Request.ServerVariables("SCRIPT_NAME"))
Response.write("]
")
response.write("
")
Response.Write("All HTTP Headers (ALL_HTTP):
")
Response.write(Replace(Request.ServerVariables("ALL_HTTP"), vbcrlf,"
"))
response.write("
")
Response.Write("All HTTP Headers (ALL_RAW):
")
Response.write(Replace(Request.ServerVariables("ALL_RAW"), vbcrlf,"
"))
Response.write("")
response.write("
")
%>