beting. i random

Jeg har lavet dette script som finder X antal tilfældige record og udskriver dem, du kan rette antalRandom til 2 eller få inspiration til dit eget script.:


antalRandom = 15
Rs.Open "SELECT * FROM abbtabel", myConn,1,3
inDB = rs.RecordCount
If inDB > antalRandom then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound < antalRandom
    Do
      Newid = Int (rnd*inDB)
    Loop while inStr(strIndex,"," & newid & ",") > 0
    strIndex = strIndex & newid & ","
    indexFound = indexFound + 1
  Loop
  strIndex = mid (strIndex,2,len(strIndex)-2)
  myArr=split(strIndex,",",-1)
  For i = Lbound(myArr) to Ubound(myArr)
    rs.move myArr(i),1
     
    Response.write rs("kolonnenavn") & "<br>"

  next
end if
Rs.Close

hvis du bar skal hvade to kan du gøre sådan her:

Rand = cint(int(cint(AdCount) * Rnd(47) + 1))
Do
  NewRand = cint(int(cint(AdCount) * Rnd(47) + 1))
Loop while (NewRand = Rand)

Så har du to tilfælde som ikke er ens:
Rand og NewRnad

Jeg takker med stor kyshånd for den sidste:))