Ragazzi, nn sono proprio capace,
chiedo gentilmente il Vs prezioso aiuto.

devo fare stampare a video i nomi prodotti, ma si devono "distribuire" in 4 colonne,potete aiutarmi???
grazie
codice:
<%
If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") AND (SCategoria = "") Then
			Response.Redirect Request.ServerVariables("HTTP_REFERER")
		Else
'---Stampo a video i prodotti delle categorie richieste
			Set RS = Server.CreateObject("ADODB.RecordSet")
			RS.PageSize = MaxProdottiPerPagina
			
			If QSQuery2 <> "" Then
				QSQuery2 = Replace(QSQuery2, "'", "''")
				ArrQuery = Split(QSQuery2, " ")
				SQL = " SELECT * FROM Prodotti WHERE "
				For i = 0 to UBound(ArrQuery, 1)
					SQL = SQL & "(categoriasotto LIKE '%" & ArrQuery(i) & "%' OR categoriasotto LIKE '%" & ArrQuery(i) & "%' OR categoriasotto LIKE '%" & ArrQuery(i) & "%') AND "
				Next
				SQL = SQL & "Cancellato = False"
				RS.Open SQL, Conn, 1
			Else
			
				If (QSCategoria = "") Then
					SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Cancellato = False ORDER BY ID DESC "
					RS.Open SQL, Conn, 1
				End If
	
				If (QSCategoria <> "") Then
					SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY ID DESC"
					RS.Open SQL, Conn, 1
				End If
				If (SCategoria <> "") AND (QSCategoria <> "") AND (SCategoria <> "")Then
					SQL = "SELECT * FROM Prodotti WHERE S_Categoria = "& [SCategoria] &" AND Cancellato = False ORDER BY ID DESC "
				end if

			End If
			

			If Not RS.EoF Then 
				RS.MoveFirst
				RS.AbsolutePage = QSPg

			Prima = "<img border=0 src=interfaccia/prima.jpg align=center>"
			Precedente = "<img border=0 src=interfaccia/sinistra.jpg align=center>"
            ultima = "<img border=0 src=interfaccia/ultima.jpg align=center>"
            Successiva = "<img border=0 src=interfaccia/destra.jpg align=center>"

                               If QSPg <> 1 Then
					Footer = "" & Prima & " "
                                        Footer = Footer & "" & Precedente & " "
				Else
					Footer =  " "
                                 Footer = Footer &  " "
				End If
				
					For I = 1 To RS.PageCount
					If I = QSPg Then
						Footer = Footer & I & " "
					Else
						Footer = Footer & "<font size = 4 color = red ><font size = 2 >"& I &"</font> "
					End If
				Next
				

				If QSPg <> RS.PageCount Then
					Footer = Footer & "" & Successiva & " "
					Footer = Footer & "" & ultima & ""
				Else
					Footer = Footer & " "
				End If

				For I = 1 To RS.PageSize
					If RS.EOF Then Exit For
if Tabella_Colore_Cella="#FFFFFF" then
Tabella_Colore_Cella="#DEDEDE"
else
Tabella_Colore_Cella="#FFFFFF"
end if 
%>

<table width="95%" align="center" cellpadding="0" cellspacing="0" border="0">
  <tr bordercolor="#FF6600" bgcolor="#ececec"> 
    <td height="25" style="border:1px dashed #999999" > "><%=RS("Prodotto")%></td>
  </tr>

  <%RS.MoveNext
				Next%>
  <%Else
%>
  

  <%=NoRecordTrovati%> 
  <%
			End If
		End If
		RS.Close
%>
</table>