<%
sub main_article(n_jt,n_num,c_num,et,ct)
  dim temp1,topic
  if n_jt<>"" then n_jt=img_skins()
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num&" id,topic,tim,counter from article where hidden=1 order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='javascript:;' onclick=""javascript:open_view('article_view.asp?id="&rs("id")&"',1);"" title='"&objv7.code_html(topic,1,0)&"'>"&objv7.code_html(topic,1,c_num)&"</a><font class=time>"
    if et>-1 then temp1=temp1&" "&objv7.time_type(rs("tim"),et)
    if ct=1 then temp1=temp1&" <font class=hit>"&rs("counter")&"</font>"
    temp1=temp1&"</font></td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&main_bar(1,objv7.format_menu(web_menu,"article"),temp1,1,"100%","<a href='article.asp'>"&morepic&"</a>")
end sub
%>