<% '**************************************************************************************** '** 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.Write("
" & _ vbCrLf & "
" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
" & strTxtQuickReply& "
" & _ vbCrLf & " ") '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 Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") End If 'The message textarea Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " ") '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 'Display CAPTCHA images for Guest posting If blnGuestPostingCAPTCHA AND lngLoggedInUserID = 2 Then %> <% End If Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
" & strTxtName & ":" & _ vbCrLf & " " & _ vbCrLf & "

" & strTxtMessage & ":" & _ vbCrLf & " 		") '***** 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 & vbCrLf & " ") 'Javascript function to switch to full reply screen Response.Write(vbCrLf & " ") 'If this is an RTE enabled web browser load in the RTE content If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then 'Load in Javascript for RTE browsers Response.Write(vbCrLf & " ") 'Create IFrame with message for those with javascript disabled Response.Write(vbCrLf & " " & _ vbCrLf & " ") 'Create hidden inputs Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") 'If this is not an RTE enabled web browser load in the NON-RTE content Else 'Load in Javascript for non-RTE browsers Response.Write(vbCrLf & " ") 'Create Toolbar and Iframes Response.Write(vbCrLf & " ") 'Create the text area Response.Write(vbCrLf & " ") End If '******************************************************************** Response.Write(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 & "
<% = strTxtUniqueSecurityCode %>: <% = strTxtEnterCAPTCHAcode %>
") Response.Write(vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "  " & _ vbCrLf & " ") Response.Write(vbCrLf & " "false" AND blnRTEEditor AND blnWYSIWYGEditor Then Response.Write("onclick=""document.getElementById('message').value=document.getElementById('WebWizRTE').contentWindow.document.body.innerHTML;""") End If Response.Write(" tabindex=""6"" />") Response.Write(vbCrLf & " "false" AND blnRTEEditor AND blnWYSIWYGEditor Then Response.Write("document.getElementById('pre').value=document.getElementById('WebWizRTE').contentWindow.document.body.innerHTML;") Else Response.Write("document.getElementById('pre').value=document.getElementById('message').value;") End If Response.Write(" OpenPreviewWindow(document.frmMessageForm);"" tabindex=""7"" />" & _ vbCrLf & " " & _ vbCrLf & "
" & _ vbCrLf & "
" & _ vbCrLf & "
") %>