ASP数据读取代码

请教一下代码是一列显示的，怎么改成两列显示，恳请赐教，再讲讲道理最好不过了：）
<%
sub fav()
sql="Select id,name,pic From product Where id In (" & ProductList & ")"
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
if rs3.eof then
response.write " <span class=smallgray>·暂时没有浏览记录</span>"
else
while not rs3.eof
response.write " ·<a href=b2b_cpinfo.asp?id="&rs3("id")&" target=_blank class=smallgray>"&rs3("name")&"</a><br>"
rs3.movenext
wend
rs3.close
set rs3=nothing
end if
end sub
%>

<%
sub fav()
sql="Select id,name,pic From product Where id In (" & ProductList & ")"
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
if rs3.eof then
response.write " <span class=smallgray>·暂时没有浏览记录</span>"
else

i=1

while not rs3.eof
response.write " ·<a href=b2b_cpinfo.asp?id="&rs3("id")&" target=_blank class=smallgray>"&rs3("name")&"</a>"
if (i mod 2)=0 then
Response.Write("<br />")
end if
rs3.movenext

i=i+1

wend
rs3.close
set rs3=nothing
end if
end sub
%>

试试

<%
sub fav()
sql="Select id,name,pic From product Where id In (" & ProductList & ")"
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1