Modifica ad un file DEFAULTX-INC.ASP
Procuratevi lo zip News-scroll, se non lo trovate qui, potete scaricarlo dal mio portale.
Per vostra sicurezza, eseguite sempre una copia dei file che andrete a modificare!!!
Per aggiungere lo scroll delle news nella pagina di default, immaginiamo di modificare uno dei files contenuti nella cartella INCLUDES, ad esempio, usiamo il file DEFAULT3-INC.ASP.
La prima operazione da eseguire è, scompattare in una cartella temporanea il file zip appena scaricato, fatto questo, copiamo il file newsscroll-inc.asp nella cartella INCLUDES.
Ora, editiamo con NOTEPAD il file DEFAULT3-INC.ASP e il file NEWSSCROLL-INC.ASP, rendiamoli visibili entrambi, magari posizionandoli uno sopra l'altro, nel file newsscroll-inc.asp troviamo una variabile denominata:
bDisplayFriend
posizionata nella seconda subroutine, Sub DisplayFriend(), dobbiamo dichiararla a livello globale, in modo da poterla usare in qualsiasi pagina, per fare questo, editiamo il file VARIABLES-INC.ASP, e, posizionandoci sotto le altre variabili dichiarate, scriviamo:
' Scroll News
Dim bDisplayFriend
Salviamo il file.
Ritorniamo al DEFAULT3-INC.ASP, e, cominciamo con la modifica, la prima da eseguire è, inserire questo include file sotto quelli esistenti:
<!--#include file="newsscroll-inc.asp"-->
di seguito, individuate questa stringa:
Response.Write " <tr>" & vbCRLF
If GLOBAL_NEWS_LINKS_TOP > 0 and GLOBAL_FORUM_TOP > 0 Then
e, subito sotto, sostituite :
Response.Write " <td width=""50%"" valign=""top"">" & vbCRLF
DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCRLF
con queste:
Response.Write "<td align=""center"" class=""small"" width=""50%"">" & vbCrlf
Response.Write "<MARQUEE behavior='scroll' align='center' direction='up' height='100' scrollamount='2' scrolldelay='80' onmouseover='this.stop()' onmouseout='this.start()'>" & vbCRLF
DisplayScrollNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCrlf
Salvate il file.
Ultima modifica, editate il file DEFAULT.ASP, e, sostituite l'include file che punta all'attuale defaultX-inc.asp con:
<!-- #include file="includes/default3-inc.asp" -->
Salvate il file.
Aggiornamento per chi usa il DB MySql:Il linguaggio SQL di MySql è leggermente diverso da Access, per cui, il file newsscroll-inc.asp, così come è disponibile non funziona, generando un errore SQL, tale errore è dovuto ad una istruzione TOP inserita nella query di selezione, istruzione che non è supportata da MySql, per far funzionare il file come descritto nell'articolo, è necessario modificare la query interessata.
Editare il file newsscroll-inc.asp, e, alla riga 33, modificare la query, eliminando, dopo SELECT l'istruzione TOP 8, eseguita questa operazione, la query dovrà essere così:
rSQL = "SELECT nID, nDate, nTitle FROM news, versions WHERE nVersion=vID AND nDate < '" & DateTimeToString(Now()) & "' AND nValid=1"
Ora, fate una prova.