03 ottobre 2004 alle 16:56:23

' Display new private messages
' IN : sMyLogin (string)
' OUT : -
Sub DisplayNewPrivateMessages(sMyLogin)
Dim oCn, oRs, rSQL, iNbMessages, iNbOldMessages, bDisplayPopup

If sMyLogin <> "" Then

bDisplayPopup = False
Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT Count(*) FROM messageslist WHERE mlTo='" & SQLEncrypt(sMyLogin) & "' AND mlRead=0"
Set oRs = DBRecordSet(oCn, rSQL)
iNbMessages = oRs(0)

If iNbMessages > 0 Then
iNbOldMessages = Request.Cookies("NewPrivateMessages")

If iNbOldMessages = "" Then
bDisplayPopup = True
Else
If IsNumeric(iNbOldMessages) Then
iNbOldMessages = CInt(iNbOldMessages)
' If iNbMessages > iNbOldMessages Then
bDisplayPopup = True
' end if
End If
End If

If bDisplayPopup And InStr(sURLPage, GLOBAL_SITE_PRIVATE_MESSAGES_PAGE) = 0 Then
if bDisplayPopupNewMessage then
Response.Write "<script language=""Java_Script"" type=""text/Java_Script"">window.open('" & GLOBAL_SITE_PATH & "newpmessage.asp', 'PrivateMessage', 'width=150, height=60, menubars=off');</script>"
Else
Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PRIVATE_MESSAGES_PAGE & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "pmnew.gif"" border=""0"" alt=""" & GetTranslation("LANG_NEW_PRIVATE_MESSAGES") & """></a>"
End if
End If

Response.Cookies("NewPrivateMessages") = CStr(iNbMessages)
End If

oRs.Close
Set oRs = Nothing
oCn.close
Set oCn = Nothing
End If
End Sub