Hvor er det du skal have mere plads i dine celler (i siderne eller top/bund)?
Du kan rimelig smertefrit indsætte en inline-style som så bliver gentaget for hver celle i tabellen, således:
<%
Set rs = conn.execute(SQL)
if not rs.eof then
%>
<table border="0" width="175" cellpadding="2">
<tr>
<%
AntalKolonner = 4 ' Juster denne hvis der skal være et andet antal kolonner
counter = 0
do while not rs.eof
%>
<td width="<%=Int(100/AntalKolonner)%>%" style="padding:0 10px">
<div align="center">
<center>
<table border="1" width="120" height="120" bordercolorlight="#333333" bordercolordark="#E9E9E9" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" bgcolor="#E9E9E9">
<p align="center">
<%
response.write "data"
%>
</td>
</tr>
</table>
</center>
</div>
</td>
<%
rs.movenext
counter = counter + 1
if counter mod AntalKolonner = 0 then
response.Write " </tr>" & vbCrLf
if not rs.eof then
response.Write " <tr>" & vbCrLf
end if
end if
loop
rs.close
set rs = nothing
' udfyld resten af cellerne i den aktuelle række
do while counter mod AntalKolonner <> 0
response.Write "<td> </td>"
counter = counter + 1
loop
%>
</tr>
</table>
<%
Set conn = Nothing
end if
%>
Som du måske kan se, så har jeg indsat denne inline-style:
style="padding:0px 10px"
som betyder at jeg lægger lidt plads til i siderne (10 pixels for at være mere præcis). Hvis du også vil have noget lagt til i toppen og bunden, kan du udskifte 0px med det antal pixels du gerne vil have tilføjet i toppen og bunden.
