<% @ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = True 'First we need to tell the common.asp page to stop redirecting or we'll get in a bit of a loop blnDisplayForumClosed = True %> <% '**************************************************************************************** '** 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 '** '**************************************************************************************** Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Dimension variables Dim lngLoopCounter 'Holds the loop counter Dim strUsername 'Holds the users username Dim strPassword 'Holds the usres password Dim blnSecurityCodeOK 'Set to true is CATCHA entered correctly Dim blnIncorrectLogin 'Holds in the user login is correct Dim intLoginResponse 'Holds the login response from the login function Dim strFormID Dim blnAutoLogin 'Intilise varaibles blnSecurityCodeOK = True blnIncorrectLogin = False blnAutoLogin = False 'Read in the users details from the form if user is logging in strUsername = Trim(Mid(Request.Form("name"), 1, 15)) strPassword = LCase(Trim(Mid(Request.Form("password"), 1, 15))) 'If this is a new login checkout the login details are correct If strPassword <> "" Then 'Check to see if the user has slected auto-login If NOT getCookie("sLID", "UID") = "" Then blnAutoLogin = True 'Set the Login incorrect variable to True incase login now fails blnIncorrectLogin = True 'Call the function to login the user intLoginResponse = CInt(loginUser(strUsername, strPassword, True, "admin")) 'Key to loginUser function '0 = Login Failed '1 = Login OK '2 = CAPTCHA Code OK '3 = CAPTCHA Code Incorrect '4 = CAPTHCA required 'If login reponse is 0 then login has failed If intLoginResponse = 0 Then blnIncorrectLogin = True 'If login reponse is 3 Then CAPTCHA security code was incorrect If intLoginResponse = 3 Then blnSecurityCodeOK = False 'If login is correct redirect If intLoginResponse = 1 Then 'Clean up Call closeDatabase() 'Redirect to admin section Response.Redirect("admin_menu.asp" & strQsSID1) End If End If 'If in demo mode prefill the user name If blnDemoMode Then strLoggedInUsername = "Administrator" 'Clean up Call closeDatabase() %> Web Wiz Forums Control Panel <% '***** 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 Control Panel Login

Return to the Main Forum

<% 'If the user has unsuccesfully tried logging in before then display a password incorrect error If blnIncorrectLogin OR blnSecurityCodeOK = False Then %>

<% = strTxtError %><% 'If the login has failed (for extra security only say the password is incorect if the security code matches) If blnIncorrectLogin AND blnSecurityCodeOK Then Response.Write("

" & strTxtSorryUsernamePasswordIncorrect & "
" & strTxtPleaseTryAgain & "
") 'If the security code is incorrect If blnSecurityCodeOK = False AND Request.Form("securityCode") <> "" Then Response.Write("

" & Replace(strTxtSecurityCodeDidNotMatch, "\n\n", "
") & "
") %>

<% End If %>

Use the same Administration username and password as you use to login to the main forum

If you have forgotten your password then use the forgotten password form in the main forum to
email yourself a new password, if enabled

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Bulletin Board Software by Web Wiz Forums® version " & strVersion & "") If blnACode Then Response.Write(" [Free Express Edition]") Else Response.Write("") If blnACode Then Response.Write("
Powered by Web Wiz Forums Free Express Edition") End If Response.Write("
Copyright ©2001-2008 Web Wiz") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "" %>

Forum Control Panel Login
Admin Username	<% 'If an admin anyway don't let em re-type in their username If intGroupID = 1 OR blnDemoMode Then Response.Write(strLoggedInUsername & "") 'Else text box to write in username as well Else Response.Write("") End If %>
Admin Password	/>
Security Code Confirmation (required)
CAPTCHA Security Code Please enter the code exactly as shown in image format. Cookies must be enabled on your web browser.