if mypage=-1 then
	strSql1="SELECT REPLY_ID"
	strSql2=" FROM "&strActivePrefix&"REPLY "
	strSql3=" WHERE TOPIC_ID="&Topic_ID
	if AdminAllowed=0 then
		strSql3=strSql3&" AND (R_STATUS<"
		if Moderation="Y" then strSql3=strSql3&"2" else strSql3=strSql3&"3"
		strSql3=strSql3&" OR R_AUTHOR="&MemberID&")"
	end if
	strSql4=" ORDER BY R_DATE ASC"
	set rsReplies=server.createobject("ADODB.Recordset")
	if strDBType="mysql" then
		rsReplies.open strSql1&strSql2&strSql3&strSql4,my_Conn,adOpenStatic,adLockReadOnly,adCmdText
		if rsReplies.eof then
			iReplyCount=-1
			strwhichpage=""
		else
			arrReplyData=rsReplies.getrows(adGetRowsRest)
			iReplyCount=ubound(arrReplyData,2)
			if len(request.querystring("REPLY_ID"))>0 then LastPostReplyID=clng(request.querystring("REPLY_ID")) else LastPostReplyID=cLng(arrReplyData(0,iReplyCount))
		end if
		if iReplyCount>-1 then
			for iReply=0 to iReplyCount
				intReplyID=arrReplyData(0,iReply)
				if LastPostReplyID=intReplyID then
					intPageNumber=((iReply+1)/strPageSize)
					if intPageNumber>clng(intPageNumber) then intPageNumber=clng(intPageNumber)+1
					strwhichpage="whichpage="&intPageNumber&"&"
					exit for
				end if
			next
		end if
	else
		rsReplies.cachesize=strPageSize
		rsReplies.pagesize=strPageSize
		rsReplies.open strSql1&strSql2&strSql3&strSql4,my_Conn,adOpenStatic,,adCmdText
		if len(request.querystring("REPLY_ID"))>0 then
			LastPostReplyID=clng(request.querystring("REPLY_ID"))
		else
			rsReplies.movelast
			LastPostReplyID=cLng(rsReplies("REPLY_ID"))
			rsReplies.movefirst
		end if
		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
	end if
	rsReplies.close
	set rsReplies=nothing
	my_Conn.close
	set my_Conn=nothing
	response.redirect("topic.asp?"&strwhichpage&"TOPIC_ID="&Topic_ID&"#"&LastPostReplyID&"")
	response.end
end if