Generer et tilfældigt 8 cifret tal

Function makePassword(Size)
    Randomize Timer
    pwdchr="0123456789"
    For i = 1 to Size
        x = Int((Len(pwdchr) - 1 + 1) * Rnd + 1)
        pwd = pwd & Mid(pwdchr, x, 1)
    Next
    makePassword = pwd
End Function

Kald den så med

makePassword(8)

Fx.sådan her:

<%
function lavPassword(antal)
  tilladtkarakter = "1234567890"
  str = ""
  for i = 1 to antal
    randomize
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function


Response.Write "Test : " & lavPassword(9)

%>


//>Rune

Det kunne oxo laves sådan her:

randomize
taeller = 8
st = "1234567890"
l = len(st)
for i = 0 to taeller   
      t = int(l*rnd) + 1
      strTest = strTest + (mid(st, t,1))
next
   
Response.Write strTest

//>Rune

du skal lave noget i stil med:

randomize
tal = Int((99999999 - 10000000 + 1) * Rnd + lowerbound)

okay, de andre eksempler er lidt bedre.. he he...
sådan går det jo når man er langsom med at poste..

randomize
for i = 0 to 8
  t = int(10*rnd)
  RndStr = strTest & t
next

Response.Write(RndStr)