<% '**************************************************************************************** '** 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 timeout of the forum Server.ScriptTimeout = 90 'Set the date time format to your own if you are getting a CDATE error 'Session.LCID = 1033 'Intialise variables Const strLSalt = "5CB237B1D85" Const strCodeField = "L_code" Const strCodeField2 = "A_code" Const blnMassMailier = True '****************************************** '*** Database connection **** '****************************************** Call openDatabase(strCon) '****************************************** '*** Read in Configuration Data **** '****************************************** Call getForumConfigurationData() '****************************************** '*** Get Session ID **** '****************************************** 'Call sub to get session data if not a searh engine spider If NOT OSType = "Search Robot" Then Call getSessionData() '****************************************** '*** Read in Logged-in User Data **** '****************************************** 'Call the sub procedure to read in the details for this user Call getUserData("AID") 'If the user is not the admin or not logged in send them away If intGroupID <> 1 Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("insufficient_permission.asp" & strQsSID1) End If 'If the license is not agreed to the redirect If blnACode AND CBool(getSessionItem("WWFP")) = False AND Request.QueryString("WWFP") = "" Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("web_wiz_forums.asp?WWFP=1" & strQsSID3) End If %>