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>"