这是我现有的代码,但只能将数据库中的产品按一行一个产品显示的格式显示出来.我想让它能够在一行上显示三个产品,到第四个时换一行显示.我试过用判断语句判断if (j mod 3)<>0 Then 来实现此功能,但好了后,我发现产品全都显示不出来,只有共12个,第1/2页,上一页,下一页,尾页,其他什么都没了。我想请大家帮我看看，问题出在哪，谢谢！！
Function ShowProa()
Dim showH
If rs.Eof Then
showH = showH & "没有产品!"
Else
i=0
Do While Not rs.Eof
con=rs("Content")
mm=rs("Mome")
If Len(con)>30 Then con=Left(con,30) & "..."
If Len(mm)>30 Then mm=Left(mm,30) & "..."
showH = showH & "<table width=100% border=0 align=center cellpadding=5 cellspacing=1 bgcolor=#d8d8d8>"
showH = showH & "<tr><td width=25% bgcolor=#FFFFFF> <div align=center>"
showH = showH & "<a href=ShowProduct.asp?id="&rs("ID")&"><img src=admin/"&rs("Image")&" border=0 width=100 height=80></a></div></td>"
showH = showH & "<td width=75% bgcolor=#FFFFFF> 产品名称：<a href=ShowProduct.asp?id="&rs("ID")&">"&rs("Name")&"</a><br>"
showH = showH & "产品规格："&rs("guige")&"<br>"
showH = showH & "产品备注："&mm&"<br>"
showH = showH & "产品类别：<a href=SProduct.asp?spro="&rs("SmallClassP")&">"&rs("SmallClassP")&"</a><br>"
showH = showH & "产品信息：<a href=ShowProduct.asp?id="&rs("ID")&">详细信息</a>"
showH = showH & "产品信息：<a href=ShowProduct.asp?id="&rs("ID")&">详细信息</a>"
showH = showH & "<table width=100% border=0 cellspacing=0 cellpadding=0>"
showH = showH & "<tr>"
showH = showH & "<td><div align=right><a href=javascript:shop("&rs("Product_ID")&");><img src=JaOne/Buy.gif border=0></a></div></td>"
showH = showH & "</tr>"
showH = showH & "</table></td>"
showH = showH & "</tr></table>"
i=i+1
If i >= MaxPerpage Then Exit do
rs.MoveNext
Loop
End if
ShowProa=showH
End Function