Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Jump to the first unread post in topic

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Webbo Posted - 15 September 2015 : 17:26:58
Having done a search for a 'Jump to first unread post in a topic' the nearest I could find relating to it was this old thread...
http://forum.snitz.com/Forum/topic.asp?ARCHIVE=true&TOPIC_ID=31927

We already have this which will 'Jump to Last Post'


How hard would it be to convert it to 'jump to first unread post' within a thread for logged in members and leave it as 'jump to last post' for visitors who would not be 'cookied' so therefore the software wouldn't know what they'd read or not?
15   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 04 October 2015 : 16:03:26
quote:
when jumping to last unread post from default it takes me back to a post way back in 2005 instead of the last unread post in that forum


It shouldn't. It is sorted by Topic_ID in descending order.
Webbo Posted - 04 October 2015 : 13:04:47
Changing CInt() to CLng() fixed the error however when jumping to last unread post from default it takes me back to a post way back in 2005 instead of the last unread post in that forum
HuwR Posted - 04 October 2015 : 13:03:37
try changing CInt to CLng
Webbo Posted - 04 October 2015 : 12:57:48
Sorry for the delay Carefree, I've now tried implementing this and get the following error on Default.asp

Microsoft VBScript runtime error '800a0006'

Overflow: 'cint'

/forum/default.asp, line 1072


That line is the second one here:

Set rsUR = Nothing
If Topic_UnreadID > 0 Then intTUI = CInt(Topic_UnreadID) Else intTUI = 0
golfmann Posted - 27 September 2015 : 01:43:13
I never said anything about wanting emails. and I am aware of all the rest. I ws just voicing an opinion of a major shortcoming IMO.
Have a good week
Carefree Posted - 26 September 2015 : 18:00:44
quote:
I'd like to personalize some kind of alert to a given member so they can keep track better if someone replies to their post OR a reply they made...

There's no way to know (with the current configuration) which reply someone responds to. Replies are all associated strictly with the topic, even if the content refers to a specific earlier reply.

Subscriptions already fulfills the topic alerts. Members need only subscribe to their own topics. If you make alerts/emails automatic for all topics, you'll probably end up on a spam list and have your server blocked.
golfmann Posted - 26 September 2015 : 15:11:08
quote:
Originally posted by Carefree

They are. Not sure exactly what you want here. An indicator of topics with new replies BUT only those which you either created the topic or had previously replied to?
I'd like to personalize some kind of alert to a given member so they can keep track better if someone replies to their post OR a reply they made... Same thing's I've been wanting for oh.... about 10 years give or take

Active topics, seems to me, to take care of the rest.

Then No other forum software would have anything over on Snitz as far as I'm concerned.
Webbo Posted - 26 September 2015 : 02:15:20
Just letting you all know I'm not ignoring you
Had a busy week with one thing and another so not had any time to implement this
Carefree Posted - 21 September 2015 : 00:33:38
OK. This is untested, but should do it.

"topic.asp" code


'	##	Track Views Below
Dim strViewed, intLSV, intFound
strViewed="":intLSV=0 : intFound = 0
If MemberID > 0 Then strMID = CStr(MemberID) Else strMID=""
strSqlVL = "SELECT TOPIC_ID, T_VIEWLIST FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPIC_ID
Set rsViewed = my_Conn.Execute(strSqlVL)
If Not (rsViewed.BOF Or rsViewed.EOF) Then
	strViewed = Trim(rsViewed("T_VIEWLIST"))
	If Len(strViewed) > 0 Then
		intLSV = Len(strViewed)
		If InStr(strViewed, "|" & strMid & "|") = 0 Then
			strViewed = strViewed & strMid & "|"
		Else
			intFound = 1
		End If
	Else
		strViewed = "|" & strMid & "|"
	End If
	rsViewed.Close
End If
Set rsViewed = Nothing
If strMid > "" Then
	If intFound = 0 Then
		strSqlTV = "UPDATE " & strTablePrefix & "TOPICS SET T_VIEWLIST='" & strViewed & "' WHERE TOPIC_ID = " & Topic_ID
		my_conn.Execute (strSqlTV),,adCmdText + adExecuteNoRecords
		strSqlRL = "SELECT TOPIC_ID, REPLY_ID, R_VIEWLIST FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " ORDER BY TOPIC_ID DESC, REPLY_ID DESC"
		Set rsViewed = my_Conn.Execute(strSqlRL)
		If Not rsViewed.EOF Then
			If Request("whichpage") > "" Then 
				reViewed.Move(25 * whichpage)
			Else
				rsViewed.MoveFirst
			End If
			strViewed = "" : intI = 0
			Do While Not rsViewed.EOF
				intI = intI + 1
				If intI = 26 Then Exit Do
				strViewed = Trim(rsViewed("R_VIEWLIST"))
				If Len(strViewed) > 0 Then
					If InStr(strViewed, "|" & strMid & "|") = 0 Then
						strViewed = strViewed & strMid & "|"
					Else
						strViewed = "|" & strMid & "|"
					End If
				Else
					strViewed = "|" & strMid & "|"
				End If
				strSqlRV = "UPDATE " & strTablePrefix & "REPLY SET R_VIEWLIST='" & strViewed & "' WHERE TOPIC_ID = " & Topic_ID & " AND REPLY_ID=" & rsViewed("REPLY_ID")
				my_conn.Execute (strSqlRV),,adCmdText + adExecuteNoRecords
				rsViewed.MoveNext
			Loop
			rsViewed.Close
		End If
		Set rsViewed = Nothing
	Else
		strSqlRL = "SELECT TOPIC_ID, REPLY_ID, R_VIEWLIST FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " ORDER BY TOPIC_ID DESC, REPLY_ID DESC"
		Set rsViewed = my_Conn.Execute(strSqlRL)
		If Not rsViewed.EOF Then
			If Request("whichpage") > "" Then 
				reViewed.Move(25 * whichpage)
			Else
				rsViewed.MoveFirst
			End If
			strViewed = "" : intI = 0
			Do While Not rsViewed.EOF
				intI = intI + 1
				If intI = 26 Then Exit Do
				strViewed = Trim(rsViewed("R_VIEWLIST"))
				If Len(strViewed) > 0 Then
					If InStr(strViewed, "|" & strMid & "|") = 0 Then
						strViewed = strViewed & strMid & "|"
					Else
						strViewed = "|" & strMid & "|"
					End If
				Else
					strViewed = "|" & strMid & "|"
				End If
				strSqlRV = "UPDATE " & strTablePrefix & "REPLY SET R_VIEWLIST='" & strViewed & "' WHERE TOPIC_ID = " & Topic_ID & " AND REPLY_ID=" & rsViewed("REPLY_ID")
				my_conn.Execute (strSqlRV),,adCmdText + adExecuteNoRecords
				rsViewed.MoveNext
			Loop
			rsViewed.Close
		End If
		Set rsViewed = Nothing
	End If
ElseIf intLSV = 0 And strMid > "" Then
	strViewed = "|" & strMid & "|"
	strSqlTV = "UPDATE " & strTablePrefix & "TOPICS SET T_VIEWLIST='" & strViewed & "' WHERE TOPIC_ID = " & Topic_ID
	my_conn.Execute (strSqlTV),,adCmdText + adExecuteNoRecords
	strSqlRL = "SELECT TOPIC_ID, REPLY_ID, R_VIEWLIST FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " ORDER BY TOPIC_ID DESC, REPLY_ID DESC"
	Set rsViewed = my_Conn.Execute(strSqlRL)
	If Not rsViewed.EOF Then
		If Request("whichpage") > "" Then 
			reViewed.Move(25 * whichpage)
		Else
			rsViewed.MoveFirst
		End If
		strViewed = "" : intI = 0
		Do While Not rsViewed.EOF
			intI = intI + 1
			If intI = 26 Then Exit Do
			strViewed = Trim(rsViewed("R_VIEWLIST"))
			If Len(strViewed) > 0 Then
				If InStr(strViewed, "|" & strMid & "|") = 0 Then
					strViewed = strViewed & strMid & "|"
				Else
					strViewed = "|" & strMid & "|"
				End If
			Else
				strViewed = "|" & strMid & "|"
			End If
			strSqlRV = "UPDATE " & strTablePrefix & "REPLY SET R_VIEWLIST='" & strViewed & "' WHERE TOPIC_ID = " & Topic_ID & " AND REPLY_ID=" & rsViewed("REPLY_ID")
			my_conn.Execute (strSqlRV),,adCmdText + adExecuteNoRecords
			rsViewed.MoveNext
		Loop
		rsViewed.Close
	End If
	Set rsViewed = Nothing
End If
'	##	Track Views Above
HuwR Posted - 20 September 2015 : 04:03:06
quote:
Originally posted by Carefree

R_Viewlist has a meaning. If a member reads a topic on X date, but later a reply is added that he/she has not seen, it will trigger new content notification.


Ok, got ya, however it may be better to populate r_viewlist on a page basis, so if I open a topic with say 3 pages and only read the first page, the other replies in the topic does not get flagged as read, slightly more work, but a more accurate reflection of what you have read maybe.
Carefree Posted - 20 September 2015 : 03:39:25
They are. Not sure exactly what you want here. An indicator of topics with new replies BUT only those which you either created the topic or had previously replied to?
golfmann Posted - 19 September 2015 : 20:59:23
I thought subscriptions were emailed...
Carefree Posted - 19 September 2015 : 18:06:24
Already have this capability in Subscriptions....
golfmann Posted - 19 September 2015 : 16:52:51
I'm jumping in here again to offer an idea (again). I would do this but don't have the skills or patience to learn.

How about:
some sort of "Posts To You" and "REPLIES To you" on a per member basis alert in the header (sort of like the avatar approval mod)
The jump to last post thing works well enough for me to keep up on others posts (using the active.asp). Wouldn't this do for most?

BUT... a posts or replies to posts (or other replies) of a member has always been sorely missing, IMO
Any member would understand this pretty fast and most are self interested by nature anyway.

Plus a per member basis could be easier to track and smaller AND accessible across any device, would it not?

OK free 2 cents has been offered
Carefree Posted - 19 September 2015 : 15:35:18
R_Viewlist has a meaning. If a member reads a topic on X date, but later a reply is added that he/she has not seen, it will trigger new content notification.

@HuwR

Yes, just about correct on that change: We don't need the line crossed out since intFound was already set to 0.

quote:
Shouldn't it be


If Len(strViewed) > 0 Then
		intLSV = Len(strViewed)
		If InStr(strViewed, "|" & strMid & "|") = 0 Then 
			'we didn't find it, so append to strViewed and set intViewed=0
			strViewed = strViewed & strMid & "|"
			intFound = 0
		Else
			we did find it, so set intFound = 1 
			strViewed = "|" & strMid & "|"We don't need to change strViewed here
			intFound = 1
		End If

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.06 seconds. Powered By: Snitz Forums 2000 Version 3.4.07