<% if Session("FullView") = false then %> <% dim strHead dim strTableHeader dim strRowLeft dim strRowCenter dim strRowRight strHead = "Server Variables Script" strTableHeader= "

Server Variables


" strTableHeader=strTableHeader+"" strTableHeader=strTableHeader+"" strRowLeft ="" Response.Write strMeta & strTableHeader 'Server Level Response.Write"" Response.Write strRowLeft & "Server Name: " & strRowCenter & Request.ServerVariables("SERVER_NAME" ) & strRowRight Response.Write strRowLeft & "Server Address: " & strRowCenter & Request.ServerVariables("LOCAL_ADDR" ) & strRowRight Response.Write strRowLeft & "Server Port: " & strRowCenter & Request.ServerVariables("SERVER_PORT" ) & strRowRight Response.Write strRowLeft & "Server Secure Port:" & strRowCenter & Request.ServerVariables("SERVER_PORT_SECURE") & strRowRight Response.Write strRowLeft & "Server Software: " & strRowCenter & Request.ServerVariables("SERVER_SOFTWARE" ) & strRowRight Response.Write strRowLeft & "Gateway Interface: " & strRowCenter & Request.ServerVariables("GATEWAY_INTERFACE" ) & strRowRight Response.Write strRowLeft & "Server Protocol: " & strRowCenter & Request.ServerVariables("SERVER_PROTOCOL" ) & strRowRight 'Connection Level Response.Write"" Response.Write strRowLeft & "HTTP Connection: " & strRowCenter & Request.ServerVariables("HTTP_CONNECTION" ) & strRowRight Response.Write strRowLeft & "HTTPS: " & strRowCenter & Request.ServerVariables("HTTPS" ) & strRowRight Response.Write strRowLeft & "Content Length: " & strRowCenter & Request.ServerVariables("CONTENT_LENGTH" ) & strRowRight Response.Write strRowLeft & "Request Method: " & strRowCenter & Request.ServerVariables("REQUEST_METHOD" ) & strRowRight 'Browser Level Response.Write"" Response.Write strRowLeft & "User Address: " & strRowCenter & Request.ServerVariables("REMOTE_HOST" ) & strRowRight Response.Write strRowLeft & "HTTP User Agent: " & strRowCenter & Request.ServerVariables("HTTP_USER_AGENT" ) & strRowRight Response.Write strRowLeft & "Path Translated:" & strRowCenter & Request.ServerVariables("PATH_TRANSLATED" ) & strRowRight Response.Write strRowLeft & "Application Physical Path:" & strRowCenter & Request.ServerVariables("APPL_PHYSICAL_PATH") & strRowRight Response.Write "
PropertyValue
" strRowCenter = "" strRowRight = "
" & "Server Level" & "
" & "Connection Level" & "
" & "Browser Level" & "
" %>
">
<% else %>

Server Variables: Full List


<% for each var in Request.ServerVariables %> <% next %>
Property Value
<% =var %> <% =Request.ServerVariables( var ) %>
<% Session("FullView")=false end if %>