<%@ LANGUAGE = VBScript %> <% '*********************************************************************** ' System : ASPTest ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' Purpose : This code is used for checking various server ' : settings. ' ' COPYRIGHT NOTICE ' ' ' (c) Copyright 2000 - 2001 by CJWSoft. All rights reserved '*********************************************************************** '*** Simply copy this file to your server and run it via the browser. %> Misc Server Info

Run this page on the server for misc server info and specs that may help you

ServerSoftware <% = Request.ServerVariables("SERVER_SOFTWARE") %>
ServerName <% = Request.ServerVariables("SERVER_NAME") %>
ScriptName <% = Request.ServerVariables("SCRIPT_NAME") %>
ServerProtocol <% = Request.ServerVariables("SERVER_PROTOCOL") %>
PathInfo <% = Request.ServerVariables("PATH_INFO") %>
PathTranslated <% = Request.ServerVariables("PATH_TRANSLATED") %>
CDONTS <% Err.Clear On Error Resume Next Set objCDONTS = Server.CreateObject("CDONTS.Session") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Version: " & objCDONTS.Version & " Installed  ") End If %>
SMTPMail <% Err.Clear On Error Resume Next Set objSMTPMail = Server.CreateObject("SoftArtisans.SMTPMail") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Version: " &objSMTPMail.Version & " Installed  ") End If %>
JMail <% Err.Clear On Error Resume Next Set JMail = Server.CreateObject("JMail.SMTPMail") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Version: " &JMail.Version & " Installed  ") End If %>
Script Engine
Type <% = ScriptEngine %>
Version <% =ScriptEngineMajorVersion() %>.<% =ScriptEngineMinorVersion() %>
Build <% =ScriptEngineBuildVersion() %>