Question

急！asp 循环输出问题

例如有一张数据表，字段分别为 A,B.C
记录有n条，假设表记录为
A1,B1,C1
A2,B2,C2
A3,B3,C3
现在经过数据库查询输出后的形式为
A1 , A2 ,A3
B1 B2 B3
C1 C2 C3
小女子乃是初学，请各位大虾帮忙改正一下。谢谢了。

Sub Show_TechnoService()
Set Rs=Server.Createobject("adodb.recordset")
Sql = "select * from Tx_technoService where About_Flag = 1"
Rs.Open Sql,Conn,1,1
IF Rs.Recordcount=0 THEN
Call Page_check(4,0)
Else
response.write "<table width='100%' border='1'>"
'response.write "<tr>"
do While Not Rs.Eof
response.write "<tr>"
if not rs.eof then
response.write "<td><IMG SRC='Images/images/blue_sq.gif'><A HREF=technoService.asp?Id=" & Rs("About_Id") & " >" & Rs("About_Name") & "</A></td>"
'rs.movenext
end if
response.write"</tr>"

response.write "<tr>"
if not rs.eof then
response.write "<td><A HREF=technoService.asp?Id=" & Rs("About_Id") & " >" & Rs("About_Name") & "</A></td>"
'rs.movenext
end if
response.write"</tr>"

response.write "<tr>"
if not rs.eof then
response.write "<td><A HREF=technoService.asp?Id=" & Rs("About_Id") & " >" & Rs("About_Content") & "</A></td>"
rs.movenext
end if
response.write"</tr>"
loop
response.write "</table>"
End IF
Rs.Close
Set Rs=NoThing
End Sub
我是第一次提问，不知道有多少分，谁帮我解决问题，分全部给，呵呵，O(∩_∩)O~

我想要的结果是这样的

A1 A2 A3 A..
B1 B2 B3 B..
C1 C2 C3 C..
拜托大家给我详细的代码，小女子先谢过了。

Answer 1

用数组分别先存储出来
thecount=0
for i=0 to rs.recordcount
arra(i)=rs(A)
arrb(i)=rs(B)
arrc(i)=rs(C)
rs.movenext
thecount=thecount+1
next
然后
for i to thecount
....................
next
思路就是这样了
小心数组越界