将ASP纪录集输出成n列的表格形式显示的方法

<IFRAME name=google_ads_frame marginWidth=0 marginHeight=0 src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-4490194096475053&amp;dt=1225678076031&amp;lmt=1219829520&amp;prev_slotnames=1891601125&amp;output=html&amp;slotname=3685991503&amp;correlator=1225678075937&amp;url=http%3A%2F%2Fwww.corange.cn%2Farchives%2F2008%2F08%2F1434.html&amp;ea=0&amp;ref=http%3A%2F%2Fwww.corange.cn%2Fhtml%2Fcorange__71.html&amp;frm=0&amp;ga_vid=794657364.1225360561&amp;ga_sid=1225676616&amp;ga_hid=939561934&amp;ga_fc=true&amp;flash=9.0.124.0&amp;u_h=768&amp;u_w=1024&amp;u_ah=715&amp;u_aw=1024&amp;u_cd=32&amp;u_tz=480&amp;u_java=true" frameBorder=0 width=300 scrolling=no height=250 allowTransparency></IFRAME>

'定义变量
Dim cn,rs,Sql

Sql = "select CustomerID from Orders"

 '记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;" 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
 Response.Write "没有记录输出。"
Else
 Dim jj,nLeft,cCol
 jj = 0
 nCol = 415
 nLeft = nCol- (TotalNumber Mod nCol)
 If nLeft = nCol Then nLeft = 0
 Response.Write "<table border><tr>" & vbCrLf
 While not rs.EOF
 Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
 'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
 'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf
 
 If (jj Mod nCol) = (nCol - 1) Then
 If jj <> TotalNumber - 1 Then
 Response.Write "</tr><tr>" & vbCrLf
 Else
 Response.Write "</tr>" & vbCrLf
 End If
 End If
 jj = jj + 1
 rs.MoveNext
 Wend
 If nLeft <> 0 And nLeft <> nCol Then
 If nCol < TotalNumber Then
 For i = 1 to nLeft
 Response.Write "<td>&nbsp;</td>" & vbCrLf
 Next
 End If
 Response.Write "</tr>" & vbCrLf
 End If
 Response.Write "</table>"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Response.End