sto provando a far stare in una pagina 40 fotografie

e fin qui tutto bene il problema .....

il problema arriva quando debbo far stare le foto non tutte in una riga orizzontale (o tutte in verticale)

ma 4 foto per 10 righe ke fa esattamente 40

vi mostro il codice




<%
sql = "select * from tabella1 order by data desc "

Set rec = Server.CreateObject("ADODB.Recordset")
rec.cursorlocation = 3
rec.Open sql, conn


'*** NUMERO DI RECORDS PER PAGINA ******
Const RECORDSPERPAGE = 40
'***************************************


rec.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = rec.RecordCount

If (intNumRows <> 0) Then
rec.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To rec.PageSize
%>




<td>
<table>
<td>[img]pixel3.gif[/img]</td></table>
</td>


<td>







<table border="0" cellpadding="0" cellspacing="0" width="80">
<tr>
<td bgcolor="#000000">[img]1pixel.gif[/img]</td>
</tr>
<tr>
<td>





<table border="0" cellpadding="0" cellspacing="0" width="80">
<tr>
<td height="100" bgcolor="#000000">[img]1pixel.gif[/img]</td>
<td width="348" valign="center">
<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="80">
<tr>
<td>





<script Language="javascript">
<!--
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (!(browserVer < 3)) { doAnimate = "ok"; } else { doAnimate = "no"; }

function aprifoto(cod) {
window.open("foto.asp?cod="+cod,"contest_window100 202000sdfsdfdf00"," width=800,height=530,toolbar=0,location=5,director ies=0,status=0,menubar=0,scrollbars=0,resizable=1, copyhistory=0,leftmargin=0,topmargin=0,marginwidth =0,marginheight=0") }


// -->


</script>

<p align="center">
');void(0);">[img]public/<%=rec([/img]" width="70" height="100">
</p>



</td>
</tr>
</table>

</div>


</td>
<td height="100" bgcolor="#000000">[img]1pixel.gif[/img]</td>
</tr>
</table>

</td>
</tr>
<tr>
<td bgcolor="#000000">[img]1pixel.gif[/img]</td>

</tr>
</table>
</td>

<td>
<table>
<td>[img]pixel3.gif[/img]</td></table>
</td>

<%
rec.MoveNext
If ( rec.EOF ) Then Exit For
Next
End If
%>



</td>



</tr>







<tr>
<td>




<table>


<tr>




<td colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100">
<tr>
<td width="350">



<% 'Navigazione sulle pagine
If ( intNumRows > 0 ) Then

Response.Write("<font size='1' color='BLACK' face='Arial'>")
Response.Write "Pagina " & intPageNum & " di " & rec.PageCount & "
"

'Pagina precedente
If ( intPageNum > 1 ) Then
Response.Write "&laquo;"
End If


'Numeri di pagina
For intLinks = 1 To rec.PageCount
intPagina = intPagina + 1
If intPagina > 10000 Then
intPagina = 1
Response.Write("
")
End If
If intLinks = intPageNum Then
Response.Write "<font color=""#000000"">" & intLinks & "</font>"
Else
Response.Write "<font color='BLACK'>" & intLinks & "</font>"
End If
Next

'Pagina successiva
If ( intPageNum < rec.PageCount ) Then
Response.Write "&raquo;"
End If

Response.Write("</font>")

'Fine navigazione sulle pagine

End If



%>

</tr>
</table>
</td>



</tr>



come si puo ovviare il problema

grazie amici