网站的产品列表模块怎么九宫格显示

网站的产品列表模块如何九宫格显示？
怎么样修改才能将我的产品列表改成五行四列的显示？代码如下：
<%
dim aid 
aid = request("aid")
url = ""
where = ""
if aid <> "" then
call CheckNum(aid)
url="&aid="&aid
where = " and A.aid = "&aid

end if

Const PAGESIZE=6
Const PARTSIZE=10
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
prosql = "select A.title,A.id,A.aid,A.propic,B.aname from tsm_pro A,tsm_probc B where A.aid = B.aid "&where&" order by id desc"
%>
<SCRIPT language=JavaScript> 
<!-- 
var flag=false; 
function DrawImage(ImgD){ 
 var image=new Image(); 
 image.src=ImgD.src; 
 if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>=100/100){ 
  if(image.width>100){
  ImgD.width=100; 
  ImgD.height=(image.height*100)/image.width; 
  }else{ 
  ImgD.width=image.width;
  ImgD.height=image.height; 
  } 
  ImgD.alt="点击查看详细信息..."; 
  } 
  else{ 
  if(image.height>100){
  ImgD.height=100; 
  ImgD.width=(image.width*100)/image.height; 
  }else{ 
  ImgD.width=image.width;
  ImgD.height=image.height; 
  } 
  ImgD.alt="点击查看详细信息..."; 
  } 
 }
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
  {
  var e = form.elements[i];
  if (e.Name != "chkAll")
  e.checked = form.chkAll.checked;
  }
  }
//--> 
</SCRIPT>
<table width="943" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
  <td height="32" colspan="2" background="images/dh-m.jpg"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
  <td valign="middle" class="wz">您现在的位置：首页 <font face="webdings">8</font></span> 产品列表</td>
  </tr>
  </table></td>
  </tr>
</table>
  <table width="943" border="0" align="center">
  <tr>
  <td rowspan="2" valign="top"><!--左边-->
  <!--#include file="leftproduct.asp"--></td>
  </tr>
  <tr>
  <td valign="top"><table width="725" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
  <tr><td height="28" background="images/table.jpg" class="wz">产品列表</td></tr>
  <tr>
  <td height="14" colspan="3" background="images/txt-top.jpg"></td>
  </tr>
  <tr>
  <td colspan="3" valign="top" background="images/txt-midd.jpg">
<FORM name=Inquire action=Payment.asp method=post target=_blank>