ASP多行多列又一个方法

<table border=1 width="200">
<%
col=4 '列数
i=1
Do While i<=100
If i Mod col=1 Then
response.write "<tr>"
End If
response.write "<td align=center>"&i&"</td>"
If i Mod col=0 Then
response.write "</tr>"
End If 
i=i+1
loop
%>
</table>