select e cancellazione di piu record

[Partisan75]

Scusate ragazzi ma non riesco ad andare avanti. Ho una domanda facile facile (per voi)
Faccio questa select per recuperare dal carrello i campi contenenti 'campoPromo' (però solo il primo)

            SQLOrdine = " SELECT * FROM Carrello WHERE IDSessione = '"& SessionID &"' AND campopromo <> '0' "
            Set RSOrdine = Conn.Execute(SQLOrdine)

            If Not RSOrdine.EOF Then
            
            InputCod = RSOrdine("da_scontare")
            campoPromo = RSOrdine("CampoPromo")

            Else

            InputCod = 0
            campoPromo = 0

            END IF        

poi recupero altre informazioni associate a quel codice promo

SqlPromo ="SELECT * FROM promo WHERE" 
SqlPromo = SqlPromo &"   valore = '"& campoPromo &"' "
set rs = Conn.Execute(sqlPromo)
Do while not rs.Eof

valoreSconto = rs("valore")

rs.MoveNext
Loop

else 
....
end if

e poi alla fine con questo codice vado a cancellare il 'campoPromo' da un'altra tabella.

SQLCanc = "DELETE FROM promo WHERE valore = '"& ValoreSconto &"'"
set rs = Conn.Execute (SqlCanc)

Il problema è che mi cancella solo il primo record che incontra. Come faccio a farne cancellarne 2 o piu se sono piu di 1 ?
Il problema credo dipende dalla prima select che faccio al carrello perche è li che dovrei prendere tutti i codici diversi che trova... giusto?


Grazie mille in ancipo