<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'If in demo mode redirect If blnDemoMode Then Call closeDatabase() Response.Redirect("admin_web_wiz_forums_premium.asp" & strQsSID1) End If Call closeDatabase() '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Dim objXMLHTTP, objXmlDoc Dim strLiName, strLiEM, strLiURL, strXCode, strDataStream, strFID, strFID2 Dim strLicenseServerMsg Dim intResponseCode Dim blnUploadComponent Dim objUpload strLicenseServerMsg = "" blnUploadComponent = False 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next objXMLHTTP.Open "POST", "http://license.webwizguide.com/test.asp", False objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLHTTP.Send("IP=" & Request.ServerVariables("LOCAL_ADDR")) If Err.Number <> 0 Then strLicenseServerMsg = "Fail:
Error Connecting to License Server.

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open and not using a proxy server." If NOT objXMLHTTP.Status = 200 Then strLicenseServerMsg = "Fail:
Error Connecting to License Server.

Server Response: " & objXMLHTTP.Status & " - " & objXMLHTTP.statusText & "

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open is open and not using a proxy server." On Error goto 0 Set objXMLHTTP = Nothing Else strDataStream = objXMLHTTP.ResponseText On Error goto 0 Set objXMLHTTP = Nothing 'Read in XML Set objXmlDoc = CreateObject("Msxml2.FreeThreadedDOMDocument") objXmlDoc.Async = False objXmlDoc.LoadXML(strDataStream) If objXmlDoc.parseError.errorCode <> 0 Then strLicenseServerMsg = "Fail:
XML Parse Error: " & objXmlDoc.parseError.reason & "

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open." Else intResponseCode = CInt(objXmlDoc.childNodes(1).childNodes(0).text) If intResponseCode = 200 Then strLicenseServerMsg = objXmlDoc.childNodes(1).childNodes(1).text Else strLicenseServerMsg = objXmlDoc.childNodes(1).childNodes(1).text End If End If Set objXmlDoc = Nothing End If 'Upload component check Private Sub objectCheck(ByRef strComponentName, ByRef strComponent) On Error Resume Next 'ASPupload Set objUpload = Server.CreateObject(strComponent) 'If an error the componet is not installed If Err.Number <> 0 Then Response.Write(strComponentName & " - NOT Installed") 'Else the component is installed Else Response.Write(strComponentName & " - Installed") blnUploadComponent = True End If 'Realease Object Set objUpload = Nothing 'Disable error handling On Error goto 0 End Sub %> Premium Edition Compatibility Test <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("" & vbCrLf & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

Premium Edition Compatibility Test

Return to the the Admin Control Panel Menu

License Sever Connection Response
If Web Wiz Forums is unable to connect to the Web Wiz License Server you will not be able to run the Premium Edition.

<% = strLicenseServerMsg %>

Upload Component Test
The 'File System Object' needs to be installed on the server in combination with one of the components below in order for Upload Features to work.

<% Call objectCheck("File System Object (FSO)", "Scripting.FileSystemObject") Response.Write("

") Call objectCheck("Persits AspUpload", "Persits.Upload.1") Response.Write("
") Call objectCheck("Dundas Upload", "Dundas.Upload") Response.Write("
") Call objectCheck("SoftArtisans FileUp (SA FileUp)", "SoftArtisans.FileUp") Response.Write("
") Call objectCheck("aspSmartUpload", "aspSmartUpload.SmartUpload") Response.Write("
") Call objectCheck("AspSimpleUpload", "ASPSimpleUpload.Upload") %>

Email Component Test
One of the following components needs to be installed on the server in combination with an SMTP Server for the Email Features to work.

<% Call objectCheck("CDOSYS", "CDO.Message") Response.Write("
") Call objectCheck("CDONTS", "CDONTS.NewMail") Response.Write("
") Call objectCheck("JMail", "JMail.SMTPMail") Response.Write("
") Call objectCheck("JMail ver.4+", "Jmail.Message") Response.Write("
") Call objectCheck("AspEmail", "Persits.MailSender") Response.Write("
") Call objectCheck("AspMail", "SMTPsvg.Mailer") %>


<% '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>