<% '################################################################################# '## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% strSmileCode = array("[:)]","[:D]","[8D]","[:I]","[:p]","[}:)]","[;)]","[:o)]","[B)]","[8]","[:(]","[8)]","[:0]","[:(!]","[xx(]","[|)]","[:X]","[^]","[V]","[?]") strSmileDesc = array("" & fLang(strLangPop_Icon_Legend00030),fLang(strLangPop_Icon_Legend00040),fLang(strLangPop_Icon_Legend00050),fLang(strLangPop_Icon_Legend00060),fLang(strLangPop_Icon_Legend00070),fLang(strLangPop_Icon_Legend00080),fLang(strLangPop_Icon_Legend00090),fLang(strLangPop_Icon_Legend00100),fLang(strLangPop_Icon_Legend00110),fLang(strLangPop_Icon_Legend00120),fLang(strLangPop_Icon_Legend00130),fLang(strLangPop_Icon_Legend00140),fLang(strLangPop_Icon_Legend00150),fLang(strLangPop_Icon_Legend00160),fLang(strLangPop_Icon_Legend00170),fLang(strLangPop_Icon_Legend00180),fLang(strLangPop_Icon_Legend00190),fLang(strLangPop_Icon_Legend00200),fLang(strLangPop_Icon_Legend00210),fLang(strLangPop_Icon_Legend00220) & "") strSmileName = array(strIconSmile,strIconSmileBig,strIconSmileCool,strIconSmileBlush,strIconSmileTongue,strIconSmileEvil,strIconSmileWink,strIconSmileClown,strIconSmileBlackeye,strIconSmile8ball,strIconSmileSad,strIconSmileShy,strIconSmileShock,strIconSmileAngry,strIconSmileDead,strIconSmileSleepy,strIconSmileKisses,strIconSmileApprove,strIconSmileDisapprove,strIconSmileQuestion) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & fLang(strLangPop_Icon_Legend00010) & "

" & vbNewLine & _ "

" & fLangN(strLangPop_Icon_Legend00020,getCurrentIcon(strIconSmile,"","hspace=""10"" align=""absmiddle""") & "|" & getCurrentIcon(strIconSmileSad,"","hspace=""10"" align=""absmiddle""") & "|" & strForumTitle) & "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine for sm = 0 to 9 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine next Response.Write "
" & getCurrentIcon(strSmileName(sm),"","hspace=""10"" align=""absmiddle""") & " " & strSmileDesc(sm) & " " & strSmileCode(sm) & "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine for sm = 10 to 19 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine next Response.Write "
" & getCurrentIcon(strSmileName(sm),"","hspace=""10"" align=""absmiddle""") & " " & strSmileDesc(sm) & " " & strSmileCode(sm) & "
" & vbNewLine & _ "

" & vbNewLine & _ "

" & vbNewLine WriteFooterShort Response.End %>