quote:

---

hmmm, I replied and viewed a topic but the views popup does not show me as viewing the topic. I made all the latest and greatest updates that was applied to 3.3

____________
dayve
http://www.nineinchnailz.com/forum

---

quote:

---

quote:

---

hmmm, I replied and viewed a topic but the views popup does not show me as viewing the topic. I made all the latest and greatest updates that was applied to 3.3

____________
dayve
http://www.nineinchnailz.com/forum

---

Apparenttly, the code still does not solve the problem for certain id having 1 in it. I am having the same problem.

---

'============= TOPIC AND REPLY VIEW
Dim LenWhoViewed,Topic_WhoViewed,DoUpdate,TmpWhoViewed,UpdateTview,IDToDiscard
if MemberID = 0 or IsNull(MemberID) or MemberID < 0 then
        'dont update anything
else
        DoUpdate = True
	strsql = "SELECT T.T_WHOVIEWED FROM " & strTablePrefix & "TOPICS T WHERE "
	strsql = strsql & "T.TOPIC_ID=" & Topic_ID
	set tviewRS = Server.CreateObject("ADODB.RecordSet")
	tviewRS.open strsql, my_conn, 3
	Topic_WhoViewed = tviewRS("T_WHOVIEWED")
	tviewRS.close
	set tviewRS = nothing
	if IsNull(Topic_WhoViewed) or Topic_WhoViewed = "" or Topic_WhoViewed = "0" or Len(Trim(Topic_WhoViewed)) = 0 then
		UpdateTview = MemberID
	else
		LenWhoViewed = len(Topic_WhoViewed)
		arrWhoViewed = split(Topic_WhoViewed,",",-1,1)
		'Check if the memberID already exists
		if IsArray(arrWhoViewed) then
		       If Instr(1,Topic_WhoViewed, "," & MemberID & ",",1) > 0 or _
			      Trim(arrWhoViewed(lbound(arrWhoViewed))) = Trim(MemberID) or _ 
			      Trim(arrWhoViewed(ubound(arrWhoViewed))) = Trim(MemberID) then
			      DoUpDate = false
		       end if
	        else
		       if Trim(Topic_WhoViewed) = Trim(MemberID) then  DoUpdate = false
		end if
		'Check if the Field is Full. If Full then discard the Oldest ID
		 if DoUpdate = True then
			if (LenWhoViewed + len(MemberID) = 255) or _
				 (LenWhoViewed + len(MemberID) > 255) then 'Max Limit
				  IDToDiscard = left(Topic_WhoViewed,(instr(len(MemberID),Topic_WhoViewed,",",1)))
				  if IDToDiscard <> MemberID & ","	then
					  TmpWhoViewed = Replace (Topic_WhoViewed,IDToDiscard,"",1,1,1)
					  Topic_WhoViewed = TmpWhoViewed
					  DoUpdate = True
				  else
					  DoUpdate = false
				  end if
		       end if
	        end if
		if DoUpDate = True then
		       UpdateTview = Topic_WhoViewed & "," & MemberID
		end if
	end if 
	'Update the Database
	if DOUpdate = true then
	        strsql = "UPDATE " & strTablePrefix & "TOPICS "
		strsql = strsql & "SET " & strTablePrefix & "TOPICS.T_WHOVIEWED = '" & UpdateTview & "' WHERE "
		strsql = strsql & strTablePrefix & "TOPICS.TOPIC_ID = " & Topic_ID
		       my_conn.execute(strsql)
	 end if
	 LenWhoViewed = ""
end if
'============= END TOPIC AND REPLY VIEW

quote:

---

Can you tell me which ID is not being added or updated.

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.

---

quote:

---

I have experienced no problem with ID = 1 or any ID containing 1.

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.

---