<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2014 Web Wiz Ltd. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM WEB WIZ LTD. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN WEB WIZ LTD. 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.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz Ltd, Unit B10, 9 Nimrod Way, East Dorset Trade Park, Ferndown, Dorset, BH21 7UH, England '** http://www.webwiz.co.uk '** '** 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 '***** 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 strErrorMsg Dim intResponseCode strErrorMsg = "" strFID = decodeString(strCodeField) strFID2 = decodeString(strCodeField2) strSQL = "SELECT " & strDbTable & "SetupOptions.* From " & strDbTable & "SetupOptions;" With rsCommon If Request.Form("postBack") Then strLiName = Request.Form("liname") strLiEM = Request.Form("email") strLiURL = LCase(Trim(Request.Form("URL"))) strXCode = UCase(Trim(Replace(Request.Form("code"), "'", "", 1, -1, 1))) 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next objXMLHTTP.Open "POST", "http://license.webwiz.co.uk/", False objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLHTTP.setRequestHeader "User-Agent", "WebWizFourms/" & strVersion & "; (ForumURL " & strForumPath & ")" objXMLHTTP.Send("PC=FE043CBC-4D5A-4F6D-8DE4-F8B8AB0ED433&URL=" & strLiURL & "&KEY=" & strXCode & "&IP=" & Request.ServerVariables("LOCAL_ADDR") & "&VER=" & intFamilyStepping) If Err.Number <> 0 Then strErrorMsg = "Error Connecting to License Server.

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open." If NOT objXMLHTTP.Status = 200 Then strErrorMsg = "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." 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 strErrorMsg = "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 If objXmlDoc.childNodes(1).childNodes(2).text = "EA7CB12C-0A9F-49A7-9CBF-35A003CB3AFF" Then Call addConfigurationItem(strFID, -1) Call addConfigurationItem(strFID2, 0) Call addConfigurationItem("Install_ID", objXmlDoc.childNodes(1).childNodes(3).text) ElseIf objXmlDoc.childNodes(1).childNodes(2).text = "AFEE32DE-7351-4DE1-8F88-5D370C87DC10" Then Call addConfigurationItem(strFID, 0) Call addConfigurationItem(strFID2, 0) Call addConfigurationItem("Install_ID", objXmlDoc.childNodes(1).childNodes(3).text) End If Else If intResponseCode = 420 Then strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text & _ "

If you are having problems successfully applying your license key then please contact Web Wiz Support Team at www.webwiz.co.uk/contact" ElseIf intResponseCode = 410 OR intResponseCode = 430 Then strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text Else strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text & _ "

Please contact Web Wiz Support Team at www.webwiz.co.uk/contact" End If End If End If Set objXmlDoc = Nothing End If .Open strSQL, adoCon saryConfiguration = rsCommon.GetRows() .Close Application.Lock Application(strAppPrefix & "strInstallID") = getConfigurationItem("Install_ID", "string") Application(strAppPrefix & "blnLCode") = CBool(getConfigurationItem(strFID, "bool")) Application(strAppPrefix & "blnACode") = CBool(getConfigurationItem(strFID2, "bool")) Application(strAppPrefix & "blnConfigurationSet") = false Application.UnLock End If .Open strSQL, adoCon saryConfiguration = rsCommon.GetRows() If NOT .EOF Then blnLCode = CBool(getConfigurationItem(strFID, "bool")) blnACode = CBool(getConfigurationItem(strFID2, "bool")) strInstallID = getConfigurationItem("Install_ID", "string") End If .Close End With Call closeDatabase() %> Web Wiz Forums Premium Edition Upgrade <% '***** 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 ****** %>

Web Wiz Forums Premium Edition Upgrade

Return to the the Admin Control Panel Menu

<% If strErrorMsg <> "" Then %>
<% = strTxtError %> Error
The Premium Edition License Key has not been applied

<% = strErrorMsg %>

<% End If If (blnLCode = False OR blnACode = False) AND strInstallID <> "" Then %>
Congratulations
Congratulations, your Premium Edition License has been applied.

Thank-you for supporting Web Wiz.

<% End If %>
Web Wiz Forums Premium Edition
As part of the free License for Web Wiz Forums Express Edition you are not permitted to modify the software and are required to leave Advertising, Branding, Limitations, and Software Copyright Notices, in place.

Licensing options for Web Wiz Forums Premium Edition allow you to modify the software, remove adverts, unlock features and limitations, and remove the 'Web Wiz' branding from the software.

Upon entering a Premium Edition
Registration Key using the form below, once verified and accepted, will automatically unlock the Premium Edition Tools and Features, it will also automatically remove any adverts, limitations, and if a brand free license is purchase, any 'Web Wiz' branding from the software.

More information on purchasing a Web Wiz Forums Premium Edition License.

Web Wiz Forums Premium Edition Server Requirments Check
Web Wiz Forums Premium Edition requires that you are using a supported web host. Please use the button below to check that the web server you are using and your web host meet the requirements for running the Premium Edition.



<% If intResponseCode <> 200 Then %>
Web Wiz Forums Premium Edition License Key
Registration URL:
This needs to be the exact URL you registered in your Web Wiz Client Area for the license key being used.
Registration Key:
This needs to be exactly the same license key as in your Web Wiz Client Area.
<% End If %>

<% If intResponseCode = 200 Then Response.Write("") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>