23 luglio 2004 alle 13:34:15

<%
' ************************************************************************
' * ASPNUKE: Free web portal in ASP *
' ************************************************************************
' * ASP-Nuke 2.0 Copyright (c) 2004 by Aspnuke.it Staff *
' * (staff@aspnuke.it) http://www.aspnuke.it *
' * *
' * Re-design by Enrico Musante (c) 2004 (emu@libero.it) *
' * Re-design by Frank Zalabard (c) 2004 (fsarzana@hotmail.com) *
' * Re-design by DJ (c) 2004 (infoz@searchwarezz.net)
' * *
' * ASP-Nuke 1.0, 1.1, 1.2 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. *
' * *
' ************************************************************************
%>
<!-- #include file="news-inc.asp" -->
<!-- #include file="forum-inc.asp" -->
<!-- #include file="articles-inc.asp"-->
<%
Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" align=""right"">" & vbCRLF
DisplayTopHomeEvents
Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCrlf
If GLOBAL_FORUM_TOP > 0 Then
Response.Write " <td width=""50%""valign=""top"" align=""right"">" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
End If
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
If GLOBAL_NEWS_LINKS_TOP > 0 AND GLOBAL_ARTICLES_TOP > 0 Then
Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" colspan=""3"">" & vbCRLF
DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCrlf
Response.Write " <td width=""50%"" valign=""top"" colspan=""3"">" & vbCRLF
DisplayTopArticles GLOBAL_ARTICLES_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
End If
DisplayTopNews GLOBAL_NEWS_TOP, 0
%>

Response.Write "<span class=""small"">" & Replace(Replace(GetTranslation("LANG_POST_DATE_BY"), "%1%", GetDateLitteralDDMMYYYYHHMMSS(StringToDate(sDate))), "%2%", "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(sAuthor) & """>" & Server.HTMLEncode(sAuthor) & "</a>") & "</span>" & vbCRLF

---------------
Marco