slumpa fram tal

Försöker slumpa fram några tal. Jag har den här koden

public nummer2 as integer
	sub slumpa()
		dim r as new random()
		nummer2=r.Next(0,15)
	end sub
	
	sub slumpa2(sender as object, e as eventargs)
		dim i as integer
		for i = 0 to 5
		slumpa()
		response.write(nummer2 &" <br />")
		next
		
	end sub

Nu blir det 6 likadan tal. Hur ska jag göra för att få detta att fungera?

hum, kan bero på att du använder samma random() för varje tal testa att lägg in slumpa koden i din loop och kör dim r as new random() innan loopen.