<!--#include file="../../owFunctions/I_GeneralFunctions.asp"-->
<!--#include file="../header.asp"-->
<%
	'************************************************************************************
	'*																					*
	'*	MODIFICATION TO THIS SCRIPT OR ANY FILES INCLUDED WITH 							*
	'*		ONEWORLDSTORE IS DONE AT YOUR OWN RISK!										*
	'*	Product  : OneWorldStore														*
	'*	Version  : 9.0000																*
	'*	Modified : June 2004															*
	'*	Copyright:	Copyright (C) 2004 OneWorldStore.Com								*
	'*				Registration Number: 1024507										*
	'*				http://strategis.ic.gc.ca/											*
	'*																					*
	'************************************************************************************
	
	if bOWBackOfficeDemoMode then
		%>
		<body topmargin="0" leftmargin="0" bgcolor=C3DAF9>
			<div id="tablediv" style="position: absolute; top: 0px; height: 100%; width:100%">
			<table width=100% border="0" cellpadding="2" cellspacing="0" height=100%><tr><td align=center valign=center>
				<%=LANG_DT( "GLOBAL_FUNCTION_DISABLED", "Function Disabled in Demo." )%>
			</td></tr></table>
		</body>
		<%
	Else
	    GC_Version = "3.0.6"
	    gsRequired = "<i>X</i>"
	    gsNotRequired = "&nbsp;"
	    gsTypeRequired = "<i>*</i>"
	    gsTypeRequiredInfo = LANG_DT( "ASPSERVERINFO_NOTE", "Note: a <i>*</i> in the Required column denotes that one of the supported components of this type is required." )
	    gsOptional = "<i>X</i>"
	    gsNotOptional = "&nbsp;"
	    gsInstalled = LANG_DT( "ASPSERVERINFO_YES", "<i>Yes</i>" )
	    gsNotInstalled = LANG_DT( "ASPSERVERINFO_NO", "<i>No</i>" )
	    sTemp = Trim("" & ScriptEngineMajorVersion() & "." & ScriptEngineMinorVersion())
	    fScriptEngineVersion = FVal(sTemp)
	    bEmailComponent = False
	    bFileSystem = False
	    bUploadComponent = False
	    bImagingComponent = False
	    bHTTPComponent = False
	    bVendorSpecOnlineProcessing = False
	    bMultipurposeOnlineProcessing = False
	    sCMD = UCase(Trim(RequestValue("CMD")))
	
	'*** Switch to HTML and display IIS Server Information Header ***
	%>
	<!--#include file="../header.asp"-->
	<body style="font-family: Arial; font-size: 11px" topmargin="0" leftmargin="0">
	<div align="left">
	  <table border="0" cellpadding="0" cellspacing="10" style="font-size: 11px;">
	    <tr bgcolor="#EAF1F9"> 
	      <td colspan="2" height="16"><b><%=LANG_DT( "ASPSERVERINFO_HEAD1", "ASP Server Information" )%></b></td>
	    </tr>
	    <tr>
	      <td style="border-bottom: 1 solid #EAF1F9" width="200" height="16"><%=LANG_DT( "ASPSERVERINFO_ITEM", "Item" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9" height="16"><%=LANG_DT( "ASPSERVERINFO_INFO", "Information" )%></td>
	    </tr>
	<%
	'*** Display Dynamic IIS Server Information ***
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_SERVERNAME", "Server Name" ), Request.ServerVariables("SERVER_NAME")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_SCRIPTNAME", "Script Name" ), Request.ServerVariables("SCRIPT_NAME")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_SERVERPROTOCOL", "Server Protocol" ), Request.ServerVariables("SERVER_PROTOCOL")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_PATHINFO", "Path Info" ), Request.ServerVariables("PATH_INFO")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_PATHTRANSLATED", "Path Translated" ), Request.ServerVariables("PATH_TRANSLATED")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_HTTPREFERER", "HTTP_REFERER" ), Request.ServerVariables("HTTP_REFERER")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_DATETIME", "Server DateTime" ), "" & Now
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_VBVER", "VBScript Engine Version" ), "" & fScriptEngineVersion
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_VBBUILD", "VBScript Engine Build" ), "" & ScriptEngineBuildVersion()
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_IISVERSION", "IIS Version" ), "" & Request.ServerVariables("SERVER_SOFTWARE")
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_ASPOK", "ASP Enabled" ), "" & "Yes"
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_SESSIONS", "Sessions/Cookies Enabled" ), "" & "Yes"
	    ShowIISInfoLine LANG_DT( "ASPSERVERINFO_SESSIONS2", "Session Cookie System Variable" ), "" & Request.ServerVariables("HTTP_COOKIE")
	
	%>
	  </table>
	  &nbsp;
	  <table border="0" cellpadding="0" cellspacing="10" style="font-size: 11px;">
	    <tr bgcolor="#EAF1F9"> 
	      <td colspan="6"><b><%=LANG_DT( "ASPSERVERINFO_HEAD2", "Components on this Server" )%></b></td>
	    </tr>
	    <tr>
	      <td style="border-bottom: 1 solid #EAF1F9" width="200"><%=LANG_DT( "ASPSERVERINFO_COMP", "Component" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9" width="100"><%=LANG_DT( "ASPSERVERINFO_TYPE", "Type" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9" width="50"><%=LANG_DT( "ASPSERVERINFO_INSTALL", "Installed" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9" width="40"><%=LANG_DT( "ASPSERVERINFO_REQ", "Req" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9" width="40"><%=LANG_DT( "ASPSERVERINFO_OPT", "Opt" )%></td>
	      <td style="border-bottom: 1 solid #EAF1F9"><%=LANG_DT( "ASPSERVERINFO_INFO", "Information" )%></td>
	    </tr>
		<%
	    '*** 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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPTEAR", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SIMPLEUPLOAD", "AspHelp Simple Upload" ), "Upload", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End ***
	
	    '*** 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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SSLPOST", "AuthorizeNet SSLPost" ), "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End ***
	
	    '*** 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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SMARTMAIL", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SMARTUPLOAD", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_BAMBOO", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_DEVGURU", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_DIMAC", "Dimac JMail" ), "Email", sInstalled, gsTypeRequired, gsNotOptional, 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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ADROTATOR", "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 = LANG_DT( "ASPSERVERINFO_DL_ADODB", "The current version of MDAC/ADO can be download from <a href=""http://www.microsoft.com/data/"" target=""_blank"">www.microsoft.com/data/</a>. " )
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ADODB", "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 LANG_DT( "ASPSERVERINFO_CDONTS", "Microsoft CDONTS" ), "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_COUNTERS", "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 = "&nbsp;"
	    If bFileSystem Then
	        sFile = Server.MapPath(".") & "\XcDiag.tmp"
	        If TestFileSystemRW( sFile ) Then
	            sAdditionalInfo = LANG_DT( "ASPSERVERINFO_WORKXCDIAG", "Application can work with files in the same folder as XcDiag is running from." )
	        Else
	            sAdditionalInfo = LANG_DT( "ASPSERVERINFO_NOWORKXCDIAG", "Applications <b>cannot</b> work with files in the same folder as XcDiag is running from. " )
	        End If
	    End If
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_FILESYSTEM", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SERVERXML", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_XML", "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 = "&nbsp;"
	    Else
	        sInstalled = gsInstalled
	        bEmailComponent = True
	        sAdditionalInfo = LANG_DT( "ASPSERVERINFO_EXPIRES", " Expires: " ) & obj.Expires
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPEMAIL", "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 = "&nbsp;"
	    Else
	        sInstalled = "" & obj.Version
	        bImagingComponent = True
	        sAdditionalInfo = LANG_DT( "ASPSERVERINFO_EXPIRES", " Expires: " ) & obj.Expires
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPJPEG", "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 = "&nbsp;"
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPUPLOAD", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPIMAGE", "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 = "&nbsp;"
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPHTTP", "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 = "&nbsp;"
	    If bAspMailAsAspQmail Then
	        sAdditionalInfo = LANG_DT( "ASPSERVERINFO_ASPMAIL_IS_Q", "ASPMail component appears to actually be AspQmail." )
	    End If
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_ASPMAIL", "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 = "&nbsp;"
	    Else
	        sInstalled = "" & obj.Version
	        bUploadComponent = True
	        If Len(Trim("" & obj.ExpirationDate)) > 0 Then
	            sAdditionalInfo = LANG_DT( "ASPSERVERINFO_EXPIRES", " Expires: " ) & obj.ExpirationDate
	        Else
	            sAdditionalInfo = LANG_DT( "ASPSERVERINFO_EXPIRES_NA", " Expires: n/a" )
	        End If
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SAFILEUP", "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 = "&nbsp;"
	    Else
	        sInstalled = gsInstalled
	        bEmailComponent = True
	        sAdditionalInfo = "" & obj.Version
	        If Len(Trim("" & obj.ExpirationDate)) > 0 Then
	            sAdditionalInfo = sAdditionalInfo & LANG_DT( "ASPSERVERINFO_EXPIRES", " Expires: " ) & obj.ExpirationDate
	        Else
	            sAdditionalInfo = sAdditionalInfo & LANG_DT( "ASPSERVERINFO_EXPIRES_NA", " Expires: n/a" )
	        End If
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SMTPMAIL", "SoftArtisans SmtpMail" ), "Email", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End *** 
	
	    '*** Verisign PayFlow Pro ***
	    sAdditionalInfo = "&nbsp;"
	    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 LANG_DT( "ASPSERVERINFO_PAYFLOPRO", "Verisign PayFlowPro" ), "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End ***
	
	    '*** Verisign PayFlow Pro ***
	    sAdditionalInfo = "&nbsp;"
	    Err.Clear
	    On Error Resume Next
	    Set obj = Server.CreateObject("WorldPay.COMpurchase")
	    If Err.Number <> 0 Then
	        bFirst = False
	        sInstalled = gsNotInstalled
	        sAdditionalInfo = LANG_DT( "ASPSERVERINFO_WORLDPAY", "COMpurchase missing, " )
	    Else
	        bFirst = True
	        sInstalled = gsInstalled
	        bVendorSpecOnlineProcessing = True
	        sAdditionalInfo = LANG_DT( "ASPSERVERINFO_WORLDPAYOK", "COMpurchase installed, " )
	    End If
	    Set obj = Nothing
	    
	    Err.Clear
	    Set obj = Server.CreateObject("WorldPay.COMcallback")
	    If Err.Number <> 0 Then
	        sInstalled = gsNotInstalled
	        If bFirst Then
	            sAdditionalInfo = sAdditionalInfo & LANG_DT( "ASPSERVERINFO_COMCALLBACK", "COMcallback missing " )
	        Else
	            sAdditionalInfo = "&nbsp;"
	        End If
	    Else
	        sInstalled = gsInstalled
	        bVendorSpecOnlineProcessing = True
	        sAdditionalInfo = sAdditionalInfo & LANG_DT( "ASPSERVERINFO_COMCALLBACKOK", "COMcallback installed " )
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    
	    ShowComponentInfo LANG_DT( "ASPSERVERINFO_SELECTCOM", "WorldPay Select COM" ), "VSOP", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End ***
	    
	    '*** GflAX Image Component ***
	    sAdditionalInfo = "&nbsp;"
	    Err.Clear
	    On Error Resume Next
	    Set obj = Server.CreateObject("GflAx.GflAx")
	    If Err.Number <> 0 Then
	        sInstalled = gsNotInstalled
	    Else
	        sInstalled = gsInstalled
	        bVendorSpecOnlineProcessing = True
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "GFLAX_IMAGE", "GflAX Image Component" ), "Imaging", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    '*** End ***
	    
	    '*** ImageMagick Image Component ***
	    sAdditionalInfo = "&nbsp;"
	    Err.Clear
	    On Error Resume Next
	    Set obj = Server.CreateObject("ImageMagickObject.MagickImage.1")
	    If Err.Number <> 0 Then
	        sInstalled = gsNotInstalled
	    Else
	        sInstalled = gsInstalled
	        bVendorSpecOnlineProcessing = True
	    End If
	    Set obj = Nothing
	    On Error Goto 0
	    ShowComponentInfo LANG_DT( "IMAGEMAGICK_IMAGE", "ImageMagick Image Component" ), "Imaging", 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 = "[<b>" & Hex(Err.Number) & "</b>] " & Err.Description
	        Else
	            sInstalled = gsInstalled
	            sAdditionalInfo = "&nbsp;"
	        End If
	        Set obj = Nothing
	        On Error Goto 0
	        ShowComponentInfo LANG_DT( "ASPSERVERINFO_BROADCASTSERVER", "BroadcastServer" ), "Custom", sInstalled, gsNotRequired, gsOptional, sAdditionalInfo
	    End If
	
	    Response.Write "<tr><td colspan=""6"">" & gsTypeRequiredInfo & "</td></tr>"
	
	%>
	  </table>
	  &nbsp;
	  <div align="left">
	    <table border="0" cellpadding="0" cellspacing="10" style="font-size: 11px;">
	      <tr bgcolor="#EAF1F9"> 
	        <td colspan="2"><b><%=LANG_DT( "ASPSERVERINFO_HEAD3", "Summary Information and Recommendations" )%></b></td>
	      </tr>
	      <tr>
	        <td style="border-bottom: 1 solid #EAF1F9" width="200"><%=LANG_DT( "ASPSERVERINFO_ITEM", "Item" )%></td>
	        <td style="border-bottom: 1 solid #EAF1F9"><%=LANG_DT( "ASPSERVERINFO_INFO", "Information" )%></td>
	      </tr>
	<%
	
	    'ShowSummaryInfo "1", "2"
	    If fScriptEngineVersion <= 5.1 Then
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_SCRIPTENGINE", "Script Engine" ), LANG_DT( "ASPSERVERINFO_SCRIPTENGINE_RECOMMEND", "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 LANG_DT( "ASPSERVERINFO_MSADODB", "Microsoft ADODB" ), LANG_DT( "ASPSERVERINFO_MSADODB_RECOMMEND", "It is recommended to upgrade the Microsoft ADODB libraries (MDAC) to version 2.5 or later." )
	    End If
	    If fMicrosoftADODBVersion >= 2.5 Then
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_ADODBJET", "Microsoft ADODB/JET" ), LANG_DT( "ASPSERVERINFO_ADODBJET_RECOMMEND", "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 LANG_DT( "ASPSERVERINFO_MSCDONTS", "Microsoft CDONTS" ), LANG_DT( "ASPSERVERINFO_MSCDONTS_RECOMMEND", "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 LANG_DT( "ASPSERVERINFO_FILESYSTEM", "Microsoft FileSystem" ), LANG_DT( "ASPSERVERINFO_FILESYSTEM_RECOMMEND", "The FileSystem object is required for any ASP application to be able to read/write files. This is a <b>critical</b> component that must be installed for an application to function. " )
	    End If
	    If fAspMailVersion < 3.52 Then
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_ASPMAIL2", "ServerObjects ASPMail" ), LANG_DT( "ASPSERVERINFO_ASPMAIL_RECOMMEND", "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 LANG_DT( "ASPSERVERINFO_EMAILCOMP", "Email Component" ), LANG_DT( "ASPSERVERINFO_EMAILCOMP_OK", "This web server appears to have at least one supported email component installed." )
	    Else
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_EMAILCOMP", "Email Component" ), LANG_DT( "ASPSERVERINFO_EMAILCOMP_NO", "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 LANG_DT( "ASPSERVERINFO_UPLOADCOMP", "Upload Component" ), LANG_DT( "ASPSERVERINFO_UPLOADCOMP_OK", "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 LANG_DT( "ASPSERVERINFO_UPLOADCOMP", "Upload Component" ), LANG_DT( "ASPSERVERINFO_UPLOADCOMP_NO", "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 LANG_DT( "ASPSERVERINFO_IMAGECOMP", "Imaging Component" ), LANG_DT( "ASPSERVERINFO_IMAGECOMP_OK", "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 LANG_DT( "ASPSERVERINFO_IMAGECOMP", "Imaging Component" ), LANG_DT( "ASPSERVERINFO_IMAGECOMP_NO", "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 LANG_DT( "ASPSERVERINFO_HTTPCOMP", "HTTP Component" ), LANG_DT( "ASPSERVERINFO_HTTPCOMP_OK", "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 LANG_DT( "ASPSERVERINFO_HTTPCOMP", "HTTP Component" ), LANG_DT( "ASPSERVERINFO_HTTPCOMP_NO", "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 LANG_DT( "ASPSERVERINFO_VSOPCOMP", "VSOP Component" ), LANG_DT( "ASPSERVERINFO_VSOPCOMP_OK", "This server has at least one supported Vendor Specific Online Processing component installed. " )
	    Else
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_VSOPCOMP", "VSOP Component" ), LANG_DT( "ASPSERVERINFO_VSOPCOMP_NO", "This server does not have any supported Vendor Specific Online Processing components installed. " )
	    End If
	    If bMultipurposeOnlineProcessing Then
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_MPOPCOMP", "MPOP Component" ), LANG_DT( "ASPSERVERINFO_MPOPCOMP_OK", "This server has at least one supported Multipurpose Online Processing component installed." )
	    Else
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_MPOPCOMP", "MPOP Component" ), LANG_DT( "ASPSERVERINFO_MPOPCOMP_NO", "This server does not have any supported Multipurpose Online Processing components installed." )
	    End If    
	    If bFileSystem And bEmailComponent And (fMicrosoftADODBVersion > 0) Then
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_MINREQ", "Minimum Requirements" ), LANG_DT( "ASPSERVERINFO_MINREQ_OK", "This web server seems to meet the minimum requirements for most web server applications." )
	    Else
	        ShowSummaryInfo LANG_DT( "ASPSERVERINFO_MINREQ", "Minimum Requirements" ), LANG_DT( "ASPSERVERINFO_MINREQ_NO", "This web server does not seem to meet minimum requirements for most web server applications."  )
	    End If
	%>
	    </table>
	  </div>
	</div>
	<%
End If

Sub ShowIISInfoLine(psCol1, psCol2)
    Response.Write "<tr><td style=""border-bottom: 1 solid #EAF1F9"" width=""200"" valign=""top"">" & psCol1 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" valign=""top"">" & psCol2 & "</td></tr>"
End Sub

Sub ShowComponentInfo(psCol1, psCol2, psCol3, psCol4, psCol5, psCol6)
    Response.Write "<tr>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" width=""200"" valign=""top"">" & psCol1 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" width=""100"" valign=""top"">" & psCol2 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" width=""50"" valign=""top"">" & psCol3 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" width=""40"" valign=""top"">" & psCol4 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" width=""40"" valign=""top"">" & psCol5 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" valign=""top"">" & psCol6 & "</td>"
    Response.Write "</tr>"
End Sub

Sub ShowSummaryInfo(psCol1, psCol2)
    Response.Write "<tr><td style=""border-bottom: 1 solid #EAF1F9"" width=""200"" valign=""top"">" & psCol1 & "</td>"
    Response.Write "<td style=""border-bottom: 1 solid #EAF1F9"" valign=""top"">" & psCol2 & "</td></tr>"
End Sub

Function RequestValue( psValueName )
   Dim sTemp 
   sTemp = Request.Form("" & psValueName)
   If Len(Trim(sTemp)) = 0 Then
      sTemp = Request("" & 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


%>
<!--#include file="../footer.asp"-->
