<table>
<%
sub showtable(num)
dim i
i=1
do while i<=num
if (i mod 2)<>0 then response.write("<tr>")
response.write("<td>" & i & "</td>"
if (i mod 2)=0 then response.write("</tr>")
i=i+1
loop
if (i mod 2)<>0 then response.write("<td> </td></tr>")
end sub
showtable 20
%>
</table>