password bliver det samme hver gang ??

Jeg har følgende lille stump vbsrcipt som skulle lave en adgangskode ni tegn langt, men problemet er at det bliver det samme hvar gang, også selv om jeg åbner en ny browser HVORFOR DET !!!

strNewPass = \"\"
while(i < 9)
   
    k = Fix(rnd() *100)
   
    if(( k >= 48 AND k <=57 ) OR ( k >=65 AND k <=90 )) THEN
   
    \'Response.Write Chr(k)
    strChar = Chr(k)
    i = i + 1
    strNewPass = strNewPass + strChar
    END IF
   
    \'Response.Write Chr(Fix(rnd() *100))
   
Wend
    Response.Write strNewPass