<% @ 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 '** '**************************************************************************************** Response.Buffer = True 'Dimension variables Dim strPassword 'Holds the forum password Dim blnAutoLogin 'Holds whether the user wnats to be automactically logged in Dim strForumCode 'Holds the users ID code Dim strReturnPage 'Holds the page to return to Dim strReturnPageProperties 'Holds the properties of the return page Dim strFormID 'Holds the ID property for the form 'Get the forum page to return to Select Case Request.QueryString("RP") 'Read in the thread and forum to return to Case "PT" strReturnPage = "forum_posts.asp" strReturnPageProperties = "?RP=PT&TID=" & CLng(Request.QueryString("TID")) & strQsSID3 'Else return to the forum main page Case Else 'Read in the forum and topic to return to strReturnPage = "forum_topics.asp" strReturnPageProperties = "?RP=TC&FID=" & CInt(Request.QueryString("FID")) & strQsSID3 End Select 'Read in the forum id number intForumID = CInt(Request("FID")) 'Read in the users details from the form strPassword = LCase(Trim(Mid(Request.Form("password"), 1, 15))) blnAutoLogin = CBool(Request.Form("AutoLogin")) 'If user has eneterd a password make sure it is correct If NOT strPassword = "" Then 'Check the form ID Call checkFormID(Request.Form("formID")) 'Remove form ID from app session Call saveSessionItem("formID", "") 'Read in the forum name from the database 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Forum_code " & _ "FROM " & strDbTable & "Forum" & strDBNoLock & " " & _ "WHERE Forum_ID = " & intForumID 'Query the database rsCommon.Open strSQL, adoCon 'If the query has returned a value to the recordset then check the password is correct If NOT rsCommon.EOF Then 'Encrypt the entered password strPassword = HashEncode(strPassword) 'Check the password is correct, if it is get the user ID and set a cookie If strPassword = rsCommon("Password") Then 'Read in the users ID number and whether they want to be automactically logged in when they return to the forum strForumCode = rsCommon("Forum_code") 'Save in the session Call saveSessionItem("Forum" & intForumID, strForumCode) 'Write a cookie with the Forum ID number so the user logged in throughout the forum If blnAutoLogin = True Then Call setCookie("fID", "Forum" & intForumID, strForumCode, True) 'Else only temp cookie Else Call setCookie("fID", "Forum" & intForumID, strForumCode, False) End If 'Reset Server Objects rsCommon.Close Call closeDatabase() 'Redirect the user back to the forum page they have just come from Response.Redirect(strReturnPage & strReturnPageProperties) End If End If 'Clean up rsCommon.Close End If 'Create a form ID strFormID = LCase(hexValue(10)) 'Place formID into app session Call saveSessionItem("formID", strFormID) 'Reset Server Objects Call closeDatabase() 'If active users is enabled update the active users application array If blnActiveUsers Then 'Call active users function saryActiveUsers = activeUsers("", strTxtLoginUser, "forum_topics.asp?FID=" & intForumID, 0) End If 'Set bread crumb trail strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & strTxtLoginUser %> <% = strTxtLoginUser %> <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtLoginUser %>


<% 'If the user has unsuccesfully tried logging in before then display a password incorrect error If strPassword <> "" Then %>
<% = strTxtError %> <% = strTxtError %>
<% = strTxtForumPasswordIncorrect %>

<% = strTxtPleaseTryAgain %>

<% End If %>
<% = strTxtLoginUser %>
<% = strTxtPasswordRequiredForForum %>
<% = strTxtPassword %>
<% = strTxtAutoLogin %> <% = strTxtYes %>  <% = strTxtNo %>

<% '***** 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 & "
" %>