Nått sånt här kanske?
Kod:
Dim NummerSträng, SlumpatNummer
NummerSträng = ""
Do While len(NummerSträng < 4)
Slumpatnummer = Randomfunktion...
If Not Instr(Nummersträng, SlumpatNummer) Then
NummerSträng = NummerSträng + SlumpatNummer
Response.Write SlumpatNummer & ", "
End If
Loop