20 gennaio 2005 alle 08:45:06

%>
<!-- #include file="includes/includes-inc.asp" -->
<!-- #include file="includes/onlinemembers-inc.asp" -->
<%
DoOnlineMembersPre iOnlineMembersReload
DisplayNewPrivateMessages(sPseudo)
OnlineMembers
DoOnlineMembersPost
%>
<!-- #include file="includes/clearitall-inc.asp" -->

Sub DisplayNewPrivateMessages(sMyLogin)
Dim oCn, oRs, rSQL, iNbMessages, iNbOldMessages, bDisplayPopup

bDisplayPopup = False

If sMyLogin <> "" Then

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

If bDisplayPopup And InStr(sURLPage, GLOBAL_SITE_PRIVATE_MESSAGES_PAGE) = 0 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>"
End If

Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PRIVATE_MESSAGES_PAGE & """ target=""_top""><img src=""" & GLOBAL_SITE_IMAGES_PATH & "pmnew.gif"" border=""0"" alt=""" & GetTranslation("LANG_NEW_PRIVATE_MESSAGES") & """ hspace=""3"">" & GetTranslation("LANG_NEW_PRIVATE_MESSAGES") & "</a>"
Response.Cookies("NewPrivateMessages") = CStr(iNbMessages)
End If

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