stampa di una riga a fine gruppo di record

[elevation]

ciao a tutti,
il risultato della mia query restituisce diversi record così ordinati:

cliente1 prodotto1
cliente1 prodotto1
cliente2 prodotto1
cliente2 prodotto2
cliente2 prodotto2
cliente3 prodotto3

ora, alla fine di ogni gruppo di record ho necessità di stampare una certa riga di testo in questo modo:

cliente1 prodotto1
cliente1 prodotto1
FINE RIGA

cliente2 prodotto1
cliente2 prodotto2
cliente2 prodotto2
FINE RIGA

cliente3 prodotto3
FINE RIGA

la stampa di questi record avviene tramite un normale ciclo do while. Ho provato ad inserire un if di questo tipo dopo il Movenext, in modo che la riga venga stampata solo quando il cliente è diverso da quello prcedente ma nn funziona

rs.movenext
stored=rs("cliente")
if (stored<>cliente) then
response.write "FINE RIGA"
end if

help

[Baol74]

If Not Rs.EOF then 
	Rs.MoveFirst
	Cliente = Rs("Cliente") 'Serve per non stmpare la prima
	While Not Rs.EOF
		If Cliente <>Rs("Cliente") then Response.Write "<hr>"
		Cliente = Rs("Cliente")
		.
		.
		.
		Rs.MoveNext
	Wend
	Response.Write "<hr>" 'Stampa l'ultima
End if

[elevation]

così mi stampa la riga solo a fine pagina, mentre a me serve che la stampi alla fine di ogni cliente idee?

[optime]

baol ha scritto correttamente. prova.

[pavel-18]

Ciao
sto provando insieme all'utente elevation.....

il risultato è

cliente
prodotto1
fine riga
prodotto2
fine riga

invece dovrebbe essere
cliente
prodotto1
prodotto2
fine riga


P.S.
Ovviamente su questo db ci sono sia clienti con un solo prodotto
così
cliente
prodotto1
fine riga
che clienti con più prodotti
così
cliente
prodotto1
prodotto2
fine riga

[santino83]

If Not Rs.EOF then 
	Rs.MoveFirst
        Attuale=Rs("Cliente")
	Precedente=Attuale 'Serve per non stmpare la prima
	While Not Rs.EOF
		If Attuale<>Precedente then 
Response.Write "<hr>"
Precedente=Attuale
end if
		Attuale= Rs("Cliente")
		.
		.
		.
		Rs.MoveNext
	Wend
	Response.Write "<hr>" 'Stampa l'ultima
End if

[pavel-18]

Non capisco dove sbaglio... posso postare il pezzo di codice??

[Baol74]

Pavel, è chiaro che se il recordset non è ordinato per cliente non funziona. Se lo ordini per cliente (come da problema iniziale) allora ti assicuro che funziona.

[pavel-18]

Originariamente inviato da Baol74
Pavel, è chiaro che se il recordset non è ordinato per cliente non funziona. Se lo ordini per cliente (come da problema iniziale) allora ti assicuro che funziona: non è un algoritmo difficile.

Non funziona, ti posto un pezzo di codice....

If Not Rs2.EOF then
Rs2.MoveFirst
Attuale=Rs2("NUMERO")
Precedente=Attuale
While Not Rs2.EOF


If Attuale<>Precedente then
Precedente=Attuale
File.write "S4" & vbcrlf
end if

Attuale= Rs2("NUMERO")
Rs2.MoveNext
Wend
File.write "S4" & vbcrlf
End if

[Roby_72]

Togliamoci il dubbio: vediamo la query.

Roby