<% '**************************************************************************************** '** 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 '** '**************************************************************************************** 'If a private message go to pm post message page otherwise goto post message page If strMode = "PM" Then strPostPage = "pm_new_message.asp" & strQsSID1 'If this is new post or poll post to new_post.asp page ElseIf strMode = "new" OR strMode = "poll" OR strMode = "reply" OR strMode = "QuickToFull" OR strMode = "quote" Then strPostPage = "new_post.asp?PN=" & Trim(Mid(Request.Querystring("PN"), 1, 3)) & strQsSID2 'Else this must be an edit Else strPostPage = "edit_post.asp?PN=" & Trim(Mid(Request.Querystring("PN"), 1, 3)) & strQsSID2 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" AND strMode <> "editPoll") 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 = "editPoll" OR strMode = "PM" OR strMode = "poll" Then %> <% 'Display message icon drop down If blnTopicIcon AND NOT strMode = "PM" Then 'Get the topic icon array %><% End If '*************** Event Start ******************* 'Display Calendar event date input If blnCalendar AND blnEvents AND NOT strMode = "PM" Then %> <% End If '*************** Event End ******************* End If 'If this is a new poll then display space to enter the poll If strMode = "poll" OR strMode = "editPoll" Then %><% End If 'The message textarea %> <% End If '****************************************** %> <% 'If not PM then display another row If NOT 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 AND blnLoggedInUserEmail Then %> <% End If 'Display CAPTCHA images for Guest posting If blnGuestPostingCAPTCHA AND lngLoggedInUserID = 2 Then %> <% End If %>

<% = strTxtName %>:
<% = strTxtToUsername %>:	<% 'Get the users buddy list if they have one 'Initlise the sql statement strSQL = "SELECT " & strDbTable & "Author.Username " & _ "FROM " & strDbTable & "Author" & strDBNoLock & ", " & strDbTable & "BuddyList" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.Author_ID=" & strDbTable & "BuddyList.Buddy_ID " & _ "AND " & strDbTable & "BuddyList.Author_ID=" & lngLoggedInUserID & " AND " & strDbTable & "BuddyList.Buddy_ID <> 2 " & _ "ORDER BY " & strDbTable & "Author.Username ASC;" 'Query the database rsCommon.Open strSQL, adoCon %> tabindex="2" /> <% 'If there are records returned then display the users buddy list If NOT rsCommon.EOF Then Response.Write(vbCrLf & " " & strSelectFormBuddyList & ":" & _ vbCrLf & " " & _ vbCrLf & " -- " & strTxtNoneSelected & " --") 'Loop throuhgn and display the buddy list Do While NOT rsCommon.EOF Response.Write(vbCrLf & " " & rsCommon("Username") & "") 'Move to next record in rs rsCommon.MoveNext Loop Response.Write(vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If 'Reset server variables rsCommon.Close %>
<% = strTxtSubjectFolder %>:	tabindex="2" /><% 'If this is the forums moderator or forum admim then let them slect the priority level of the post If (blnAdmin OR blnPriority) AND (strMode = "new" or strMode="editTopic" OR strMode = "editPoll" OR strMode = "poll" or strMode = "editPoll") Then Response.Write(" " & strTxtPinnedTopic & ":" & _ vbCrLf & " " & _ vbCrLf & " " & strTxtNormal & "" & _ vbCrLf & " " & strTxtPinnedTopic & "") 'If this is the forum admin or moderator let them post an annoucment to this forum If blnAdmin = True OR blnModerator Then Response.Write(vbCrLf & " " & strTopThisForum & "") End If 'If this is the forum admin let them post a priority post to all forums If blnAdmin = True Then Response.Write(vbCrLf & " " & strTxtTopAllForums & "") End If Response.Write(" ") End If %>
<% = strTxtMessageIcon %>:	><% = strTxtNoneSelected %><% 'Loop through to display topic icons For intLoop = 1 TO Ubound(saryTopicIcon) Response.Write(vbCrLf & " " & saryTopicIcon(intLoop,1) & "") Next 'If no topic Icon the get the default one If strTopicIcon = "" Then strTopicIcon = strImagePath & "blank_smiley.gif" %>   " />
<% = strTxtCalendarEvent %>:	<% = strTxtStartDate %>:     <% = strTxtDay %> >----<% 'Create lists day's for birthdays For intLoop = 1 to 31 Response.Write(vbCrLf & " " & intLoop & "") Next %> <% = strTxtCMonth %> >---<% 'Create lists of days of the month for birthdays For intLoop = 1 to 12 Response.Write(vbCrLf & " " & intLoop & "") Next %> <% = strTxtCYear %> >-----<% 'If this is an old event and the date is from a previous year, display that year If intEventYear <> 0 AND intEventYear < CInt(Year(Now())) Then Response.Write(VbCrLf & " " & intEventYear & "") 'Create lists of years for birthdays For intLoop = CInt(Year(Now())) to CInt(Year(Now()))+1 Response.Write(vbCrLf & " " & intLoop & "") Next %> <% = strTxtEndDate %>:     <% = strTxtDay %> > >----<% 'Create lists day's for birthdays For intLoop = 1 to 31 Response.Write(vbCrLf & " " & intLoop & "") Next %> <% = strTxtCMonth %> > >---<% 'Create lists of days of the month for birthdays For intLoop = 1 to 12 Response.Write(vbCrLf & " " & intLoop & "") Next %> <% = strTxtCYear %> > >-----<% 'If this is an old event and the date is from a previous year, display that year If intEventYearEnd <> 0 AND intEventYearEnd < CInt(Year(Now())) Then Response.Write(VbCrLf & " " & intEventYearEnd & "") 'Create lists of years for birthdays For intLoop = CInt(Year(Now())) to CInt(Year(Now()))+1 Response.Write(vbCrLf & " " & intLoop & "") Next %> (<% = strTxtNotRequiredForSingleDateEvents %>)
<% = strTxtMessage %>:<% '*************** Emoticons ******************* '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 = 5 '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 If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then Response.Write(vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If End If 'Minus one form the index position intIndexPosition = intIndexPosition + 1 Next Response.Write("") Next If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then Response.Write(vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If %> <% = strTxtEmoticons %>   " & strTxtMore & " " & strTxtMore & "	<% '***** 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 ****** 'Name of the HTML form the textarea is within Const strFormName = "frmMessageForm" 'ID tag name of HTML textarea being replaced Const strTextAreaName = "message" 'Load default CSS and Javascript Response.Write(vbCrLf & " ") 'If this is an RTE enabled web browser load in the RTE content If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then 'If this is a quick reply to full reply then load up the session variable to pass across to the full RTE area If strMode = "QuickToFull" AND strMessage <> "" Then Session("Message") = strMessage 'If this is Gecko based browser link to JS code for Gecko If (RTEenabled = "Gecko" OR RTEenabled = "opera") AND blnEmoticons Then Response.Write(vbCrLf & " ") 'Load in Javascript for RTE browsers (creating an IFrame for the RTE area) %> <% 'If this is not an RTE enabled web browser load in the NON-RTE content Else %> <% If strMode="edit" OR strMode = "quote" OR strMode = "QuickToFull" or strMode="editTopic" or strMode="PM" Then Response.Write(vbCrLf & strMessage) %><% End If '******************************************************************** %>
	<% = strTxtEnable %> <% = strTxtForumCodes %> <% = strTxtToFormatPosts %>
	<% '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 %>
	<% = strTxtEmailNotifyWhenPMIsRead %>
<% = strTxtUniqueSecurityCode %>:	<% = strTxtEnterCAPTCHAcode %>
<% If NOT strMode = "PM" Then 'If strMode = "QuickToFull" Then strMode = "reply" %> <% 'If reply get the thread position number in the topic If strMode = "reply" Then Response.Write(vbCrLf & " ") End If End If %>	"false" AND blnRTEEditor AND blnWYSIWYGEditor Then Response.Write("onclick=""document.getElementById('message').value=document.getElementById('WebWizRTE').contentWindow.document.body.innerHTML;""") End If %> tabindex="26" /> OpenPreviewWindow(document.frmMessageForm);" tabindex="27" />