<!--#include file=grade.asp-->
<!-- #include file="online.asp" -->
<!--#include file=../Forum_css.asp-->
<SCRIPT language=javascript src="memu/menu.js"></SCRIPT>
<script language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",1);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize

</script>
 <SCRIPT language=javascript>
        <!--
         function openwinmp() { 
         window.open ("musicplay.asp", "swindow", "height=158, width=308, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")
           }
         //-->
</SCRIPT>
<%
sub headline(files)
	dim backpage
	response.write "<TABLE border=0 width=""98%"" align=center><TBODY><TR>"&_
			"<TD vAlign=top width=""30%""><a href="&ForumUrl&" target=_blank><img border=0 src="&Forumlogo&"></TD>"&_
			"<TD valign=middle align=top><font color="&bodyfontcolor&"> &nbsp;&nbsp;<img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;<a href=index.asp target=_blank>"&ForumName&"</a><br>"
	
	Select Case files
	case 1
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&stats&""
	case 2
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;"&_
			"<a href=list.asp?boardid="&boardid&"><font color="&BodyFontColor&">"&boardtype&"</a>"&backpage&""&_ 
			"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&htmlencode(replace(stats,boardtype,""))&""
	end select
	response.write "<a name=top></a></font></TD></TR></TBODY></TABLE>"
end sub
%>