tornare a capo

[yro]

ciao a tutti!

ho 1 problema: devo prelevare dei dati da un db e devo fare in modo che ogni 2 dati mi vada a capo. sono all'interno di una tabella quindi ogni 2 devo creare un'altro tr e un'altro td...
come posso fare?

grazie!

[Corinna]

Prendi spunto da questa paginazione su due colonne per capire il funzionamento.

<table border="0" cellpadding="3" cellspacing="5" width="760" align="center" background="sfondo.gif">
    <tr>
      <td colspan="2" align="center">
      [img]immagini/colori_header.jpg[/img]</td>
    </tr>
	   <tr>
      <td width="50%">

</td>
      <td width="50%">

</td>
    </tr>
	<tr>
      <td colspan="2">Sei in Home > Varie  - Fare click sulla foto o sul titolo per entrare nella galleria.</td>
    </tr>
	<tr>
		<td colspan="2">

</td>
	</tr>
    <tr>
<%
RecordsPerPage = 24
Page = Request.QueryString("page")
If Len(page) > 0 And IsNumeric(page) Then
	page = CLng(page)
Else
	Page = 1
End If
Dim Conn
Dim Rs
Dim Conta
Conta = 0
Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open(Application("ConnectionFoto"))
sql="SELECT Categorie.Nome, Categorie.Descrizione, Categorie.URL, Categorie.Immagine, Gruppi.NomeGruppo FROM Gruppi INNER JOIN Categorie ON Gruppi.IDGruppo = Categorie.IDGruppo WHERE Gruppi.IDGruppo=2 ORDER BY IDCategoria DESC"	

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql, Conn, 1, 3

If Rs.EOF Then
	Response.Write "Non ci sono dati disponibili"
Else
	Rs.PageSize = RecordsPerPage
	Rs.AbsolutePage = Page

	For x = 1 To RecordsPerPage
		If Not Rs.EOF Then
%>
    <td valign="middle" class="cellettabianca" width="50%">" title="<%=rs("Nome")%>"><IMG alt="<%=rs("Nome")%>" src="<%=rs("Immagine")%>" border="0" align="left">    <%response.write "" & rs("Nome") & " -  " & rs("Descrizione") & "
"%></td>
<% Conta = Conta + 1
  if Conta = 2 then 
         conta = 0
	 response.Write("</tr><tr>")
  End If
			Rs.MoveNext
		End If
	Next%>
 </tr>
	<tr>
      <td width="50%">

</td>
      <td width="50%">

</td>
    </tr>
		<tr>
      <td align="center" colspan="2">Pagina: <%
	For i = 1 To Rs.PageCount
		If i = page Then
			Response.Write "(" & i & ") "
		Else
			Response.Write "" & i & " "
		End If
	Next
End If%></td>
     </tr>
	  </table>
<%Rs.Close
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing%>