inserire uno spazio <br>

[Lino80]

questa tabella si ripete una sotto l'altra quando aggiungo più prodotti, io vorrei inserire uno spazio tra una tabella e l'altra, sennò mi vengono tutte attaccate..

<table width="500" border="0" align="center" cellpadding="3" cellspacing="0">
		<tr> 
			
		</tr>
<%
		If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") Then
			Response.Redirect session("referer")
		Else
'---Stampo a video i prodotti delle categorie richieste
			Set RS = Server.CreateObject("ADODB.RecordSet")
			RS.PageSize = MaxProdottiPerPagina
			
'MODIFICA DELLA SB SOFTWARE PER IL PREZZO MAX.
if request.form("select") <> "" AND request.form("select") <> "" then
	If (QSCategoria = "") Then
		SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Categoria = 0  AND Cancellato = False "
		If Session("Rivenditore") = True then
			SQL = SQL & "AND cLng(RPrezzo) <= "& cLng(FormattaPrezzoPerDB(request.form("select"))) &" "
		else
			SQL = SQL & "AND cLng(CPrezzo) <= "& cLng(FormattaPrezzoPerDB(request.form("select"))) &" "
		End if
		RS.Open SQL, Conn, 1
	End If

	If (QSCategoria <> "") Then
		SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False "
		If Session("Rivenditore") = True then
			SQL = SQL & "AND cLng(RPrezzo) <= "& cLng(FormattaPrezzoPerDB(request.form("select"))) &" "
		else
			SQL = SQL & "AND cLng(CPrezzo) <= "& cLng(FormattaPrezzoPerDB(request.form("select"))) &" "
		End if
		RS.Open SQL, Conn, 1
	End If

else
			
				If (QSCategoria = "") Then
					SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Cancellato = False ORDER BY Codice DESC"
					RS.Open SQL, Conn, 1
				End If
	
				If (QSCategoria <> "") Then
					SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY Codice DESC "
					RS.Open SQL, Conn, 1
				End If
			End If

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

			Precedente = "Precedente"
                        Successiva = "Successiva"

                               If QSPg <> 1 Then
					Footer = "" & PrimaPagina & " "
                                        Footer = Footer & "" & Precedente & " - "
				Else
					Footer = PrimaPagina & " "
                                        Footer = Footer & Precedente & " - "
				End If
				

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

				For I = 1 To RS.PageSize
					If RS.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Cella%>">
			<form method="get" action="prod_aggiungi.asp">
				<td bgcolor="#999966" width="135" valign="top">
<a href="scheda.asp?id=<%=RS("ID")%>">
<%dim prodotto%>
<%Prodotto=RS("Prodotto")%><img src="../
<%
					If RS("PFoto") <> ("public/imgprodotti/") Then
						Response.Write RS("PFoto")
					Else
						Response.Write  Img_NonDisponibile_P
					End If
%>
					" alt="<%=Prodotto%>" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>" border="0">			  </td>
				<td align="center" bgcolor="#999966">
<%
					If RS("Offerta") = True Then
%>
					
<%
					End If
					If StrToData(RS("Data")) > (Date - GiorniNovita) Then
%>
				
<%
					End If
%>
					
					<p align="center">
					</p>
					<p align="center">"><%=RS("Prodotto")%>
                    <%	    
					If  RS("Tipologia") = True Then
%>
				    
				  </p>
					<p align="center">
<%
						Set RStip = Server.CreateObject("ADODB.RecordSet")
						SQL = " SELECT * FROM Tipologie WHERE IDProdotto = "& RS("ID")

						With RStip
							.Open SQL, Conn, 1
							If Not (.BOF And .EOF) Then
%>
						<select name="Tipologia">
<%
								Index = 1
								Do While Not .EOF
									If Index = 1 Then
%>
							<option Selected value='<%=.Collect("ID")%>'><%=.Collect("Tipologia")%>
<%
									Else
%>
							<option value='<%=.Collect("ID")%>'><%=.Collect("Tipologia")%>
<%
									End If

									Index = Index + 1
									.MoveNext
								Loop
							End If

							.Close
						End With

    						Set RStip = Nothing
%>           
						</select>
					</p>
<%
					End If
%>					
				

					<p align="left">
					

					<%=RS("PDescrizione")%>
					

					<%If UtilizzaPrezzo(RS("PuntiSconto")) > 0 Then%>
<%=PuntiUsabili%>: <%=VisualizzaPrezzo(RS("PuntiSconto"))%><%End If%>
			  

					

					<%=SimboloValuta%> <%=VisualizzaPrezzo(RS("CPrezzo"))%>
<%
					If Session("Rivenditore") = False Then
%>
					

					

<%
					End If
%>
					
				

					<%=RS("GDescrizione")%>
<%
					If (RS("Giacenza") > 0) OR RS("GiacenzaInfinita") Then
%>
			
<%
					Else
%>
					
					

					">Prenotalo ora!</p>
					

					<%
					End If
%>
			  </td>
				
			</form>
		</tr>
<%
					RS.MoveNext
					Next
			Else
%>
		<tr bgcolor="<%=Tabella_Colore_Cella%>"> 
			<td colspan="5" align="center" height="18">
				
				<%=NoRecordTrovati%>
			</td>
		</tr>
<%
			End If
		End If
		RS.Close
%>
  </table>

dovrei inserire un "
" in questo codice..almeno penso sia così..

<%
					RS.MoveNext
					Next
			Else
%>