<%
set rs=createObject("adodb.recordset")
rs.open "select * from t order by id asc", conn,1
i=0
for each field in rs.fields:i=i+1:next
for j=0 to i
do until rs.eof
response.write rs(j):rs.movenext
loop
rs.movefirst:j=j+1
next
rs.close
set rs=nothing
%>