<% @ 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 '***** 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 & "Configuration.* From " & strDbTable & "Configuration WHERE " & strDbTable & "Configuration.ID = 1;" With rsCommon .Open strSQL, adoCon,2,3 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.webwizguide.com/", False objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLHTTP.Send("PC=FE043CBC-4D5A-4F6D-8DE4-F8B8AB0ED433&URL=" & strLiURL & "&KEY=" & strXCode & "&IP=" & Request.ServerVariables("LOCAL_ADDR")) 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 .Fields(strFID) = True .Fields(strFID2) = False .Fields("Install_ID") = objXmlDoc.childNodes(1).childNodes(3).text .Update ElseIf objXmlDoc.childNodes(1).childNodes(2).text = "AFEE32DE-7351-4DE1-8F88-5D370C87DC10" Then .Fields(strFID) = False .Fields(strFID2) = False .Fields("Install_ID") = objXmlDoc.childNodes(1).childNodes(3).text .Update 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.webwizguide.com/contact" & _ "

Lifetime License Key Holders" & _ "
If you have a Lifetime License from previous version of Web Wiz Forums please visit the Lifetime License Upgrade Website." 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.webwizguide.com/contact" End If End If End If Set objXmlDoc = Nothing End If .ReQuery Application.Lock Application(strAppPrefix & "strInstallID") = .Fields("Install_ID") Application(strAppPrefix & "blnLCode") = CBool(.Fields(strFID)) Application(strAppPrefix & "blnACode") = CBool(.Fields(strFID2)) Application(strAppPrefix & "blnConfigurationSet") = false Application.UnLock End If If NOT .EOF Then blnLCode = CBool(.Fields(strFID)) blnACode = CBool(.Fields(strFID2)) strInstallID = .Fields("Install_ID") End If End With rsCommon.Close 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 %>

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 license 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 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 %> <% End If %>

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

Web Wiz Forums Premium Edition License Key
Registration Name:
Registration Email:
Registration URL:	This needs to be the exact URL you registered in your Web Wiz Client Area for the license key being used.
License Key:	This needs to be exactly the same license key as in your Web Wiz Client Area.