You can put this before the '##Start to build the Table on line 387.
'### Start modified 'Mark All Read' code
If recActiveTopicsCount <> "" and (mLev > 0) then
Response.Write " <form name=""MarkRead"" action=""active.asp"" method=""post"">" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=""bottom"">" & vbNewline & _
" <input type=""hidden"" name=""AllRead"" value=""Y"">" & vbNewline & _
" <input type=""hidden"" name=""BuildTime"" value=""" & DateToStr(strForumTimeAdjust) & """>" & vbNewline & _
" <input type=""hidden"" name=""Cookie"" value=""2"">" & vbNewLine
if strGfxButtons = "1" then
Response.Write " <acronym title=""Mark all topics as read""><input type=""image"" src=""" & strImageUrl & "button_mark_all_read.gif"" value=""Mark all Topics as read"" id=""submit1"" name=""Mark all Topics as read"" border=""0""" & dWStatus("Mark all Topics as read") & " tabindex=""-1""></acronym></td>" & vbNewLine
else
Response.Write " <input type=""submit"" value=""Mark all Topics as read"" id=""submit1"" name=""Mark all Topics as read"" tabindex=""-1""></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewline
End if
'### End modified 'Mark All Read' code
Here's a crap button I made as an example:
Can't remember who contributed this code but it was almost 3 years ago.<