Installazione Menu

Installazione Menu

Per leggere i messaggi privati è stata introdotta una nuova icona che permette di accedere alla propria casella.

In base al tipo di messaggi tale icona cambia:

Casella dei Messaggi Vuota

Casella dei Messaggi con Messaggi vecchi

Casella dei Messaggi con Messaggi nuovi

Tale icona si trova assieme alle altre principali del forum e passandoci il puntatore del mouse sopra indica anche il numero di messaggi.

Il codice necessario viene inserito nel file inc_top.asp che è incluso nel file zip da scaricare.

Volendo l'operazione è possibile farla a mano (nel caso il file è già personalizzato).

Alla riga 314 dopo il codice:

<a href="search.asp"><acronym title="Esegui una ricerca per parola chiave, data e/o nome"><img src="images/cerca.gif"></acronym></a>

inserire il seguente codice:

<%Set objCn = Server.CreateObject("ADODB.Connection")
objCn.open strConnString
strSQL = "SELECT * FROM FORUM_MESS WHERE MSGperNome = '" & ChkString(strDBNTUserName, "display") & "'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open strSQL, objCn
F = 0
E = 0
Do While Not RS.EOF
if rs("let") = 0 then
   F = F + 1
else
   E = E + 1
End If
RS.MoveNext
Loop
RS.close
Set RS = nothing
objCn.close
Set objCn= nothing
if F <> 0 OR E <> 0 then%>
  <center><font color="#FF0000" size="2">
  <%if F => 1 then%>
      <a href="messenger_leggi.asp"><img border="0" src="images/mess_priv_new.gif" alt="Hai  nuovi messaggi privati da leggere"></a>
  <%else%>
      <a href="messenger_leggi.asp"><img border="0" src="images/mess_priv_hold.gif" alt="Hai 3 messaggi privati già letti"></a>
  <%End If%></font>
<%else%>
  <a href="messenger_leggi.asp"><img border="0" src="images/mess_priv.gif" alt="Nono ci sono messaggi nella tua casella"></a>
<%End If%>

Attenzione: in ogni caso è possibile inserire tale codice dove si vuole... è consigliabile nel menu in alto.