28,409
社区成员




<table>
<%
n = 1
sql = "select * from 单位 where 类别='乡镇医院' order by 排序 asc"
set rs = conn.execute(sql)
do while not rsj.eof
if n mod 5 = 1 Then Response.Write "<tr>"
%>
<td><%=rs(0)%></td>
<%
if n = rs.RecordCount And n mod 5 <> 0 Then
For k=1 To 5-(n Mod 5)
Response.Write "<td></td>"
Next
Response.Write "</tr>"
End If
if n mod 5 = 0 Then Response.Write "</tr>"
n = n + 1
rs.MoveNext
loop
%>
</table>