Sub ShowModPaging(inttotalpages, tfs, intpage)
	p_rec = 1
    response.write("<tr><td colspan=5 bgcolor=""" & strForumCellColor & """>")
    response.write(tfs & "<strong>Pages: </strong>")
    Do until p_rec = inttotalpages + 1
    	if p_rec = Cint(intpage) then
        response.write("<strong>" & p_rec & "</strong> | ")
        else
        response.write("<a href=""default.asp?sortby=" & strModSort & "&sortmethod=" & strModSortMethod & "&page=" & p_rec & "&pagesize=" & strModPageSize & """>")
        response.write(p_rec)
        response.write("</a> | ")
        end if
        p_rec = p_rec + 1
    Loop
    response.write("</font>")
    response.write("</td></tr>")
End Sub