har försökt att generera unika nycklar med den här koden men det blir ändå flera stycken dubletter, hur fixar jag till så det inte blir några dubletter?

<code>
<%
Function RandomText(length)
Dim i, r
Randomize
For i = 1 To length
r = r & Chr(65 + CInt(Rnd() * 25))
Next

RandomText = r
End Function

dim multiply


for multiply = 1 to 3000


response.write RandomText(12)&"<br>"

next

%>
</code>



tacksam för snabbt svar och lösning

Du måste spara nycklarna och sedan jämföra de framslumpade nycklarna mot de redan existerande, om det redan finns en likadan så får du slumpa fram en ny istället.

/Johan

Nått exempel på detta?

Jag har inget liggande, men det är inget svårt, försök själv!

/Johan