ASP Script to generate random password

 

Randomize()

PassLen = 0

CurrPass = “”

 

do while PassLen < 7

CurrLtr = Int((42 * Rnd()) + 48)

if CurrLtr < 57 or CurrLtr > 65 then

CurrPass = CurrPass & Chr(CurrLtr)

PassLen = PassLen + 1

end if

loop

 

 

Response.write currpass

%>