у меня есть эта функция, которая генерирует случайную строку из цифр длиной 8 символов. Он работает, если его вызывать один раз на страницу, то есть, если я обновлю его, он покажет новый номер.

Но я хочу сгенерировать многие из них внутри цикла и возвращать одно и то же число. Как я могу решить это?

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

Теперь я подумал, что Randomize может основываться на текущем времени, поэтому я взял строку Randomize и вызвал Randomize до того, как цикл, который вызывает generateCode (), все еще не работал!