Hvordan generere jeg en tilfældig string

<%
\'******************************************
\'* danner en string på intAntalTegn, dog minimum 4 tegn
\'******************************************
function StringGen(intAntalTegn)
   
    randomize timer
    if intAntalTegn < 4 then
        intAntalTegn = 4
    end if   
    dim strReturn, strAlt, intTegn
    strReturn = \"\"
    strAlt = \"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUWVXYZ\"
    intTegn = len(strAlt)
    for i = 1 to intAntalTegn       
        strReturn = strReturn & mid(strAlt, (intTegn*rnd)+1, 1)
    next
    StringGen = strReturn
end function

response.write(StringGen(3)&vbcrlf)
%>

function User_GenerateRandomId
  \' Returns a randomly generated id

  const intRandomIdLength = 32
  const strCharacters = \"abcdefghijklmnopqrstuvwxyz0123456789\"
  Dim intCount
  Dim strRandomId
  Dim strChar
 
  strRandomId = \"\"
  intCount = 0
 
  Randomize()
 
  while intCount<intRandomIdLength
    \' Get a random character from the array
    strChar = mid(strCharacters,int(Rnd()*len(strCharacters)+1),1)
   
    \' Add it to the password
    strRandomId = strRandomId & strChar
   
    intCount = intCount + 1
  wend
   
  User_GenerateRandomId = strRandomId
end function

<% @language=\"VBScript\"%>
<%

Randomize

loop (20)

ups = ups + (10 - 1 + 1) * Rnd + 1))


do

%>

<%= ups %>



/korup

/korup

Nightcrow: Kan du ikke lige lave et svar jeg kan acceptere?