<%
sql="select top 12 * from Article where tohtml=1 and Passed=1 and deleted=0 and classid in (3463,3464,3465,3466,3467,3468,3469,3470) order by OnTop desc,Elite desc,hot desc,ArticleID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
i=0
response.Write("
")
do while not rs.eof
link="/nmufh2006/html/"&rs("filepath")&"/"&rs("filename")&".html"
if len(rs("title"))>12 then
title=left(rs("title"),12)
else
title=rs("title")
end if
response.Write("
