<%=MBImgLogo%>
<%=PrintCredit%>
| <%=MBImgAddNew%> <%=MBImgSearch%> |
| <%=MBImgTopic%> | <%=MBImgAuthor%> | <%=MBImgLastPost%> | ||
| <%=NewMessages(objRec("LastPost"))%> | <%=FONT1%> | <%=FONT1 & objRec("MessageAuthor")%> | <%=FONT1%><%Call DisplayDateTime(objRec("LastPost"))%> | <%=FONT1 & objRec("Replies")%> |
"
If objRec.PageCount > 1 then
'Print Previous Page if required
If intCurrentPage <> 1 then
Response.Write "Previous Page"
Else
Response.Write "Previous Page"
End If
'Print direct access page numbers.
For intCount = 1 to objRec.PageCount
If intCount = 1 then
Response.Write " | "
End If
If intCount = intCurrentPage then
Response.Write intCount & " | "
Else
Response.Write "" & intCount & " | "
End If
Next
'Print Next Page if required
If intCurrentPage <> objRec.PageCount then
Response.Write "Next Page"
Else
Response.Write "Next Page"
End If
End If
Response.Write "
Page " & intCurrentPage & " of " & objRec.PageCount & _
" | Ordered By: " & Session("orderby") & " | Showing: "
Select Case Showing
Case "-0"
Response.Write "Topics updated today."
Case "-1"
Response.Write "Topics updated in the last 2 days."
Case "-4"
Response.Write "Topics updated in the last 5 days."
Case "-9"
Response.Write "Topics updated in the last 10 days."
Case "-29"
Response.Write "Topics updated in the last 30 days."
Case "-99"
Response.Write "Topics updated in the last 100 days."
Case "ALL"
Response.Write "All topics."
End Select
Response.Write ""
If NOT Session("cboSearchType") = "" Then
Response.Write "
Searched for: " & Session("txtSearchString") & "
On: " & Session("cboSearchType") & "
"
Response.Write "Remove Search Filter"
End If
Response.Write "