Así que tengo esta función que genera una cadena aleatoria de dígitos de 8 caracteres de longitud. Funciona si se llama una vez por página, es decir, si actualizo, mostrará un nuevo número.

Pero quiero generar muchos de estos dentro de un ciclo y está devolviendo el mismo número. ¿Como puedo resolver esto

Function generateCode()

   pChar = "0123456789"

   pCount = Len(pChar) 

   Dim psw
   psw = ""

   Randomize
   For i = 1 To 8 ' password length
      psw = psw & Mid( pChar, 1 + Int(Rnd * pCount), 1 )
   Next

 generateCode= psw
End Function

Ahora pensé que Randomize puede estar basado en la hora actual, así que tomé la línea Randomize y llamé Randomize antes del ciclo que llama a generateCode () i- ¡todavía no funcionó!