Snitz Forums 2000 - MySubs MOD w email toggle

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

MySubs MOD w email toggle

New Topic

Topic Locked

Printer Friendly

Author

Topic

Page: of 4

Aaron S.
Average Member

USA
985 Posts

Posted - 23 March 2002 : 17:51:34

This MOD enhances the My Subscriptions page.

Features:
- Toggle on/off email for each subscription
- View Last Post information for Forums and Topics
- Links from My Subscription page to Categories, Forums and Topics

This gives your members control over the volume of email they want to receive for subscriptions, and allows them to view updated information on each subscription from the My Subscriptions page.

Demo:

http://www.potf2.com/potj/forums

username: demo
password: demo

Download:

http://www.potf2.com/forums/mod/default.asp?MOD=MySubs

EDIT 3/29/02: I have updated the ZIP file. The DBS file will now try to add a field to the MEMBERS_PENDING table. If you have the Email Verification MOD installed then this saves you a step. If not, then you can ignore the error message when it can't find that table, the installation is working correctly.

EDIT 5/14/02: I have updated the ZIP file. Corrected a small bug in the readme file.

EDIT 5/14/02: I have updated the ZIP file. Fixed a pretty big bug. If you have this installed, I would read the post on 5/14 that has the updated code changes.

EDIT 5/15/02: I have updated the ZIP file. Fixed a minor bug. If you have this installed, just read the post from 5.15.

This is my first released MOD so please let me know if everything works OK from the readme file.

Enjoy,

Edited by - aaron s. on 15 May 2002 10:29:02

Aaron S.
Average Member

USA
985 Posts

Posted - 23 March 2002 : 18:07:16

Here is a screenshot that shows some of the additions to subscription_list.asp.

Nathan
Help Moderator

USA
7664 Posts

Posted - 23 March 2002 : 18:16:06

I am impressed. I do have a suggestion though.

When the pop_subscritoption comes up in the popup window, a user should be able to select then if they want to recieve email or not.

Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

Aaron S.
Average Member

USA
985 Posts

Posted - 23 March 2002 : 20:14:14

The ZIP as been updated to incorporate Nathan's idea.

Initially, I had left it out wanting to save the user a click since they can choose a default setting... but if they want something other than the default, they would have to do a couple clicks to go to My Subs and then change it.

Below is a screenshot when you click Subscribe. The radio button is populated with the member's default setting.

Aaron S.
Average Member

USA
985 Posts

Posted - 29 March 2002 : 12:40:23

One final thing to note:

If you have Email Verification MOD installed then you will need to also add the M_MYSUBS field to the MEMBERS_PENDING table.

Aaron S.
Average Member

USA
985 Posts

Posted - 03 April 2002 : 14:53:28

Does anyone have any feedback on this MOD?

Were the installation instructions informative enough... any suggestions for improvement, etc...?

Thanks,

keston
Starting Member

Netherlands
49 Posts

Posted - 14 May 2002 : 11:40:20

quote:

Does anyone have any feedback on this MOD?

Hi Aaron

I just installed everything but it didn't work (couldn't open subscription_list.asp). After a big search I saw in your help file the following code (somewhere near line 496):

find around line 323 (after above is done)

do until rs.EOF
LoopCount = LoopCount + 1
if Mode <> "" or (Mode = "" and TopicID = 0) then
Response.Write " </tr>"
Response.Write vbNewline & _
" <tr>" & vbNewline & _
" <td " & CellBg & " width = ""95%"" "

and change to:

do until rs.EOF
LoopCount = LoopCount + 1
if Mode <> "" or (Mode = "" and TopicID = 0) then
Response.Write " </tr>"
'########## MySubs MOD ###########
Response.Write vbNewline &_
" <tr>" & vbNewline
" <td " & CellBg & " width = ""70%"" "
'################################

and changed it into:

find around line 323 (after above is done)

do until rs.EOF
LoopCount = LoopCount + 1
if Mode <> "" or (Mode = "" and TopicID = 0) then
Response.Write " </tr>"
Response.Write vbNewline & _
" <tr>" & vbNewline & _
" <td " & CellBg & " width = ""95%"" "

and change to:

do until rs.EOF
LoopCount = LoopCount + 1
if Mode <> "" or (Mode = "" and TopicID = 0) then
Response.Write " </tr>"
'########## MySubs MOD ###########
Response.Write vbNewline &_
" <tr>" & vbNewline & _
" <td " & CellBg & " width = ""70%"" "
'################################

Now it does work...I just wondered why it works for everybody except for me...
Nice MOD, though.

======
keston
======

keston
Starting Member

Netherlands
49 Posts

Posted - 14 May 2002 : 12:53:10

Actually.....it doesn't work for me yet....
subscription_list.asp now generates a loop in subscriptions within the same category.

======
keston
======

keston
Starting Member

Netherlands
49 Posts

Posted - 14 May 2002 : 13:08:08

Aaron
On your site I saw that you have the same problem (sorry)....are you still working on this?

======
keston
======

Aaron S.
Average Member

USA
985 Posts

Posted - 14 May 2002 : 13:15:32

Good catch on that &_

My site doesn't use any &_, they are too confusing for me

... so I only use response.write.

Can you better explain the loop problem... maybe show me the steps to replicate the problem?

--Aaron

DOWNLOAD GREAT NEW MODS HERE

keston
Starting Member

Netherlands
49 Posts

Posted - 14 May 2002 : 13:30:14

quote:

Can you better explain the loop problem... maybe show me the steps to replicate the problem?

When i logged in at your site with 2x demo, I checked if you had the same loop problem...And you did.
Its generated only if you subscribe to a forum or (in your case) topic at the same category. Try it...

======
keston
======

Aaron S.
Average Member

USA
985 Posts

Posted - 14 May 2002 : 13:49:11

None of the Subscription logic was changed, so if there is a bug it is in Snitz too.

I am still having not quite understanding what the exact issue is... I have clicked around on my site and they seem to be showing up ok on the MySubs page.

--Aaron

DOWNLOAD GREAT NEW MODS HERE

keston
Starting Member

Netherlands
49 Posts

Posted - 14 May 2002 : 14:05:21

quote:

None of the Subscription logic was changed, so if there is a bug it is in Snitz too.

I am still having not quite understanding what the exact issue is... I have clicked around on my site and they seem to be showing up ok on the MySubs page.

======
keston
======

Aaron S.
Average Member

USA
985 Posts

Posted - 14 May 2002 : 15:56:51

I have updated the ZIP file for new MOD installations.

If you already have this installed, then make these few changes:

Around line 131 you will see:


set rsForumLoop = Server.CreateObject("ADODB.Recordset")
set rsTopicLoop = Server.CreateObject("ADODB.Recordset")

Change it to:


set rsForumLoop = Server.CreateObject("ADODB.Recordset")
set rsForumLoop2 = Server.CreateObject("ADODB.Recordset")
set rsTopicLoop = Server.CreateObject("ADODB.Recordset")

Around line 188 you will see:


	StrSql = "SELECT DISTINCT S.CAT_ID, CAT_NAME, CAT_SUBSCRIPTION, CAT_ORDER, SUB_EMAIL,  S.TOPIC_ID, S.FORUM_ID  " &_

Change it to:


	StrSql = "SELECT DISTINCT S.CAT_ID, CAT_NAME, CAT_SUBSCRIPTION, CAT_ORDER  " &_

Around line 224 you will see:


	StrSql =	"SELECT DISTINCT S.FORUM_ID, F_SUBJECT, F_SUBSCRIPTION, F_ORDER, F_LAST_POST, F_LAST_POST_AUTHOR, SUB_EMAIL, S.TOPIC_ID, S.CAT_ID  " &_

Change it to:


	StrSql =	"SELECT DISTINCT S.FORUM_ID, F_SUBJECT, F_SUBSCRIPTION, F_ORDER  " &_

Around line 399 you will see:


	elseif Level = "FORUM" then
		if IsNull(rsForumLoop("F_LAST_POST_AUTHOR")) then
			strLastAuthor = ""
		else
			strLastAuthor = "<br>by: " 
		if strUseExtendedProfile then
			strLastAuthor = strLastAuthor & "<a href=""pop_profile.asp?mode=display&id="& ChkString(rsForumLoop("F_LAST_POST_AUTHOR"), "JSurlpath") & """>"
		else
			strLastAuthor = strLastAuthor & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & ChkString(rsForumLoop("F_LAST_POST_AUTHOR"), "JSurlpath") & "')"">"
		end if
            strLastAuthor = strLastAuthor & ChkString(getMemberName(rsForumLoop("F_LAST_POST_AUTHOR")), "display") & "</a>"
        end if
	%>
	<td bgcolor="<% =strForumCellColor %>" valign="center" align="center" nowrap width=40%><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>"><b><% =ChkDate(rsForumLoop("F_LAST_POST")) %></b> <% =ChkTime(rsForumLoop("F_LAST_POST")) %><%=strLastAuthor%></font></td>
	<%
	else

Change it to:


elseif Level = "FORUM" then
		StrSql =	"SELECT F_LAST_POST, F_LAST_POST_AUTHOR, SUB_EMAIL, S.TOPIC_ID, S.CAT_ID, S.FORUM_ID "
		StrSql = StrSql & " FROM " & strTablePrefix & "FORUM F, " & strTablePrefix & "SUBSCRIPTIONS S" & _
					" WHERE S.FORUM_ID = F.FORUM_ID " & _
					"   AND S.CAT_ID   = " & CatID
		if Mode = "" then
			StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
		end if
		StrSql = StrSql & " ORDER BY F_ORDER, F_SUBJECT "
		
		rsForumLoop2.Open StrSql, my_Conn, 3
		if rsForumLoop2.EOF or rsForumLoop2.BOF then
			' should not happen
		else
						
        if IsNull(rsForumLoop2("F_LAST_POST_AUTHOR")) then
            strLastAuthor = ""
        else
            strLastAuthor = "<br>by: " 
            if strUseExtendedProfile then
				strLastAuthor = strLastAuthor & "<a href=""pop_profile.asp?mode=display&id="& ChkString(rsForumLoop2("F_LAST_POST_AUTHOR"), "JSurlpath") & """>"
			else
				strLastAuthor = strLastAuthor & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & ChkString(rsForumLoop2("F_LAST_POST_AUTHOR"), "JSurlpath") & "')"">"
			end if
            strLastAuthor = strLastAuthor & ChkString(getMemberName(rsForumLoop2("F_LAST_POST_AUTHOR")), "display") & "</a>"
        end if
		
		end if
        %>
        <td bgcolor="<% =strForumCellColor %>" valign="center" align="center" nowrap width=40%><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>"><b><% =ChkDate(rsForumLoop2("F_LAST_POST")) %></b> <% =ChkTime(rsForumLoop2("F_LAST_POST")) %><%=strLastAuthor%></font></td>
<%
else

Around line 445 you will see:


	elseif level="FORUM" then
		if cint(rsForumLoop("SUB_EMAIL")) = 1 then
			response.write "<a href=""javascript:subemail(0," & rsForumLoop("CAT_ID") & "," & rsForumLoop("FORUM_ID") & "," & rsForumLoop("TOPIC_ID") & ");""><img src=""icon_email_no.gif"" alt=""Get no email on forum"" border=0></a>"
		else
			response.write "<a href=""javascript:subemail(1," & rsForumLoop("CAT_ID") & "," & rsForumLoop("FORUM_ID") & "," & rsForumLoop("TOPIC_ID") & ");""><img src=""icon_email.gif"" alt=""Get email on forum"" border=0></a>"
		end if
		rsForumLoop2.close
	elseif level="CAT" then
		if cint(rsCatLoop("SUB_EMAIL")) = 1 then
	        	response.write "<a href=""javascript:subemail(0," & rsCatLoop("CAT_ID") & "," & rsCatLoop("FORUM_ID") & "," & rsCatLoop("TOPIC_ID") & ");""><img src=""icon_email_no.gif"" alt=""Get no email on category"" border=0></a>"
		else
			response.write "<a href=""javascript:subemail(1," & rsCatLoop("CAT_ID") & "," & rsCatLoop("FORUM_ID") & "," & rsCatLoop("TOPIC_ID") & ");""><img src=""icon_email.gif"" alt=""Get email on category"" border=0></a>"
		end if
	end if

Change it to:


	elseif level="FORUM" then
		if cint(rsForumLoop2("SUB_EMAIL")) = 1 then
			response.write "<a href=""javascript:subemail(0," & rsForumLoop2("CAT_ID") & "," & rsForumLoop2("FORUM_ID") & "," & rsForumLoop2("TOPIC_ID") & ");""><img src=""icon_email_no.gif"" alt=""Get no email on forum"" border=0></a>"
		else
			response.write "<a href=""javascript:subemail(1," & rsForumLoop2("CAT_ID") & "," & rsForumLoop2("FORUM_ID") & "," & rsForumLoop2("TOPIC_ID") & ");""><img src=""icon_email.gif"" alt=""Get email on forum"" border=0></a>"
		end if
		rsForumLoop2.close
	elseif level="CAT" then
		StrSql =	"SELECT F_LAST_POST, F_LAST_POST_AUTHOR, SUB_EMAIL, S.TOPIC_ID, S.CAT_ID, S.FORUM_ID "
		StrSql = StrSql & " FROM " & strTablePrefix & "FORUM F, " & strTablePrefix & "SUBSCRIPTIONS S" & _
		" WHERE S.FORUM_ID = F.FORUM_ID " & _
		"   AND S.CAT_ID   = " & CatID
		if Mode = "" then
			StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
		end if
		StrSql = StrSql & " ORDER BY F_ORDER, F_SUBJECT "
		
		rsForumLoop2.Open StrSql, my_Conn, 3
	        if rsForumLoop2.EOF or rsForumLoop2.BOF then
			' should not happen
		else
		if cint(rsCatLoop("SUB_EMAIL")) = 1 then
	        	response.write "<a href=""javascript:subemail(0," & rsCatLoop2("CAT_ID") & "," & rsCatLoop2("FORUM_ID") & "," & rsCatLoop2("TOPIC_ID") & ");""><img src=""icon_email_no.gif"" alt=""Get no email on category"" border=0></a>"
		else
			response.write "<a href=""javascript:subemail(1," & rsCatLoop2("CAT_ID") & "," & rsCatLoop2("FORUM_ID") & "," & rsCatLoop2("TOPIC_ID") & ");""><img src=""icon_email.gif"" alt=""Get email on category"" border=0></a>"
		end if
		end if
		rsForumLoop2.close
	end if

Around 478 you will see:


	set rsForumLoop = nothing

Change it to:


	set rsForumLoop = nothing
	set rsForumLoop2 = nothing

Please let me know if there are any other problems!

Thanks keston!

-Aaron

DOWNLOAD GREAT NEW MODS HERE

Edited by - aaron s. on 14 May 2002 17:04:36

keston
Starting Member

Netherlands
49 Posts

Posted - 15 May 2002 : 04:05:33

Aaron, looking good!!

======
keston
======

keston
Starting Member

Netherlands
49 Posts

Posted - 15 May 2002 : 04:39:15

Well.......
Now everything works, but

when one subscribes (to CAT, forum or topic) you always have the 'icon_email_no.gif' as a default ( somehow the thingy that is done in 'pop_subscription.asp' is overruled). You can change this in the 'subscription_list.asp', but an Admin cannot do this in MODE=All. When the admin tries this he goes back to 'subscription_list.asp'.

======
keston
======

Page: of 4

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.22 seconds.