if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then
  strSql1 = "SELECT REPLY_ID "
  strSql2 = "FROM " & strActivePrefix & "REPLY "
  strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " "
  ...
  ...
  Response.Redirect("topic.asp?" & strwhichpage & "TOPIC_ID=" & Topic_ID & "#" & LastPostReplyID & "")
  Response.End
end if

if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then
 myPage = LastPostPage()
end if

function LastPostPage()
    dim strReplyStatus, intPageNumber
    dim strSql1, strSql2, strSql3, strSql4
    dim LastPostReplyID, rsReplies, arrReplyData
    dim iReplyCount, rREPLY_ID, iReply, intReplyID  
    intPageNumber = 1 
    if Moderation = "Y" then
     Rem -Ignore unapproved/rejected posts
     strReplyStatus = "2"
    else
     Rem -Ignore any previously rejected topic
     strReplyStatus = "3"
    end if
    LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
    strSql1 = "SELECT REPLY_ID "
    strSql2 = "FROM " & strActivePrefix & "REPLY "
    strSql3 = "WHERE TOPIC_ID = " & Topic_ID
    if AdminAllowed = 0 then
     strSql3 = strSql3 & " AND (R_STATUS < " & strReplyStatus
     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, adOpenForwardOnly, adLockReadOnly, adCmdText
    else
     rsReplies.cachesize = strPageSize
     rsReplies.pagesize = strPageSize
     rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
    end if
    if not (rsReplies.EOF or rsReplies.BOF) then    
     if strDBType = "mysql" then
      arrReplyData = rsReplies.GetRows(adGetRowsRest)
      iReplyCount = UBound(arrReplyData, 2)
      rREPLY_ID = 0
      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
         exit for
        end if
       end if
      next
     else
      rsReplies.Find = "REPLY_ID=" & LastPostReplyID & ""
      if not (rsReplies.EOF or rsReplies.BOF) then
       if rsReplies.absolutepage > 1 then intPageNumber = rsReplies.absolutepage
      end if
     end if
    end if
    rsReplies.Close
    set rsReplies = nothing    
    LastPostPage = intPageNumber
end function

if Request.QueryString("REPLY_ID") <> "" then
 myPage = LastPostPage()
end if

DoLastPostLink = "<a href=""topic.asp?" & "TOPIC_ID=" & ForumLastPostTopicID & AnchorLink & ForumLastPostReplyID & "#" & ForumLastPostReplyID & """>"

quote:

---

Originally posted by GauravBhabu

work mule II, there are more options with your suggestion.
I was mainly thinking...why Redirect?

However, the way jump to last post works as of now is it links to the last post which is last posted or last edited.
so with your suggestions above that functionality will be lost in part as it will not link to last edited post.

---

Case "replyid"
   strSql1 = "SELECT COUNT(REPLY_ID) AS ReplyCount, MAX(REPLY_ID) AS ReplyID "
   strSql3 = "WHERE (TOPIC_ID = " & Topic_ID & ") AND (REPLY_ID <= " & Request.QueryString("REPLY_ID") & ") "

quote:

---

Originally posted by work mule II
However, if "Last Post" also includes last edited fields, that would still require a query vs. the database.

---

Option 1, add "&jump=lastpost" to the querystring and a bookmark of "#lastpost".
Option 2, add "&jump=newpost" to the querystring and a bookmark of "#newpost".
Option 3, add "&jump=replyid" to the querystring and a bookmark of "#replyid".

Rem -Declare and initialize the variable
Dim strJumpTo, intJumpToID
strJumpTo = Trim(Request.QueryString("jump"))

if not (rsReplies.EOF or rsReplies.BOF) then
	rsReplies.pagesize = strPageSize
        Rem -Find the page number where the record exists     
        if strJumpTo <> "" then
         mypage = JumpToPage(strJumpTo) 
        end if 	
        rsReplies.absolutepage = mypage '**
	maxpages = cLng(rsReplies.pagecount)
	if maxpages >= mypage then
		arrReplyData = rsReplies.GetRows(strPageSize)
		iReplyCount = UBound(arrReplyData, 2)
	else
		iReplyCount = ""
	end if
else  '## No replies found in DB
	iReplyCount = ""
end if

Rem -Write the bookmark:
If Reply_ReplyID = intJumpToID Then
	Response.Write "<a name=""" & strJumpTo & """></a>"
End If

Rem -Returns the Page Number
function JumpToPage(jump)
    dim intPageNumber
    Select Case jump
	Case "lastpost"
	   	 rsReplies.Find = "R_LAST_EDIT='" & Topic_LastPost & "'"
	   	 if (rsReplies.BOF or rsReplies.EOF) then
	   	  rsReplies.MoveFirst
	   	  rsReplies.Find = "R_DATE='" & Topic_LastPost & "'"
	   	 end if
        Case "newpost"
	   	 rsReplies.Find = "R_DATE >'" & Session(strCookieURL & "last_here_date") & "'"
        Case "replyid"
	   	 rsReplies.Find = "REPLY_ID=" & Request.QueryString("REPLY_ID") 
        Case else
                 JumpToPage = myPage
                 exit sub
    end select
    if not (rsReplies.BOF or rsReplies.EOF) then
     intPageNumber = rsReplies.absolutepage
     intJumpToID = rsReplies("REPLY_ID")
    end if
    rsReplies.MoveFirst     
    if intPageNumber <= 0 then intPageNumber = myPage
    JumpToPage = intPageNumber
End function

Rem -Build the Links
Function DoLastPostLink()
	DoLastPostLink = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "&jump=lastpost#lastpost"">" & _
		getCurrentIcon(strIconLastpost,"Jump to Last Post","align=""absmiddle""") & "</a>"
end function

- or -

Function DoNewPostLink()
	DoNewPostLink = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "&jump=newpost#newpost"">" & _
		getCurrentIcon(strIconLastpost,"Jump to Unread Post","align=""absmiddle""") & "</a>"
end function

- or -

Function DoDirectPostLink(id)
	DoDirectPostLink = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "&REPLY_ID=" & id & "&jump=replyid#replyid"">" & _
		getCurrentIcon(strIconLastpost,"Jump to This Post","align=""absmiddle""") & "</a>"
end function

quote:

---

Originally posted by GauravBhabu

It works great. I will package it as a Mod with complete details.

---