bom velho seguinte...agora voce explico melhor o que voce queria....e aquilo voce pode usar dessa forma e bloqueando emails tambem que nao tenham no bd....vou te passar um codigo que eu uso....que cria uma variavel nesse estilao mesmo que voce quer....da uma analisada e ve se te ajuda
Private Function GerarCodigo()
Dim valores, i
'Inicia a função com valor em branco
GerarCodigo = ""
'Define um vetor com os elementos de nosso código
valores = Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
Randomize
For i = 1 to 40
GerarCodigo = GerarCodigo & valores(Int(uBound(valores) * Rnd))
Next
End Function
Session("sid") = GerarCodigo