<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True Dim strMessage 'Holds the Users Message Dim strTempMessageLink 'Temporary word hold for e-mail and url words Dim strMessageLink 'Holds the new mesage link Dim lngLinkStartPos 'Holds the start position for a link Dim lngLinkEndPos 'Holds the end position for a word Dim strTempMessageQuote 'Temporary word hold for the first line of a quote Dim strMessageQuote 'Holds the new first line of a quote Dim lngQuoteStartPos 'Holds the start position for a quote Dim lngQuoteEndPos 'Holds the end position of a quote 'Read in the message to be previewed from the cookie set strMessage = Request.Cookies("Signature") 'Make sure this page is not cached Response.Expires = 15 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" 'Format the user input by replacing characters with HTML equivelents strMessage = Replace(strMessage, "<", "<", 1, -1, 1) strMessage = Replace(strMessage, ">", ">", 1, -1, 1) strMessage = Replace(strMessage, "¢", "¢", 1, -1, 1) strMessage = Replace(strMessage, " ", "       ", 1, -1, 1) strMessage = Replace(strMessage, " ", "      ", 1, -1, 1) strMessage = Replace(strMessage, " ", "     ", 1, -1, 1) strMessage = Replace(strMessage, " ", "    ", 1, -1, 1) strMessage = Replace(strMessage, " ", "   ", 1, -1, 1) strMessage = Replace(strMessage, vbTab, "     ", 1, -1, 1) strMessage = Replace(strMessage, Chr(10), "
", 1, -1, 1) 'Call the format_post.inc file to format the message %><% 'Call the code_check.asp file to remove malcious code strMessage = checkImages(strMessage) strMessage = checkLinks(strMessage) strMessage = formatInput(strMessage) 'If there is nothing to preview then say so If strMessage = "" OR IsNull(strMessage) Then strMessage = "

" & strTxtThereIsNothingToPreview & "


" 'Else fake a post so signature can be view in a real context Else strMessage = strTxtPostedMessage & "

-----------------
" & strMessage & "" End If 'Clean up Set adoCon = Nothing Set strCon = Nothing %> Signature Preview
<% = strTxtPostPreview %>
<% = strTxtSignaturePreview %>
<% = strMessage %>
<% = strTxtCloseWindow %>
<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Powered by Web Wiz Forums version 6.34") Else Response.Write("") End If Response.Write("
Copyright ©2001-2002 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>