Author |
Topic |
|
AWD_ENVY
Junior Member
103 Posts |
Posted - 19 June 2002 : 11:18:23
|
Not sure if someone already did this, but I wanted this feature......
If a new messages is recived it alearts the user, and prompts them with a javascript box to read the message. It works just like the pager, only the pager window doesn't have to be up.
Someone might want to get creative and make a DB check modification to make it only aleart once insted of everytime a page loads. Also maybe add some variables to turn the feature on/off in the admin section.
You must have the PM pager MOD to take advantage of this.....
Make the following a page called "inc_pm_alert.asp"
<% '###############################################################################Adding pager message notification. #####################################
if strDBNTUserName <> "" Then
' Get Private Message count if strDBType = "access" then strSqL = "SELECT count(M_TO) as [pmcount] " else strSqL = "SELECT count(M_TO) as pmcount " end if strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "
Set rsPM = my_Conn.Execute(strSql) pmcount = rsPM("pmcount")
if pmcount >= 1 then strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID, " & strTablePrefix & "PM.M_TO, " & strTablePrefix & "PM.M_SUBJECT, " & strTablePrefix & "PM.M_SENT, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_READ " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC"
Set rsMessage = my_Conn.Execute(strSql) %> <EMBED SRC="newmsg.wav" WIDTH=1 HEIGHT=1 HIDDEN="true" AUTOSTART="true" LOOP="false" volume="100"></EMBED> <script language=javascript> if (window.print) { agree = confirm('You have a new Private Message!\n Would you like to view it now ?'); if (agree) window.open('pm_pop_read.asp?id=<% =rsMessage("M_ID") %>','_blank','width=490,height=340,top=75,left=220,scrollbars=yes') else window.close(); } </script> <% END IF END IF
'############################################################################### END :Adding pager message notification: ########################### %>
Then Place <!--#INCLUDE FILE="inc_pm_alert.asp" --> Just "after" the <!--#INCLUDE FILE="inc_top.asp" --> line on the pages you want it to go off.....
I've installed it on the following pages.... default.asp,topic.asp,forum.asp
Edited by - AWD_ENVY on 19 June 2002 17:26:52 |
|
blackinwhite
Average Member
Turkey
657 Posts |
Posted - 20 June 2002 : 05:58:39
|
someone did something similar to this using VB script.
it was <SCRIPT LANGUAGE="VBscript"> returnvalue=MsgBox ("Yeni özel mesajý okumak ister misiniz?",36,"Özel Mesajýnýz Var!") If returnvalue=6 Then window.location="pm_view.asp?read=ok" Else End If </SCRIPT>
yours seems more detailed solution for this.
|
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 22 June 2002 : 13:04:41
|
quote:
someone did something similar to this using VB script.
it was <SCRIPT LANGUAGE="VBscript"> returnvalue=MsgBox ("Yeni özel mesajý okumak ister misiniz?",36,"Özel Mesajýnýz Var!") If returnvalue=6 Then window.location="pm_view.asp?read=ok" Else End If </SCRIPT>
yours seems more detailed solution for this.
I posted my version awhile ago too which was a little simpler and extremely effective. by the way, b&w, the snippet you posted is not Netscape compatible because VBScript does not work client side on NS.
http://www.nineinchnailz.com
Edited by - dayve on 22 June 2002 13:04:59 |
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 15 August 2002 : 02:51:55
|
quote:
I posted my version awhile ago too which was a little simpler and extremely effective. by the way, b&w, the snippet you posted is not Netscape compatible because VBScript does not work client side on NS.
Would you mind posting it again? I have searched and searched and searched but could not find it.
STW |
Shannon RidingArizona.com |
|
|
MarkJH
Senior Member
United Kingdom
1722 Posts |
Posted - 05 September 2002 : 12:50:20
|
Ditto.
I installed the PM Pager mod but it isn't really what i'm after.
Dayve, what i'm after is something that'll popup whenever the member gets a new PM. They can then click on the popup box either to close it or to close the popup and go directly to their inbox.
Is this what your code does? |
Bandlink.net - http://www.bandlink.net/ Bandlink Music Forums - http://www.bandlink.net/forum/ |
|
|
Lydecker
Junior Member
United Kingdom
297 Posts |
Posted - 05 September 2002 : 13:13:34
|
nice mod (the top post) but it ends up opening up windows (pop-ups) and tring to install plugins!
Does anyone have a 3.4.02 version working??
THanks |
|
|
philgsy
Starting Member
United Kingdom
18 Posts |
Posted - 05 September 2002 : 18:43:37
|
quote: Originally posted by Lydecker
nice mod (the top post) but it ends up opening up windows (pop-ups) and tring to install plugins!
Does anyone have a 3.4.02 version working??
THanks
There is a line of code, which you can add check out the post by CaNgo here: http://forum.snitz.com/forum/topic.asp?TOPIC_ID=33717&whichpage=4
It will put up an alert box, every time the user goes anywhere on the forum while they have new mail. It asks them if they want to read it, and if they say "Yes" wether to open a new windoe for the inbox, or load it in the current page. (You cant stop it though. If you dont read your mail, it will keep coming up, until you read...!) Hope this helps in some small way... |
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 05 September 2002 : 20:47:38
|
quote: Originally posted by Lydecker
nice mod (the top post) but it ends up opening up windows (pop-ups) and tring to install plugins!
you can include this file in inc_footer.asp, so it wo'nt freeze the page load when the alert window popup. </html> <!--#INCLUDE FILE="inc_pm_alert.asp"--> <% my_Conn.Close set my_Conn = nothing %>
and it play a sound file newmsg.wav when new PM coming.. i think most of browsers should support this "plugin".
anyway, you can refer to the post philgsy mentioned above. and try to do some tweak to fit your need.. (yeah~ i think it need some tweak to make it better. ) |
~......~.~~ |
|
|
vasanthm
Starting Member
35 Posts |
Posted - 06 September 2002 : 00:20:53
|
It looks like some one si tryin to copy my code and idea... Well ok below is the code.. But i have still not added the feature of turning it off... Add this in the inc_footer.asp file.. it works perfect..... I had already posted this in the PM thread... I hvae got another add in mod there which shows all the message to the admin... Check it out...
find this line in the inc_footer.asp and add the below code under it '## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
If Instr(Request.ServerVariables("Path_Info"), "pm_view.asp") < 1 then
if MemberID > 0 then
if strDBNTUserName <> "" then
' Get Private Message count for display on Default.asp
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmcount] "
else
strSqL = "SELECT count(M_TO) as pmcount "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "
Set rsPM = my_Conn.Execute(strSql)
pmcount = rsPM("pmcount")
rsPM.close
set rsPM = nothing
if(pmcount>0) then
response.write " <script language=""JavaScript""> { input_box=confirm(""You have a new private message. Click OK to view it, or cancel to hide this prompt.""); if (input_box==true) { second_box=confirm(""Open in new window?\n\n(Press cancel to open your Inbox in the current window.)""); if (second_box==true) { window.open('pm_view.asp?s=','pmnew','width=600,height=500,menubar=yes,scrollbars=yes,toolbar=yes,location=yes,directories=yes,resizable=yes,top=50,left=50'); } else { window.location=""pm_view.asp?s=""; }} else { }} // </script>"
end if
end if
end if
End If
|
|
|
Lydecker
Junior Member
United Kingdom
297 Posts |
Posted - 06 September 2002 : 08:59:21
|
Can someone explain why when I use the code: <EMBED SRC="newmsg.wav" WIDTH=1 HEIGHT=1 HIDDEN="true" AUTOSTART="true" LOOP="false" volume="100"></EMBED>
It SERIOUSLY reduces the audio quality in playback?
Thanks |
|
|
|
Topic |
|