<%
function mkPwd(IntAnt)
strCode= "ÅÄÖ012345678klmnopqÄÖ012345rstuvwxABCDEFGHIJKLMNOPQRSTUVWXYZyzåabcdefghijklm9abcdefghijnopqrstuvwxyzåäöäöABCDEFGHIJKLMNOPQRSTUVWXYZÅ6789"
for a = 1 to IntAnt
randomize
intTest = rnd * len(strCode)
strPwd= strPwd & mid(strCode,(intTest + 1),1)
next
mkPwd = strPwd
end function
response.write mkPwd(6)
%>
mkpwd(6) ändra om 6 till så många tecken du vill ha..
