multi Column list ทำแบบทีละแถวได้ไหมครับ พอจบแล้วค่อยเริ่มใหม่

<div align="center"> 
 
<%  
Response.Write("<table border='0'  cellspacing='1' cellpadding='1'><tr>") 

Set rstemp7 = Server.CreateObject("ADODB.Recordset")
sql7 = "Select ISNULL(spfloors_code,'Null') as floors,spfloors_code From wbprj Where spbldinf_code='"&spbldinf_code&"' Group by spfloors_code,spfloors_code Order by spfloors_code"
rstemp7.cursorlocation = 3
rstemp7.open sql7,sConn,1,3
i1=1
   
intRows = 0 

While Not rstemp7.EOF 

floors=rstemp7("floors")
spfloors_code=rstemp7("spfloors_code")
 
intRows = intRows + 1 
   
Response.Write("<td>") 
  
%> 
      
 
     
<table width="91" border="0" cellspacing="0" cellpadding="0"> 
       
<tr> 
        
<td><%=i1&". "&spfloors_code%></td> 
     
</tr> 
      
<tr> 
        
<td><div align="center"></div></td> 
        
</tr> 
    
</table> 
          
   
<% 
      
Response.Write("</td>") 
     
If intRows Mod 2 = 0 Then
        
Response.Write("</tr>") 
      
Else
          
Response.Write("<td>") 
    
End IF   

rstemp7.MoveNext 
 i1=i1+1
Wend 
Set rstemp7 =nothing  
 
  
Response.Write("</tr></table>") 
  
%> 
   
</div>