<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2004 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.info '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'If a private message go to pm post message page otherwise goto post message page If strMode = "PM" Then strPostPage = "pm_post_message.asp" Else strPostPage = "post_message.asp?PN=" & Trim(Mid(Request.Form("PN"), 1, 8)) End If Response.Write(vbCrLf & "" & _ vbCrLf & "

" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") 'If the poster is in a guest then get them to enter a name If lngLoggedInUserID = 2 AND (strMode <> "edit" AND strMode <> "editTopic") Then Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If 'If this is a private message display the username box If strMode = "PM" Then Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If 'If this is a new post or editing the first thread then display the subject text box If strMode = "new" or strMode="editTopic" or strMode = "PM" or strMode = "poll" Then Response.Write(" " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If 'If this is a new poll then display space to enter the poll If strMode = "poll" Then %><% End If Response.Write(" " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If '****************************************** Response.Write(" " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") 'If not PM then display another row If strMode <> "PM" Then 'If signature of e-mail notify then display row to show If (blnLoggedInUserEmail = True AND blnEmail = True) OR blnLoggedInUserSignature = True Then Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If 'If this is a private e-mail and e-mail is on and the user gave an e-mail address let them choose to be notified when pm msg is read ElseIf strMode = "PM" AND blnEmail AND blnLoggedInUserEmail Then Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

*" & strTxtRequiredFields & "

" & strTxtName & "*:

" & _ vbCrLf & " " & _ vbCrLf & "

" & strTxtToUsername & "*:

") 'Get the users buddy list if they have one 'Initlise the sql statement strSQL = "SELECT " & strDbTable & "Author.Username " strSQL = strSQL & "FROM " & strDbTable & "Author INNER JOIN " & strDbTable & "BuddyList ON " & strDbTable & "Author.Author_ID = " & strDbTable & "BuddyList.Buddy_ID " strSQL = strSQL & "WHERE " & strDbTable & "BuddyList.Author_ID=" & lngLoggedInUserID & " AND " & strDbTable & "BuddyList.Buddy_ID <> 2 " strSQL = strSQL & "ORDER By " & strDbTable & "Author.Username ASC;" 'Query the database rsCommon.Open strSQL, adoCon Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") 'If there are records returned then display the users buddy list If NOT rsCommon.EOF Then Response.Write(vbCrLf & " " & strSelectFormBuddyList & ":" & _ vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If 'Reset server variables rsCommon.Close Response.Write(vbCrLf & "

" & strTxtSubjectFolder & "*:

" & _ vbCrLf & " ") 'If this is the forums moderator or forum admim then let them slect the priority level of the post If (blnAdmin = True OR blnPriority = True) AND (strMode = "new" or strMode="editTopic" or strMode = "poll") Then Response.Write(" " & strTxtPriority & ":" & _ vbCrLf & " " & _ vbCrLf & " ") End If Response.Write("

" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

") 'RTE Tool Bar 1 '--------------------------------------------------------------------------- %><% '--------------------------------------------------------------------------- Response.Write("

") 'RTE Tool Bar 2 '--------------------------------------------------------------------------- %><% '--------------------------------------------------------------------------- Response.Write(vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & "

" & strTxtMessage & "*:") '*************** Emoticons ******************* 'If emoticons are enabled show them next to the post window If blnEmoticons Then Response.Write(vbCrLf & " " & _ vbCrLf & " ") 'Intilise the index position (we are starting at 1 instead of position 0 in the array for simpler calculations) intIndexPosition = 1 'Calcultae the number of outer loops to do intNumberOfOuterLoops = 4 'If there is a remainder add 1 to the number of loops If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1 'Loop throgh th list of emoticons For intLoop = 1 to intNumberOfOuterLoops Response.Write("") 'Loop throgh th list of emoticons For intInnerLoop = 1 to 3 'If there is nothing to display show an empty box If intIndexPosition > UBound(saryEmoticons) Then Response.Write(vbCrLf & " ") 'Else show the emoticon Else Response.Write(vbCrLf & " ") End If 'Minus one form the index position intIndexPosition = intIndexPosition + 1 Next Response.Write("") Next Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "

" & strTxtEmoticons & "

" & strTxtMore & "

") 'This bit creates a random number to add to the end of the Iframe link as IE will cache the page 'Randomise the system timer Randomize Timer Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & strTxtEnable & " " & strTxtForumCodes & " " & strTxtToFormatPosts & _ vbCrLf & "

") 'If the user has a signature offer them the chance to show it If blnLoggedInUserSignature Then Response.Write(vbCrLf & " " & strTxtShowSignature & " ") End If 'Display e-mail notify of replies option If blnEmail AND blnLoggedInUserEmail Then Response.Write(vbCrLf & " " & strTxtEmailNotify & " ") End If Response.Write(vbCrLf & "

" & strTxtEmailNotifyWhenPMIsRead & "

" & _ vbCrLf & " ") If strMode <> "PM" Then Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") 'If reply get the thread position number in the topic If strMode = "reply" Then Response.Write(vbCrLf & " ") End If End If Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & "

") Dim strGetMessageBoxHTML 'Set how to get the HTML form the message box for Win IE5 and then for other RTE browsers If RTEenabled = "winIE5" Then strGetMessageBoxHTML = "frames.message.document.body.innerHTML;" Else strGetMessageBoxHTML = "document.getElementById('message').contentWindow.document.body.innerHTML;" 'Select the correct button for the page If strMode="edit" OR strMode = "editTopic" Then Response.Write(vbCrLf & " ") ElseIf strMode = "new" OR strMode = "poll" Then Response.Write(vbCrLf & " ") ElseIf strMode = "PM" Then Response.Write(vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & "

") %>