Inseriamo gli articoli in prima pagina....
La versione definitiva per l'inserimento degli articoli nella pagina DEFAULT.ASP:
E' buona norma effettuare sempre un back-up dei files che si andranno a modificare.
Per prima cosa, editate il file default.asp, ed inserite sotto gli include già presenti questo:
<!--#include file='includes/articles-inc.asp'-->
e il codice seguente al posto di quello originale:
Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
If GLOBAL_FORUM_TOP > 0 and GLOBAL_ARTICLES_TOP > 0 Then
'Response.Write " <td width=""33%"" valign=""top"">" & vbCRLF
'DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
'Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" align=""right"">" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" align=""right"">" & vbCrlf
DisplayTopArticles GLOBAL_ARTICLES_TOP
Response.Write " </td>" & vbCrlf
Response.Write " </tr>" & vbCRLF
'ElseIf GLOBAL_NEWS_LINKS_TOP > 0 Then
'Response.Write " <td width=""100%"" valign=""top"">" & vbCRLF
'DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
'Response.Write " </td>" & vbCRLF
'Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_FORUM_TOP > 0 Then
Response.Write " <td width=""100%"" valign=""top"" align=""right""gt" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_ARTICLES_TOP > 0 Then
Response.Write " <td width=""100%"" valign=""top"" align=""right"">" & vbCrlf
DisplayTopArticles GLOBAL_ARTICLES_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
End If
Response.Write "</table>" & vbCRLF
DisplayTopNews GLOBAL_NEWS_TOP, 0
Salvate il file.
Seconda modifica, editate il file /includes/articles-inc.asp, individuate questa parte di codice:
iLine = 1
While Not oRs.EOF
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td><a href=""" & sURLPage & "?id=" & oRs("arID") & """>" & CodeMessage(oRs("arTitle"), True) & "</a></td>" & vbCRLF
Il secondo Response.Write va sostituio con questa riga di codice:
Response.Write " <td><a href=""articles.asp?id=" & oRs("arID") & """>" & CodeMessage(oRs("arTitle"), True) & "</a></td>" & vbCRLF
Salvate il file.
Ora non vi resta che eseguire l'upload dei 2 files modificati, rispettivamente in ROOT o nella cartella che contiene AspNuke e nella cartella /INCLUDES/.
Ciauzz DJ
P.S. per chi volesse avere la tabella come quella di questo sito, deve editare il file /includes/articles-inc.asp e, per eliminare la scritta TITOLO, inserire un rem (apostrofo) davanti ai 2 Response.Write che trovate subito sotto questa riga:
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
'Response.Write "<tr class=""tablelinemain"">" & vbCRLF
'Response.Write "<td>" & GetTranslation("LANG_TITLE") & "</td>" & vbCRLF
Per poter avere il colore uniforme dello sfondo nella tabella, anziche le righe a colore alterno, è necessario modificare la riga che trovate subito sotto:
While Not oRs.EOF
inserendo nell'attributo class= la proprietà MYTR al posto di quanto trovate in originale.