<%@ language=vbscript%>
<HTML>
<HEAD>
<TITLE>ServerInfo.asp</TITLE>
<STYLE>
  BODY 
  { font-family:arial, helvetica, "sans-serif"; font-size:12px; }
  
  TABLE 
  { font-family:arial, helvetica, "sans-serif"; 
    font-size:12px; 
    border-width:1px;
    border-collapse:collapse;
  }

  TD
  { font-family:arial, helvetica, "sans-serif";
    font-size:12px;
    border-width:thin;
    border-style:groove;
    border-collapse:collapse;
    padding-left:4px;
    padding-right:4px;
    padding-top:3px;
    vertical-align:top;
  }


</STYLE>
</HEAD>
<body bgcolor="#FFFFFF">

<TABLE>
<SCRIPT>
  document.write("<TR><TD>Cookies Enabled</TD><TD><b>" + window.navigator.cookieEnabled + "</b></TD></TR>");
</SCRIPT>
</TABLE>

<script language=jscript runat=server>
response.write("<TABLE>");
response.write("<TR><TD>JScript Server Scripting Engine</TD><TD><b>" + ScriptEngine() + "</b></TD></TR>");
response.write("<TR><TD>JScript buildversion</TD><TD><b>" + ScriptEngineBuildVersion() + "</b></TD></TR>");
response.write("<TR><TD>JScript majorversion</TD><TD><b>" + ScriptEngineMajorVersion() + "</b></TD></TR>");
response.write("<TR><TD>JScript minorversion</TD><TD><b>" + ScriptEngineMinorVersion() + "</b></TD></TR>");
response.write("</TABLE>");
</script>

<%
Function OutputServerVariable(varName)
  Dim varResult
  response.write("<TR><TD>")
  response.write(varName)
  response.write("</TD><TD>")
  varResult = request.servervariables(varName)
  response.write(varResult)

  'if(varResult = nul) then
  '  response.write("(NULL)")
  'end if

  response.write("</TD></TR>" & vbcrlf)
End Function

response.write("<TABLE>")
response.write "<TR><TD>ASP Server Script buildversion</TD><TD><b>" & scriptenginebuildversion() & "</b></TD></TR>" & vbcrlf
response.write "<TR><TD>ASP Server Script majorversion</TD><TD><b>" & scriptenginemajorversion() & "</b></TD></TR>" & vbcrlf
response.write "<TR><TD>ASP Server Script minorversion</TD><TD><b>" & scriptengineminorversion() & "</b></TD></TR>" & vbcrlf

set tempconn=server.createobject("adodb.connection")
response.write "<TR><TD>ado version</TD><TD><b>"  & vbcrlf
response.write tempconn.version & "</b></TD></TR>" & vbcrlf
set tempconn=nothing

serversoftware=request.servervariables("server_software")
response.write "<TR><TD>server software</TD><TD><b>"  & vbcrlf
response.write serversoftware & "</b></TD></TR>" & vbcrlf

Response.Write "<TR><TD>Script Timeout</TD><TD><b>" & Server.ScriptTimeout & " seconds</b></TD></TR>" & vbcrlf
Response.Write "<TR><TD>Session Timeout</TD><TD><b>" & Session.Timeout & " minutes</b></TD></TR>" & vbcrlf


OutputServerVariable("APPL_MD_PATH")
OutputServerVariable("APPL_PHYSICAL_PATH")

OutputServerVariable("AUTH_TYPE")
OutputServerVariable("AUTH_PASSWORD")
OutputServerVariable("AUTH_USER")

OutputServerVariable("CERT_FLAGS")
OutputServerVariable("CERT_ISSUER")
OutputServerVariable("CERT_KEYSIZE")
OutputServerVariable("CERT_SECRETKEYSIZE")
OutputServerVariable("CERT_SERIALNUMBER")
OutputServerVariable("CERT_SERVER_ISSUER")
OutputServerVariable("CERT_SERVER_SUBJECT")
OutputServerVariable("CERT_SUBJECT")

OutputServerVariable("CONTENT_LENGTH")
OutputServerVariable("CONTENT_TYPE")
OutputServerVariable("DATE_GMT")
OutputServerVariable("DATE_LOCAL")

OutputServerVariable("DOCUMENT_NAME")
OutputServerVariable("DOCUMENT_URI")
OutputServerVariable("GATEWAY_INTERFACE")

OutputServerVariable("HTTP_ACCEPT")
OutputServerVariable("HTTP_ACCEPT_LANGUAGE")
OutputServerVariable("HTTP_ACCEPT_ENCODING")
OutputServerVariable("HTTP_CONNECTION")
OutputServerVariable("HTTP_COOKIE")
OutputServerVariable("HTTP_HOST")
OutputServerVariable("HTTP_REFERER")
OutputServerVariable("HTTP_USER_AGENT")

OutputServerVariable("HTTPS")
OutputServerVariable("HTTPS_KEYSIZE")
OutputServerVariable("HTTPS_SECRETKEYSIZE")
OutputServerVariable("HTTPS_SERVER_ISSUER")
OutputServerVariable("HTTPS_SERVER_SUBJECT")

OutputServerVariable("INSTANCE_ID")
OutputServerVariable("INSTANCE_META_PATH")

OutputServerVariable("LOCAL_ADDR")
OutputServerVariable("LAST_MODIFIED")
OutputServerVariable("LOGON_USER")

OutputServerVariable("PATH_INFO")
OutputServerVariable("PATH_TRANSLATED")
OutputServerVariable("QUERY_STRING")
OutputServerVariable("QUERY_STRING_UNESCAPED")
OutputServerVariable("REMOTE_ADDR")
OutputServerVariable("REMOTE_HOST")
OutputServerVariable("REMOTE_PORT")
OutputServerVariable("REMOTE_IDENT")
OutputServerVariable("REMOTE_USER")
OutputServerVariable("REQUEST_METHOD")


OutputServerVariable("SCRIPT_NAME")
OutputServerVariable("SERVER_NAME")
OutputServerVariable("SERVER_PORT")
OutputServerVariable("SERVER_PORT_SECURE")
OutputServerVariable("SERVER_PROTOCOL")
OutputServerVariable("SERVER_SOFTWARE")

OutputServerVariable("UNMAPPED_REMOTE_USER")


OutputServerVariable("URL")

OutputServerVariable("ALL_HTTP")
OutputServerVariable("ALL_RAW")

Response.Write ("<TR><TD>ASP Session ID</TD><TD>" & Session.SessionID & "</TD></TD>")


response.write("</TABLE>") & vbcrlf
%>
Load <A href="ServerInfo.asp">ServerInfo.asp</A> again.<BR>

<COMMENT>The text below may not be removed</COMMENT>
Copyright © 2004, <A href="http://www.spectrum-research.com">Spectrum Research Inc.</A>, All Rights Reserved.<BR>
Written by Alfred J. Heyman. May not be sold or included in a commercial product without written permission.
</BODY>
</HTML>