<% ' ************************************************************************ ' * ASP-Nuke: Free web portal in ASP * ' ************************************************************************ ' * Copyright (c) 2002 by Gaetan Bouveret * ' * http://www.asp-nuke.com * ' * * ' * 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 * ' * (at your option) any later version. * ' * * ' ************************************************************************ %> <% sTitlePage = GetTranslation("LANG_TITLE_SMILEYS") %> <% Dim sURL, sImage, sBold, sItalic, sUnderlined, sStroked, sCit, sSmileys sURL = "[url]" & GLOBAL_SITE_URL & "[/url]" sImage = "[img]" & GLOBAL_SITE_URL & GLOBAL_SITE_THEMES_PATH & sTheme & "/bullet.gif[/img]" sCit = "[cit]" & GLOBAL_SITE_NAME & "[/cit]" sBold = "[b]" & GLOBAL_SITE_NAME & "[/b]" sItalic = "[i]" & GLOBAL_SITE_NAME & "[/i]" sUnderlined = "[u]" & GLOBAL_SITE_NAME & "[/u]" sStroked = "[s]" & GLOBAL_SITE_NAME & "[/s]" sSmileys = ":) ;) :( 8) [feu]" CreateTopTable "Tags", GetTranslation("LANG_TAGS") Response.Write GetTranslation("LANG_TAGS_DESCRIPTION") & "

" & vbCRLF Response.Write "" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & sURL & "" & CodeMessage(sURL, True) & "
" & sImage & "" & CodeMessage(sImage, True) & "
" & sCit & "" & CodeMessage(sCit, True) & "
" & sBold & "" & CodeMessage(sBold, True) & "
" & sItalic & "" & CodeMessage(sItalic, True) & "
" & sStroked & "" & CodeMessage(sStroked, True) & "
" & sSmileys & "" & CodeMessage(sSmileys, True) & "
" & vbCRLF CreateBottomTable "" %>