<%@ LANGUAGE = VBScript %> <% '*********************************************************************** ' System : ASPClassifieds ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved '*********************************************************************** %> Misc Server Info

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

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") %>
FILE SYSTEM OBJECT <% Err.Clear On Error Resume Next Set ObjScripting = Server.CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Installed") End If %>
ADODB (ActiveX Data Object) <% 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 %>
CDONTS <% Err.Clear On Error Resume Next Set ADODB = Server.CreateObject("ADODB.Connection") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Version: " & ADODB.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 %>
AspEmail <% Err.Clear On Error Resume Next Set AspEmail = Server.CreateObject("Persits.MailSender") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Installed") End If %>
SAFILEUP <% Err.Clear On Error Resume Next Set objSAFILEUP = Server.CreateObject("SoftArtisans.FileUp") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Installed") End If %>
Dundas Upload <% Err.Clear On Error Resume Next Set objDundas = server.CreateObject("Dundas.Upload.2") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Installed") End If %>
ASPImage <% Err.Clear On Error Resume Next Set ASPImage = Server.CreateObject("AspImage.Image") If Err.Number <> 0 Then Response.Write("Not Installed  ") Else Response.Write("Version: " & ASPImage.Version & " Installed  ") End If %>
Script Engine
Type <% = ScriptEngine %>
Version <% =ScriptEngineMajorVersion() %>.<% =ScriptEngineMinorVersion() %>
Build <% =ScriptEngineBuildVersion() %>