Generer unik kode

Jeg er i gang med at lave et site, hvor det skal være muligt at oprette sig som bruger. Her skal man vælge et brugernavn, password samt navn og adresse. Når brugeren så trykker "Opret" skal der genereres en unik 8 cifret kode til hver bruger.
Jeg skal med andre ord tjekke på min MySQL database om der er en bruger, der har denne kode og hvis der er, skal der genereres en ny indtil den rammer en, der ikke er i brug. Hvordan gør jeg dette nemmest?
Jeg har følgende kode til at generere min kode:

<%
'Alle tal og bogstaver kan benyttes
const MuligeTegn = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

'Koden vil indeholde 8 tegn
const Lengde = 8

Function MakePassword()
  Dim i, nPlacering, ch, returnString
  'Start tilfældighedsgeneratoren:
  Randomize
  for i = 1 To Lengde
    'Finder en tilfældig placering indenfor intervallet:
    nPlacering = CInt(Len(MuligeTegn)) * Rnd + 1
    ch = Mid(MuligeTegn, nPlacering, 1)
    returnString = returnString & ch
  Next
  MakePassword = returnString

End Function

Nogen der hurtigt kan hjælpe?