<% 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 '** '**************************************************************************************** Response.Buffer = True 'Reset Server Objects Set adoCon = Nothing Set strCon = Nothing %> Forum Codes
<% = strTxtForumCodes %>
<% = strTxtYouCanUseForumCodesToFormatText %>

<% = strTxtTypedForumCode %> <% = strTxtConvetedCode %>
<% If blnEmoticons = True Then %> <% End If %>
<% = strTxtTextFormating %>  
[B]<% = strTxtBold %>[/B] <% = strTxtBold %>
[I]<% = strTxtItalic %>[/I] <% = strTxtItalic %>
[U]<% = strTxtUnderline %>[/U] <% = strTxtUnderline %>
[CENTER]<% = strTxtCentre %>[/CENTER] <% = strTxtCentre %>
   
<% = strTxtImagesAndLinks %>  
[IMG]http://myWeb.com/smiley.gif[/IMG]
[URL=http://www.myWeb.com]<% = strTxtMyLink %>[/URL] <% = strTxtMyLink %>
[EMAIL=me@myWeb.com]<% = strTxtMyEmail %>[/EMAIL] <% = strTxtMyEmail %>
   
<% = strTxtFontTypes %>  
[FONT=Arial]Arial[/FONT] Arial
[FONT=Courier]Courier[/FONT] Courier
[FONT=Times]Times[/FONT] Times
[FONT=Verdana]Verdana[/FONT] Verdana
   
<% = strTxtFontSizes %>  
[SIZE=1]<% = strTxtFontSize %> 1[/FONT] <% = strTxtFontSize %> 1
[SIZE=2]<% = strTxtFontSize %> 2[/FONT] <% = strTxtFontSize %> 2
[SIZE=3]<% = strTxtFontSize %> 3[/FONT] <% = strTxtFontSize %> 3
[SIZE=4]<% = strTxtFontSize %> 4[/FONT] <% = strTxtFontSize %> 4
[SIZE=5]<% = strTxtFontSize %> 5[/FONT] <% = strTxtFontSize %> 5
[SIZE=6]<% = strTxtFontSize %> 6[/FONT] <% = strTxtFontSize %> 6
   
<% = strTxtFontColours %>  
[BLACK]<% = strTxtBlack & " " & strTxtFont %>[/FONT] <% = strTxtBlack & " " & strTxtFont %>
[WHITE]<% = strTxtWhite & " " & strTxtFont %>[/FONT] <% = strTxtWhite & " " & strTxtFont %>
[BLUE]<% = strTxtBlue & " " & strTxtFont %>[/FONT] <% = strTxtBlue & " " & strTxtFont %>
[RED]<% = strTxtRed & " " & strTxtFont %>[/FONT] <% = strTxtRed & " " & strTxtFont %>
[GREEN]<% = strTxtGreen & " " & strTxtFont %>[/FONT] <% = strTxtGreen & " " & strTxtFont %>
[YELLOW]<% = strTxtYellow & " " & strTxtFont %>[/FONT] <% = strTxtYellow & " " & strTxtFont %>
[ORANGE]<% = strTxtOrange & " " & strTxtFont %>[/FONT] <% = strTxtOrange & " " & strTxtFont %>
[BROWN]<% = strTxtBrown & " " & strTxtFont %>[/FONT] <% = strTxtBrown & " " & strTxtFont %>
[MAGENTA]<% = strTxtMagenta & " " & strTxtFont %>[/FONT] <% = strTxtMagenta & " " & strTxtFont %>
[CYAN]<% = strTxtCyan & " " & strTxtFont %>[/FONT] <% = strTxtCyan & " " & strTxtFont %>
[LIME GREEN]<% = strTxtLimeGreen & " " & strTxtFont %>[/FONT] <% = strTxtLimeGreen & " " & strTxtFont %>
   
<% = strTxtEmoticons %>  
[:)] <% = strTxtSmile %> [:)] [:oops:] <% = strTxtEmbarassed %> [:oops:]
[;)] <% = strTxtWink %> [;)] [:star:] <% = strTxtStar %> [:star:]
[o)] <% = strTxtShocked %> [:O] [xx(] <% = strTxtDead %> [xx(]
[:D] <% = strTxtBigSmile %> [:D] [|)] <% = strTxtSleepy %> [|)]
[:errr:] <% = strTxtConfused %> [:errr:] [:V:] <% = strTxtDisapprove %> [:V:]
[:(] <% = strTxtUnhappy %> [:(] [:^:] <% = strTxtApprove %> [:^:]
[:x] <% = strTxtAngry %> [:x] [}:)] <% = strTxtEvil %> [}:)]
[:o)] <% = strTxtClown %> [:o)] [8D] <% = strTxtCool %> [8D]
<% = 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.32") 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 ****** %>