造次的意思:请问怎么将文章分成5行4列输出??

<% If Not rsnews.EOF Or Not rsnews.BOF Then %>
<%
'生成页码
if rsnews_total mod list_repeat = 0 then
mm_page_count= rsnews_total/list_repeat
else
mm_page_count= int(rsnews_total/list_repeat)+1
end if
for i = 1 to mm_page_count
mm_page_list =mm_page_list&vbcrlf&" <a href="&chr(34)&"list_"&i&".htm"&chr(34)&">第"&i&"页</a> "
next
%>
<% While ((Repeat1__numRows <> 0) AND (NOT rsnews.EOF)) %>
<%
areyou = areyou&"<td>● <a href=""../"&(rsnews_commend.Fields.Item("file_name").Value)&chr(34)&" target="&chr(34)&"_blank"&chr(34)&">"&(rsnews_commend.Fields.Item("productname").Value)&"</a></td>"
%>
<%
if mm_temp <> mm_page then
mm_file = "list_"& mm_page &".htm"
response.Write ("<li class=lh>"&mm_tspath&"/"&mm_file&" <font color=red>被创建</font></li>")
mm_path = server.MapPath(mm_tspath&"/"&mm_file)
set fso_index=fso.createtextfile(mm_path,True)
end if
%>
<%
mm_temp = mm_page
if (Repeat1__index+1) mod list_repeat = 0 then
yyrpdata = replace(yyrp,"t_page_list",mm_page_list)
yyrpdata = replace(yyrpdata,"t_line",areyou)

'response.Write yyrpdata
fso_index.write yyrpdata
areyou = ""
fso_index.close
set fso_index = nothing
mm_page = mm_page + 1
end if
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsnews.MoveNext()
Wend
%>