Salve a tutti, ho una pagina asp dove una tabella ha le righe sono formate dai record di due tabelle: faccio il ciclo della prima tabella poi, quando sono finiti i record, inizia il ciclo della seconda.
Il problema è: se io volessi (e guarda caso mi serve) che la tabella si fermi dopo una ventina di righe e i successivi record siano in un'altra pagina come faccio???
Provo a postare un po' di codice...
codice:
<%
				total = 18 'righe max per fattura	
				riga = 0
			  set rs3 = Server.CreateObject("ADODB.recordset")
			sql3 = "SELECT * FROM ddt WHERE numerofattura = "& numero
			rs3.LockType = 3
			rs3.CursorType = 3
			rs3.open sql3, conn
			
			do while not rs3.eof
			numerobolla = rs3("numero")
			databolla = rs3("data")

			set rs4 = Server.CreateObject("ADODB.recordset")
			sql4 = "SELECT * FROM ddtclarticoli WHERE numero = "& numerobolla
			rs4.LockType = 3
			rs4.CursorType = 3
			rs4.open sql4, conn
			
			do while not rs4.eof 
			riga = riga + 1
			articolo = rs4("articolo")
    set rs6 = Server.CreateObject("ADODB.recordset")
	sql6 = "SELECT * FROM cinture WHERE articolo = '"& articolo &"'" 
	rs6.LockType = 3
	rs6.CursorType = 3
	rs6.open sql6, conn	
	
	if not rs6.bof or not rs6.eof then
	Dim desc
	
 If rs6("articolo") <> "" then
 articolo = "ART. " & rs6("articolo") & ", "
 Else
 articolo = ""
 End If
 altezza = "H: " & rs6("altezza") & ", "
 profilo = rs6("profilo") & ", "
 
 If rs6("forma") = "SAGOMATA" then
 	forma = rs6("forma") & ", "
 Else 
 	forma = ""
 End IF

  matsup = rs6("matsup") & ", "
 
 If rs6("matinf") <> "" then
 	matinf = "FODERA: " & rs6("matinf") & ", "
 Else
 	matinf = ""
 End If
 
 mat3 = rs6("mat3")
 mat4 = rs6("mat4")
 if mat3 <> "" then
 	altrimateriali =  mat3 & ", "
 	If mat4 <> "" then
 		altrimateriali = altrimateriali & mat4 & ", "
 	End If
 Else
 	altrimateriali = ""
 End If
 
 If rs6("cucitura") = "NO" then
 	cucitura = "NON CUCITA, "
 Else
 	cucitura = "CUCITA" & rs6("cucitura")  & ", "
 	cucitura = replace(cucitura,"SI"," ")
 End If	
	
ddt = "RIFERIMENTO DDT N. "  & numerobolla  & " DEL " & databolla

desc  = articolo & "CINT. " & altezza & profilo & forma & matsup & matinf & altrimateriali & cucitura & ddt
rs6.close
set rs6 = nothing
else
desc = articolo
end if

				%>
                    <tr valign="top"> 
                      <td width="10%"><div align="center"><font size="2"><%=rs4("totalepezzi")%> </font></div></td>
                      <td width="64%"><font size="2"><%=desc%></font></td>
                      <td width="13%"><div align="right"><font size="2"><%=formatnumber(rs4("prezzo"),2)%></font></div></td>
                      <td width="13%"><div align="right"><font size="2"><%=formatnumber(rs4("totaleriga"),2)%></font></div></td>
                    </tr>
                    <% 
					
					rs4.movenext
					loop
					rs4.close
					set rs4 = nothing
					
					
					rs3.movenext
					loop
					rs3.close
					set rs3 = nothing
					
					
					sql5 = "SELECT * FROM fatturearticoli WHERE numero = "& numero
					Set rs5 = Conn.Execute(sql5)
					If not rs5.eof or not rs5.bof then
					do while not rs5.eof
					riga = riga + 1
					 %>
                    <tr valign="top"> 
                      <td width="10%"><div align="center"><font size="2"><%=rs5("totalepezzi")%> </font></div></td>
                      <td width="64%"><font size="2"><%=rs5("descrizione")%></font></td>
                      <td width="13%"><div align="right"><font size="2"><%=formatnumber(rs5("prezzo"),2)%></font></div></td>
                      <td width="13%"><div align="right"><font size="2"><%=formatnumber(rs5("totaleriga"),2)%></font></div></td>
                    </tr>
                    <% 
					rs5.movenext
					loop
					End If
					rs5.close
					set rs5 = nothing
					%>
                  </table>
Scusate il casino
Chi mi aiuta è un Santo
Grazie