테이블 한줄에 3개씩 들어가게 만들기

<%

ConnectionString="Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DBName;User ID=sa;Password=;"

Set Db=Server.CreateObject("ADODB.Connection")

Db.Open ConnectionString
intPageSize=9
intNowPage=Request("intNowPage") : If Len(intNowPage)=0 Then intNowPage=1

strSQL="SELECT select_list FROM table_source"

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open strSQL, db, 3
%>
<table width="100%" cellspacing=0 cellpadding=0  border=0>
 <tr>
<%
If Rs.Bof Or Rs.Eof Then
 intTotalPage=0
%>
  <td>
   자료가 존재하지 않습니다.
  </td>
<%
Else
 intTotalCount=Rs.RecordCount
 Rs.PageSize=Cint(intPageSize)
 intTotalPage=Rs.PageCount
 Rs.AbsolutePage=Cint(intNowPage)
 TotModCnt=intTotalCount Mod 3
 
 i=1
 '전체갯수를 파악하기 위한
 j=(intNowPage-1)*Rs.PageSize+1

 Do Until Rs.Eof Or i>Rs.PageSize
%>
  <td>
   <%=Rs(0)%>
  </td>
<%
'마지막 리코드셋이고 한줄에 3을 채우지 못했을때 td 셀을 넣어준다.
  If j=intTotalCount And TotModCnt<>0 Then
   For k=1 To 3-TotModCnt
    i=i+1
%>
  <td>
   &nbsp;
  </td>
<%
   Next
  End If
  If i Mod 3=0 Then
%>
 </tr>
 <tr>
  <td>
   &nbsp;
  </td>
 </tr>
 <tr>
<%
  End If
 Rs.MoveNext
 i=i+1
 j=j+1
 Loop
End If
Rs.Close
%>
 </tr>
 <tr>
  <td>
   &nbsp;
  </td>
 </tr>
</table>