17 giugno 2003 alle 22:54:33

response.Write "<table id=""TopPage"" width=""100%"" height=""60"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""topbanner"">" & vbCRLF

18 giugno 2003 alle 08:42:28
Modificato il 18 giugno 2003 alle 08:55:49

<%
' ************************************************************************
' * ASP-Nuke: Free web portal in ASP *
' ************************************************************************
' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) *
' * 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. *
' * *
' ************************************************************************
%>
<%
' Display website menu (admin part)
' IN : -
' OUT : -
Sub DisplayMenu()
Dim sBullet

' Skining for bullet
If bDisplayBullet Then sBullet = "<img src=""" & GLOBAL_SITE_THEMES_PATH & sTheme & "/bullet.gif"" border=""0"" alt=""""> "

CreateTopTable "MainMenu", GetTranslation("LANG_MENU")

Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & "Default.asp"">" & GetTranslation("LANG_DEFAULT") & "</a><br>" & vbCRLF
If GLOBAL_NEWS_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_NEWS_PAGE & """>" & GetTranslation("LANG_NEWS") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_COMMENTS_PAGE & """>" & GetTranslation("LANG_COMMENTS") & "</a><br>" & vbCRLF
End If
If GLOBAL_ARTICLES_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_ARTICLES_PAGE & """>" & GetTranslation("LANG_ARTICLES") & "</a><br>" & vbCRLF
End If
If GLOBAL_FORUM_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_FORUM_PAGE & """>" & GetTranslation("LANG_FORUM") & "</a><br>" & vbCRLF
End If
If GLOBAL_DIRECTORY_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_DIRECTORY_PAGE & """>" & GetTranslation("LANG_DIRECTORY") & "</a><br>" & vbCRLF
End If
If GLOBAL_DOWNLOADS_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_DOWNLOADS_PAGE & """>" & GetTranslation("LANG_DOWNLOADS") & "</a><br>" & vbCRLF
End If
If GLOBAL_IMAGES_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_IMAGES_PAGE & """>" & GetTranslation("LANG_IMAGES") & "</a><br>" & vbCRLF
End If
If GLOBAL_POLLS_TOP > 0 Then
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_POLLS_PAGE & """>" & GetTranslation("LANG_POLLS") & "</a><br>" & vbCRLF
End If

Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_LINKS_PAGE & """>" & GetTranslation("LANG_LINKS") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_ACCOUNTS_PAGE & """>" & GetTranslation("LANG_ACCOUNTS") & "</a><br>" & vbCRLF
If bDisplayAdvertising Then Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_ADVERTISING_PAGE & """>" & GetTranslation("LANG_ADVERTISING") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_CATEGORIES_PAGE & """>" & GetTranslation("LANG_CATEGORIES") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_VERSIONS_PAGE & """>" & GetTranslation("LANG_VERSIONS") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_PATTERN_PAGE & """>" & GetTranslation("LANG_TITLE_BLOCKS_DESIGNER") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_SMILEYS_PAGE & """>" & GetTranslation("LANG_SMILEYS") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_MAIL_PAGE & """>" & GetTranslation("LANG_SENDMAIL") & "</a><br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_ADMIN_PATH & GLOBAL_SITE_DATABASE_PAGE & """>" & GetTranslation("LANG_DATABASE") & "</a><br>" & vbCRLF
Response.Write "<br>" & vbCRLF
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_PATH & "Default.asp"">" & GetTranslation("LANG_BACK") & "</a>" & vbCRLF

CreateBottomTable ""
End Sub
%>