If recActiveTopicsCount <> "" and (mLev > 0) then
Response.Write " <form name=""MarkRead"" action=""active.asp"" method=""post"">" & 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 & _
" <acronym title=""Mark all topics as read""><input type=""image"" src=""" & strImageUrl & "icon_topic_all_read.gif"" value=""Mark all read"" id=""submit1"" name=""Mark all topics as read"" border=""0""" & dWStatus("Mark all topics as read") & "></acronym></font></td>" & vbNewLine & _
" </form>" & vbNewline

function dWStatus(strMsg)
	dWStatus = " onMouseOver=""(window.status='" & Replace(strMsg, "'", "\'") & "'); return true"" onMouseOut=""(window.status=''); return true"""
end function