ASP表格循环输出

Dim  rs,sql
Dim  flag,i,cellNum 
falg = 0
cellNum = 4  
Response.Write  " <table width='100%' border='0' cellspacing='0' cellpadding='0'> "
Set  rs  =  Server.CreateObject( " ADODB.Recordset " )
sql = " Select strName From table "
rs.Open sql,conn, 1 , 1  
If  rs.Bof  Or  rs.Eof  Then
Response.Write  " <tr><td>-</td></tr> "
Else     
Do   While   Not  rs.Eof 
Response.Write  " <tr> "  
For  i  =   1   to  cellNum
If  flag >= rs.RecordCount  Then
Response.Write  " <td width='110'>&nbsp;</td> "
Else
Response.Write  " <td width='110' height='110' align='center'>rs( " strName " )</td> "
End   If
flag = flag + 1
If  flag  <  rs.Recordcount 
Thenrs.MoveNext
End   If
Next  Response.Write  " <td>&nbsp;</td> "
Response.Write  " </tr> "    
If  flag  >=  rs.Recordcount  Then   Exit   Do  
Loop  
End   If  
Response.Write  " </table> "