<% @ 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 as we maybe redirecting 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 strMode 'Holds the mode of the page Dim lngTopicID 'Holds the Topic ID number Dim intCatID 'Holds the cat ID Dim strCatName 'Holds the cat name Dim intMasterForumID 'Holds the main forum ID Dim strMasterForumName 'Holds the main forum name Dim lngMessageID 'Holds the Thread ID of the post Dim strForumName 'Holds the name of the forum Dim blnForumLocked 'Set to true if the forum is locked Dim intTopicPriority 'Holds the priority of the topic Dim strPostPage 'Holds the page the form is posted to Dim intRecordPositionPageNum 'Holds the recorset page number to show the Threads for Dim strMessage 'Holds the post message Dim intIndexPosition 'Holds the index poistion in the emiticon array Dim intNumberOfOuterLoops 'Holds the outer loop number for rows Dim intLoop 'Holds the loop index position Dim intInnerLoop 'Holds the inner loop number for columns Dim blnTopicLocked 'Set to true if the topic is locked Dim strUsername 'For login include Dim strPassword 'For login include Dim strUploadedFiles 'Holds the names of any files or images uploaded Dim strTopicIcon 'Holds the topic icon Dim intEventYear 'Holds the year of Calendar event Dim intEventMonth 'Holds the month of Calendar event Dim intEventDay 'Holds the day of Calendar event Dim intEventYearEnd 'Holds the year of Calendar event Dim intEventMonthEnd 'Holds the month of Calendar event Dim intEventDayEnd 'Holds the day of Calendar event 'If the user is user is using a banned IP redirect to an error page If bannedIP() Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("insufficient_permission.asp?M=IP" & strQsSID3) End If 'Intialise variables lngTopicID = 0 lngMessageID = 0 intTopicPriority = 0 intRecordPositionPageNum = 1 strMode = "new" 'Read in the forum number intForumID = CInt(Request.QueryString("FID")) 'Read in the forum details inc. cat name, forum details, and permissions (also reads in the main forum name if in a sub forum, saves on db call later) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "" & _ "SELECT" & strDBTop1 & " " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum2.Forum_name AS Main_forum, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Forum_code, " & strDbTable & "Forum.Locked, " & strDbTable & "Forum.Show_topics, " & strDbTable & "Permissions.* " & _ "FROM " & strDbTable & "Category" & strDBNoLock & ", " & strDbTable & "Forum" & strDBNoLock & ", " & strDbTable & "Forum AS " & strDbTable & "Forum2" & strDBNoLock & ", " & strDbTable & "Permissions" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Category.Cat_ID = " & strDbTable & "Forum.Cat_ID " & _ "AND " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Permissions.Forum_ID " & _ "AND (" & strDbTable & "Forum.Sub_ID = " & strDbTable & "Forum2.Forum_ID OR (" & strDbTable & "Forum.Sub_ID = 0 AND " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Forum2.Forum_ID)) " & _ "AND " & strDbTable & "Forum.Forum_ID = " & intForumID & " " & _ "AND (" & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & " OR " & strDbTable & "Permissions.Group_ID = " & intGroupID & ") " & _ "ORDER BY " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_Order, " & strDbTable & "Permissions.Author_ID DESC" & strDBLimit1 & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If there is a record returned by the recordset then check to see if you need a password to enter it If NOT rsCommon.EOF Then 'Read in forum details from the database intCatID = CInt(rsCommon("Cat_ID")) strCatName = rsCommon("Cat_name") strForumName = rsCommon("Forum_name") strMasterForumName = rsCommon("Main_forum") intMasterForumID = CLng(rsCommon("Sub_ID")) blnForumLocked = CBool(rsCommon("Locked")) 'Read in the forum permissions blnRead = CBool(rsCommon("View_Forum")) blnPost = CBool(rsCommon("Post")) blnPriority = CBool(rsCommon("Priority_posts")) blnModerator = CBool(rsCommon("Moderate")) blnEvents = CBool(rsCommon("Calendar_event")) 'If the user has no read writes then kick them If blnRead = False Then 'Reset Server Objects rsCommon.Close Call closeDatabase() 'Redirect to a page asking for the user to enter the forum password Response.Redirect("insufficient_permission.asp" & strQsSID1) End If 'If the forum requires a password and a logged in forum code is not found on the users machine then send them to a login page If rsCommon("Password") <> "" AND (getCookie("fID", "Forum" & intForumID) <> rsCommon("Forum_code") AND getSessionItem("Forum" & intForumID) <> rsCommon("Forum_code")) Then 'Reset Server Objects rsCommon.Close Call closeDatabase() 'Redirect to a page asking for the user to enter the forum password Response.Redirect("forum_password_form.asp?FID=" & intForumID & strQsSID3) End If End If 'Close rs rsCommon.Close 'If the forum level for the user on this forum is read only set the forum to be locked If (blnRead = False AND blnModerator = False AND blnAdmin = False) Then blnForumLocked = True 'Use the application session to pass around what forum this user is within Call saveSessionItem("FID", intForumID) 'Set bread crumb trail 'Display the category name strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & "" & strCatName & "" & strNavSpacer 'Display if there is a main forum to the sub forums name If intMasterForumID <> 0 Then strBreadCrumbTrail = strBreadCrumbTrail & "" & strMasterForumName & "" & strNavSpacer 'Display forum name If strForumName = "" Then strBreadCrumbTrail = strBreadCrumbTrail & strTxtNoForums Else strBreadCrumbTrail = strBreadCrumbTrail & "" & strForumName & "" strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & strTxtPostNewTopic %> <% = strTxtPostNewTopic %> <% '***** 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 ****** %>

<% Response.Write(strTxtPostNewTopic) %>

<% 'If the user has logged in then display the from to allow the user to post a new message If (blnPost = True) AND blnActiveMember = True AND (blnForumLocked = False OR blnAdmin = True) Then 'Update active users table array If blnActiveUsers Then saryActiveUsers = activeUsers(strTxtWritingNewPost, strForumName, "forum_topics.asp?FID=" & intForumID, 0) %>
<% = strTxtPostNewTopic %>
<% 'Else there is an error so show error table Else 'Update active users table array If blnActiveUsers Then saryActiveUsers = activeUsers(strTxtWritingNewPost & " [" & strTxtAccessDenied & "]", strForumName, "forum_topics.asp?FID=" & intForumID, 0) %>
<% = strTxtError %> <% = strTxtError %>
<% 'If the users account is suspended then let them know If blnActiveMember = False OR blnBanned Then 'If mem suspended display message If blnBanned Then Response.Write(strTxtForumMemberSuspended) 'Else account not yet active Else Response.Write("
" & strTxtForumMembershipNotAct) If blnMemberApprove = False Then Response.Write("

" & strTxtToActivateYourForumMem) 'If admin activation is enabled let the user know If blnMemberApprove Then Response.Write("
" & strTxtYouAdminNeedsToActivateYourMembership) 'If email is on then place a re-send activation email link ElseIf blnEmailActivation AND blnLoggedInUserEmail Then Response.Write("

" & strTxtResendActivationEmail & "") End If End If 'Else if the forum is locked display a message telling the user so ElseIf blnForumLocked = True Then Response.Write(strTxtForumLockedByAdmim) 'Else if the user does not have permision to post in this forum ElseIf blnPost = False AND intGroupID <> 2 Then Response.Write(strTxtSorryYouDoNotHavePermissionToPostInTisForum & "

") Response.Write("" & strTxtReturnToDiscussionForum & "") 'Else the user is not logged in so let them know to login before they can post a message Else Response.Write(strTxtMustBeRegisteredToPost) End If %>
<% 'If the user can needs to login display login box If blnPost = False AND intGroupID = 2 AND blnActiveMember AND blnForumLocked = false AND blnBanned = False Then %><% End If End If 'Clean up Call closeDatabase() %>

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