<%
'*** AlphaSierraPapa AspTear ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SOFTWING.ASPtear")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bHTTPComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "AlphaSierraPapa AspTear", "HTTP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** AspHelp Simple Upload ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ASPSimpleUpload.Upload")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bUploadComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "AspHelp Simple Upload", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
IF FALSE THEN '*** DEPRECATED ***
'*** AuthorizeNet SSLPost ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("AuthNetSSLConnect.SSLPost")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bVendorSpecOnlineProcessing = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "AuthorizeNet SSLPost", "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
END IF '*** END DEPRECATED COMPONENT SECTION ***
'*** AspSmart aspSmartMail ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("aspSmartMail.SmartMail")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bEmailComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "AspSmart aspSmartMail", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** AspSmart aspSmartUpload ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("aspSmartUpload.SmartUpload")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bUploadComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "AspSmart aspSmartUpload", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Bamboo.SMTP ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Bamboo.SMTP")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bEmailComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Bamboo.SMTP", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** DevGuru dgCharge ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("dgCharge.Charge")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bMultipurposeOnlineProcessing = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "DevGuru dgCharge", "MPOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Dimac JMail ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("JMail.SMTPMail")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bEmailComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Dimac JMail", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'****Dundas Upload ****
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Dundas.Upload.2")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bUploadComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Dundas Upload", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Microsoft AD Rotator ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSWC.AdRotator")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Microsoft Ad Rotator", "Misc.", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Microsoft ADODB ***
fMicrosoftADODBVersion = 0
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
fMicrosoftADODBVersion = FVal("" & obj.Version)
sInstalled = "" & fMicrosoftADODBVersion
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = "The current version of MDAC/ADO can be download from www.microsoft.com/data/. "
ShowComponentInfo "Microsoft ADODB", "Data Access", sInstalled, gsRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** Microsoft CDONTS ***
bCDONTS = False
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("CDONTS.Session")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = "" & obj.Version
bEmailComponent = True
bCDONTS = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = "-"
ShowComponentInfo "Microsoft CDONTS", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** Microsoft CDOSYS ***
bCDONTS = False
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("CDO.Message")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bEmailComponent = True
bCDOSYS = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Microsoft CDOSYS", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** Microsoft Counters ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSWC.Counters")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Microsoft Counters", "Misc.", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Microsoft FileSystem ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bFileSystem = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
If bFileSystem Then
sFile = Server.MapPath(".") & "\XcDiag.tmp"
If TestFileSystemRW( sFile ) Then
sAdditionalInfo = "Application can work with files in the same folder as this application is running from."
Else
sAdditionalInfo = "Applications cannot work with files in the same folder as application is running from."
End If
End If
ShowComponentInfo "Microsoft FileSystem", "FSO", sInstalled, gsRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** Microsoft ServerXMLHTTP ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSXML2.ServerXMLHTTP")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bHTTPComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Microsoft ServerXMLHTTP", "HTTP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Microsoft XMLHTTP ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Microsoft.XMLHTTP")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bHTTPComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "Microsoft XMLHTTP", "HTTP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Persits AspEmail ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.MailSender")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
sAdditionalInfo = " "
Else
sInstalled = gsInstalled
bEmailComponent = True
sAdditionalInfo = "Expires " & obj.Expires
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "Persits AspEmail", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** Persits AspJpeg ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.Jpeg")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
sAdditionalInfo = " "
Else
sInstalled = "" & obj.Version
bImagingComponent = True
sAdditionalInfo = "Expires " & obj.Expires
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "Persits AspJpeg", "Imaging", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Persits Upload ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.Upload.1")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bUploadComponent = True
End If
Set obj = Nothing
sAdditionalInfo = " "
On Error Goto 0
ShowComponentInfo "Persits AspUpload", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** ServerObjects AspImage ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("AspImage.Image")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = "" & obj.Version
bImagingComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "ServerObjects AspImage", "Imaging", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** ServerObjects AspHTTP ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("AspHTTP.Conn")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = "" & obj.Version
bHTTPComponent = True
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
ShowComponentInfo "ServerObjects AspHTTP", "HTTP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** ServerObjects AspMail ***
fAspMailVersion = 0
bAspMailAsAspQmail = False
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SMTPsvg.Mailer")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
fAspMailVersion = Fval("" & obj.Version)
sInstalled = "" & fAspMailVersion
bEmailComponent = True
Err.Clear
obj.QMessage = True
If Err.Number = 0 Then
bAspMailAsAspQmail = True
End If
End If
Set obj = Nothing
On Error Goto 0
sAdditionalInfo = " "
If bAspMailAsAspQmail Then
sAdditionalInfo = "ASPMail component appears to actually be AspQmail."
End If
ShowComponentInfo "ServerObjects AspMail", "Email", sInstalled, gsTypeRequired, gsNotOptional, sAdditionalInfo
'*** End ***
'*** SoftArtisans SA-Fileup ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SoftArtisans.FileUp")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
sAdditionalInfo = " "
Else
sInstalled = "" & obj.Version
bUploadComponent = True
If Len(Trim("" & obj.ExpirationDate)) > 0 Then
sAdditionalInfo = "Expires: " & obj.ExpirationDate
Else
sAdditionalInfo = "Expires: n/a"
End If
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "SoftArtisans SA-FileUp", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** SoftArtisans SmtpMail ***
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SoftArtisans.SMTPMail")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
sAdditionalInfo = " "
Else
sInstalled = gsInstalled
bEmailComponent = True
sAdditionalInfo = "" & obj.Version
If Len(Trim("" & obj.ExpirationDate)) > 0 Then
sAdditionalInfo = sAdditionalInfo & " Expires: " & obj.ExpirationDate
Else
sAdditionalInfo = sAdditionalInfo & " Expires: n/a"
End If
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "SoftArtisans SmtpMail", "Email", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Verisign PayFlow Pro ***
sAdditionalInfo = " "
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("PFProCOMControl.PFProCOMControl.1")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bVendorSpecOnlineProcessing = True
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "Verisign PayFlowPro", "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** Verisign PayFlow Pro ***
sAdditionalInfo = " "
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("WorldPay.COMpurchase")
If Err.Number <> 0 Then
bFirst = False
sInstalled = gsNotInstalled
sAdditionalInfo = "COMpurchase missing, "
Else
bFirst = True
sInstalled = gsInstalled
bVendorSpecOnlineProcessing = True
sAdditionalInfo = "COMpurchase installed, "
End If
Set obj = Nothing
'*** WebSupergoo ABCUpload ***
sAdditionalInfo = " "
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ABCUpload4.XForm")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = gsInstalled
bUploadComponent = True
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "WebSupergoo ABCUpload", "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** World Pay Select Com
sAdditionalInfo = " "
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("WorldPay.COMcallback")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
If bFirst Then
sAdditionalInfo = sAdditionalInfo & "COMcallback missing "
Else
sAdditionalInfo = " "
End If
Else
sInstalled = gsInstalled
bVendorSpecOnlineProcessing = True
sAdditionalInfo = sAdditionalInfo & "COMcallback installed "
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo "WorldPay Select COM", "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
'*** XUDTools
sAdditionalInfo = " "
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("XUDTOOLS.WSAClusterHelper")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
Else
sInstalled = "" & obj.Version 'gsInstalled
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo " XUDTools", "Misc.", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
'*** End ***
If Instr(1, sCMD, "XCPRIV") > 0 Then
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("BROADCASTSERVER.BroadCast")
If Err.Number <> 0 Then
sInstalled = gsNotInstalled
sAdditionalInfo = "[" & Hex(Err.Number) & "] " & Err.Description
Else
sInstalled = gsInstalled
sAdditionalInfo = " "
End If
Set obj = Nothing
On Error Goto 0
ShowComponentInfo " BroadcastServer", "Custom", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
End If
Response.Write "
" & gsTypeRequiredInfo & "
"
%>
Summary
Information and Recommendations
Item
Information
<%
'ShowSummaryInfo "1", "2"
If fScriptEngineVersion <= 5.1 Then
ShowSummaryInfo "Script Engine", "It is recommended to upgrade the scripting engine on the web server for increased reliability, performance, and functionality. Versions 5.1 and earlier may exhibit some limitations in these areas. "
End If
If fMicrosoftADODBVersion < 2.5 Then
ShowSummaryInfo "Microsoft ADODB", "It is recommended to upgrade the Microsoft ADODB libraries (MDAC) to version 2.5 or later. "
End If
If fMicrosoftADODBVersion >= 2.5 Then
ShowSummaryInfo "Microsoft ADODB/JET", "If there are JET databases being used on this server, it is recommended to make absolutely sure the very latest Microsoft JET libraries are installed. "
End If
If bCDONTS Then
ShowSummaryInfo "Microsoft CDONTS", "CDONTS is also known as the Microsoft SMTP service which is an optional component of IIS. It is possible that CDONTS can be installed, but not be configured for use. If your site is hosted with an ISP, you may need to ask your ISP to properly configure it before it will function. "
End If
If Not bFileSystem Then
ShowSummaryInfo "Microsoft FileSystem", "The FileSystem object is required for any ASP application to be able to read/write files. This is a critical component that must be installed for an application to function. "
End If
If fAspMailVersion < 3.52 Then
ShowSummaryInfo "ServerObjects ASPMail", "The version of ASPMail that is installed on this server is known to have some problems and it should be upgraded to 3.52 or later."
End If
If bEmailComponent Then
ShowSummaryInfo "Email Component", "This web server appears to have at least one supported email component installed."
Else
ShowSummaryInfo "Email Component", "All web server applications require a valid email component to be installed and functional. Your web server does not appear to have any such components. One of the supported email components will need to be installed on the web server."
End If
If bUploadComponent Then
ShowSummaryInfo "Upload Component", "This web server appears to have at least one upload component installed. You may need to verify if the application you want to use supports the upload component that is installed."
Else
ShowSummaryInfo "Upload Component", "Most web server applications will require an upload component in order to enable certain options. If you want to be able to upload files through your web browser to the application(s), you will need to install a supported upload component on your web server."
End If
If bImagingComponent Then
ShowSummaryInfo "Imaging Component", "This web server appears to have at least one imaging component installed. You may need to verify if the application you want to use supports the imaging component that is installed."
Else
ShowSummaryInfo "Imaging Component", "Some web server applications can use an imaging component to generate image thumbnails, resize images, or other advanced effects. If you want to be able to take advantage of such additional features, you will need to install a supported imaging component."
End If
If bHTTPComponent Then
ShowSummaryInfo "HTTP Component", "This web server appears to have at least one HTTP component installed. You may need to verify if the application you want to use supports the HTTP component that is installed."
Else
ShowSummaryInfo "HTTP Component", "Some web server applications can use an HTTP component to communicate with other web servers or internet services to provide more advanced features. If you want to be able to take advantage of such additional features, you will need to install a supported HTTP component."
End If
If bVendorSpecOnlineProcessing Then
ShowSummaryInfo "VSOP Component", "This server has at least one supported Vendor Specific Online Processing component installed. "
Else
ShowSummaryInfo "VSOP Component", "This server does not have any supported Vendor Specific Online Processing components installed. "
End If
If bMultipurposeOnlineProcessing Then
ShowSummaryInfo "MPOP Component", "This server has at least one supported Multipurpose Online Processing component installed. "
Else
ShowSummaryInfo "MPOP Component", "This server does not have any supported Multipurpose Online Processing components installed. "
End If
If bFileSystem And bEmailComponent And (fMicrosoftADODBVersion > 0) Then
ShowSummaryInfo "Minimum Requirements", "This web server seems to meet the minimum requirements for most web server applications."
Else
ShowSummaryInfo "Minimum Requirements", "This web server does not seem to meet minimum requirements for most web server applications."
End If
%>
<%
Sub ShowIISInfoLine(psCol1, psCol2)
Response.Write "
" & psCol1 & "
"
Response.Write "
" & psCol2 & "
"
End Sub
Sub ShowComponentInfo(psCol1, psCol2, psCol3, psCol4, psCol5, psCol6)
Response.Write "
"
Response.Write "
" & psCol1 & "
"
Response.Write "
" & psCol2 & "
"
Response.Write "
" & psCol3 & "
"
Response.Write "
" & psCol4 & "
"
Response.Write "
" & psCol5 & "
"
Response.Write "
" & psCol6 & "
"
Response.Write "
"
End Sub
Sub ShowSummaryInfo(psCol1, psCol2)
Response.Write "
" & psCol1 & "
"
Response.Write "
" & psCol2 & "
"
End Sub
Function RequestValue( psValueName )
Dim sTemp
sTemp = Request.Form("" & psValueName)
If Len(Trim(sTemp)) = 0 Then
sTemp = Request.QueryString("" & psValueName)
End If
RequestValue = sTemp
End Function
Function FVal(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
FVal = 0
Case 2, 3, 4, 5, 6:
FVal = pvValue
Case 7:
FVal = CDbl(pvValue)
Case 8: 'String
sTemp = Trim(pvValue)
On Error Resume Next
FVal = CDbl(sTemp)
If Err.Number <> 0 Then
Err.Clear
FVal = 0
End If
Case 11:
FVal = Cint(pvValue)
Case 14:
FVal = Clng(pvValue)
Case Else
FVal = 0
End Select
End Function
Function TestFileSystemRW(psFilePath)
Dim objFSO
Dim objTS
Dim sFilePath
sFilePath = "" & psFilePath
lErrorCount = 0
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
'File System Object Created
Set objTS = objFSO.CreateTextFile(sFilePath, True)
If Err.Number = 0 Then
'File created
objTS.WriteLine("Testing")
If Err.Number = 0 Then
'Data written
objTS.Close
If Err.Number = 0 Then
'File closed
Set objFile = objFSO.GetFile(sFilePath)
If Err.Number = 0 Then
'File Handle Retrieved
objFile.Delete True
If Err.Number = 0 Then
'File was removed, successful test for this file
TestFileSystemRW = True
Else
'File could not be removed
TestFileSystemRW = False
End If
End If 'Could not retrieve file handle
End If 'Problem closing file
End If 'Could NOT write data
objTS.Close
End If 'File could NOT be created
Set objTS = Nothing
End If 'Cannot create file system object
Set objFile = Nothing
Set objTS = Nothing
Set objFSO = Nothing
On Error Goto 0
End Function
%>