random/bland tal fra streng

har selv skulle bruge den :).. her er den du søger..

http://www.4guysfromrolla.com/webtech/110800-1.shtml

puuuu...

Ja. Kan sq ikke lige gennemskue det/få det til at virke. Kan du ikke give et eksempel ud fra mit spørgsmål?

Sådan her for at bruge dit eksempel med tallene..:

<%
Function ReOrderArrayQuickNDirty(ByVal aArray)

  Dim iUpper, iLower, iLoop, iSwapPos, varTmp
  iUpper = UBound(aArray)
  iLower = LBound(aArray)

  Randomize Timer

  \'Loop through the array, randomly swapping values
  For iLoop = iLower to iUpper
    \'Get an array index to swap
    iSwapPos = Int(Rnd * (iUpper + 1))

    \'Swap the current element with the element at iSwapPos
    varTmp = aArray(iLoop)
    aArray(iLoop) = aArray(iSwapPos)
    aArray(iSwapPos) = varTmp
  Next

  ReOrderArrayQuickNDirty = aArray  \'Return the jumbled array
End Function

aSites    = Split(\"976,82,1400,975,1120,188\",\",\")

\'Jumble up the array and display the new, random order!
aSites = ReOrderArrayQuickNDirty(aSites)
For iLoop = LBound(aSites) to UBound(aSites)
  Response.Write aSites(iLoop) & \"<BR>\"
Next
%>

takkker.. ;)