this is the function you will need for forum.asp
Function DoLastPostLinkText()
if Topic_Replies < 1 or Topic_LastPostReplyID = 0 then
DoLastPostLinkText = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>..Last #187;</a>"
elseif Topic_LastPostReplyID <> 0 then
PageLink = "whichpage=-1&"
AnchorLink = "&REPLY_ID="
DoLastPostLinkText = "<a href=""topic.asp?" & ArchiveLink & PageLink & "TOPIC_ID=" & Topic_ID & AnchorLink & Topic_LastPostReplyID & """>..Last #187;</a>"
else
DoLastPostLinkText = ""
end if
end function
and this..
sub TopicPaging2()
page_limit = 5
first_pages = 5
last_pages = 0
mxpages = (Topic_Replies / strPageSize)
if mxPages <> cLng(mxPages) then
mxpages = int(mxpages) + 1
end if
if mxpages > 1 then
Response.Write(" <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine)
Response.Write(" <tr>" & vbNewLine)
Response.Write(" <td valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & getCurrentIcon(strIconPosticon,"","") & "</font></td>" & vbNewLine)
if mxpages > page_limit then
ref = " <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
ref = ref & " Pages ("& mxpages & "): </font></td>"
for counter = 1 to first_pages
ref = ref & "<td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
ref = ref & ArchiveLink
ref = ref & "TOPIC_ID=" & Topic_ID
ref = ref & "&whichpage=" & counter
ref = ref & """>" & counter & "</a></span></font></td>"
next
ref = ref & "<td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
ref = ref & "</font></td>"
if last_pages = 0 then
ref = ref & "<td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
ref = ref & widenum(counter) & "<span class=""spnMessageText"">"
ref = ref & DoLastPostLinkText()
ref = ref & "</span></font></td>"
'ref = ref & "<td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
'ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
'ref = ref & ArchiveLink
'ref = ref & "TOPIC_ID=" & Topic_ID
'ref = ref & "&whichpage=" & mxpages
'ref = ref & """>..Last »</a></span></font></td>"
else
for counter = (mxpages-last_pages+1) to mxpages
ref = ref & " <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
ref = ref & ArchiveLink
ref = ref & "TOPIC_ID=" & Topic_ID
ref = ref & "&whichpage=" & counter
ref = ref & """>" & counter & "</a></span></font></td>"
next
end if
Response.Write ref & vbNewLine
else
for counter = 1 to mxpages
ref = " <td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then
ref = ref & " "
end if
ref = ref & widenum(counter) & "<span class=""spnMessageText""><a href=""topic.asp?"
ref = ref & ArchiveLink
ref = ref & "TOPIC_ID=" & Topic_ID
ref = ref & "&whichpage=" & counter
ref = ref & """>" & counter & "</a></span></font></td>"
Response.Write ref & vbNewLine
if counter mod strPageNumberSize = 0 and counter < mxpages then
Response.Write(" </tr>" & vbNewLine)
Response.Write(" <tr>" & vbNewLine)
Response.Write(" <td> </td>" & vbNewLine)
end if
next
end if
Response.Write(" </tr>" & vbNewLine)
Response.Write(" </table>" & vbNewLine)
end if
end sub
and then search for this:
if strShowPaging = "1" then
Call TopicPaging()
end if
and replace it with this:
if strShowPaging = "1" then
Call TopicPaging2()
end if