%
' ************************************************************************
' * 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 "
" & sURL & " | " & vbCRLF Response.Write "" & CodeMessage(sURL, True) & " | " & vbCRLF Response.Write "
" & sImage & " | " & vbCRLF Response.Write "" & CodeMessage(sImage, True) & " | " & vbCRLF Response.Write "
" & sCit & " | " & vbCRLF Response.Write "" & CodeMessage(sCit, True) & " | " & vbCRLF Response.Write "
" & sBold & " | " & vbCRLF Response.Write "" & CodeMessage(sBold, True) & " | " & vbCRLF Response.Write "
" & sItalic & " | " & vbCRLF Response.Write "" & CodeMessage(sItalic, True) & " | " & vbCRLF Response.Write "
" & sStroked & " | " & vbCRLF Response.Write "" & CodeMessage(sStroked, True) & " | " & vbCRLF Response.Write "
" & sSmileys & " | " & vbCRLF Response.Write "" & CodeMessage(sSmileys, True) & " | " & vbCRLF Response.Write "