if mypage = -1 then
	strSql1 = "SELECT REPLY_ID "
	strSql2 = "FROM " & strActivePrefix & "REPLY "
	strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " "
	' DEM --> if not a Moderator, all unapproved posts should not be viewed.
	if AdminAllowed = 0 then
		strSql3 = strSql3 & "AND (R_STATUS < "
		if Moderation = "Y" then
			' Ignore unapproved/rejected posts
			strSql3 = strSql3 & "2 "
		else
			' Ignore any previously rejected topic
			strSql3 = strSql3 & "3 "
		end if
		strSql3 = strSql3 & "OR R_AUTHOR = " & MemberID & ") "
	end if
	strSql4 = "ORDER BY R_DATE DESC "

	if strDBType = "mysql" then
		set rsReplies = Server.CreateObject("ADODB.Recordset")

		rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

		if rsReplies.EOF then
			iReplyCount = ""
		else
			arrReplyData = rsReplies.GetRows(adGetRowsRest)
			iReplyCount = UBound(arrReplyData, 2)
			rREPLY_ID = 0
		end if

		LastPostReplyID = rsReplies("REPLY_ID")
		if iReplyCount <> "" then
			for iReply = 0 to iReplyCount
				intReplyID = arrReplyData(rREPLY_ID,iReply)
				if LastPostReplyID = intReplyID then
					intPageNumber = ((iReply+1)/strPageSize)
					if intPageNumber > cLng(intPageNumber) then
						intPageNumber = cLng(intPageNumber) + 1
					end if
					strwhichpage = "whichpage=" & intPageNumber & "&"
					exit for
				end if
			next
		else
			strwhichpage = ""
		end if

		rsReplies.Close
		set rsReplies = nothing
	else
		set rsReplies = Server.CreateObject("ADODB.Recordset")
		rsReplies.cachesize = strPageSize
		rsReplies.pagesize = strPageSize

		rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

		LastPostReplyID = rsReplies("REPLY_ID")
		rsReplies.Find = "REPLY_ID=" & LastPostReplyID & ""

		if not (rsReplies.EOF or rsReplies.BOF) then
			if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&"
		else
			strwhichpage = ""
		end if

		rsReplies.Close
		set rsReplies = nothing
	end if

	Response.Redirect("topic.asp?" & strwhichpage & "TOPIC_ID=" & Topic_ID & "#" & LastPostReplyID & "")
	Response.End
end if

<%
Dim SubReplyID
strSQL = "SELECT MAX(REPLY_ID) " & _
		 "  FROM " & strTablePrefix & "REPLY" & _
		 " WHERE TOPIC_ID = " & TopicID & _
         "   AND R_AUTHOR = " & ThisMemberID
set rsReply = MyConn.Execute(strSQL)
if rsReply.EOF or rsReply.BOF then
	SubReplyID = 0
else
	SubReplyID = rsReply("REPLY_ID")
end if
rsReply.Close	:	set rsReply = Nothing
%>

quote:

---

Originally posted by Webbo


I don't suppose anyone has designed a MOD for adding an eighth day into a week - if so can I have it, lol

---

quote:

---

Originally posted by Webbo

Hi Dave,

Just got an hour to myself and gave the two options a whirl.

The first returned an error:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/testforum/topic.asp, line 235

--Line 235 reads: LastPostReplyID = rsReplies("REPLY_ID")

---

quote:

---

Originally posted by Webbo
and the second option returned an error:

Microsoft VBScript runtime error '800a01a8'

Object required: 'MyConn'

/testforum/inc_subscription.asp, line 170

That was with the second option code added at lines 165+

Line 170 reads: set rsReply = MyConn.Execute(strSQL)

I also removed the <% %> as a Statement was called for at <%

So over to you once again Dave

Regards, Dave

---