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

<% 'If the poster is in a guest then get them to enter a name If lngLoggedInUserID = 2 AND (strMode <> "edit" AND strMode <> "editTopic") Then %> <% End If 'If this is a private message display the username box If strMode = "PM" Then %> <% 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 %> <% End If 'If this is a new poll then display space to enter the poll If strMode = "poll" Then %><% End If %> <% End If %><% '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 %> <% 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 = True AND blnLoggedInUserEmail Then %> <% End If %>

*<% = strTxtRequiredFields %>

<% = strTxtName %>*:

<% = 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 %> />

<% 'If there are records returned then display the users buddy list If NOT rsCommon.EOF Then %> <% = strSelectFormBuddyList %>: <% Else Response.Write("") End If 'Reset server variables rsCommon.Close %>

<% = strTxtSubjectFolder %>*:

/><% 'If this is the forums moderator or forum admim then let them select the priority level of the post If (blnAdmin = True OR blnPriority = True) AND (strMode = "new" or strMode="editTopic" or strMode = "poll") Then %> <% = strTxtPriority %>: <% 'Else the priority of the post is normal Else Response.Write("") End If %>

<% 'If image uploading is allowed have an image upload button If blnImageUpload Then %>

<% End If 'If file uploading is allowed have an file upload button If blnAttachments Then %>

<% End If %>

<% = strTxtMode %>:

<% = strTxtMessage %>*:<% 'If emoticons are enabled show them next to the post window If blnEmoticons Then %> <% '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 %>

<% = strTxtEmoticons %>

<% = strTxtMore %>

<% Response.Write(strTxtEnable & " " & strTxtForumCodes & " " & strTxtToFormatPosts) %>

<% 'If the user has a signature offer them the chance to show it If blnLoggedInUserSignature = True Then %> /><% = strTxtShowSignature %> <% End If 'Display e-mail notify of replies option If blnEmail = True AND blnLoggedInUserEmail = True Then %> /><% = strTxtEmailNotify %> <% End If %>

<% = strTxtEmailNotifyWhenPMIsRead %>

<% If NOT strMode = "PM" Then %> <% 'If reply get the thread position number in the topic If strMode = "reply" Then %> <% End If End If %>

<% 'Select the button for this page If strMode="edit" OR strMode = "editTopic" Then Response.Write(" ") ElseIf strMode = "new" OR strMode = "poll" Then Response.Write(" ") ElseIf strMode = "PM" Then Response.Write(" ") Else Response.Write(" ") End If %>