Avatar billede lordnelson Seniormester
08. marts 2009 - 12:01 Der er 3 kommentarer og
1 løsning

Ny randomize

Hi

Hvis jeg bruger:
Randomize
Terning = int(rnd()*antal)+1
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Select * from billeder where medlemid ="& terning &"", Conn
if rs.eof then

Hvis den når enden altså der ingen er skal den kører turen igen altså en ny Randomize, til den finder en.


Troede man kunne bruge Goto men det virker ikke her.

Ln
Avatar billede Slettet bruger
08. marts 2009 - 12:06 #1
Set RS = Server.CreateObject("ADODB.Recordset")
fundet = false

do until false = true
  Randomize
  Terning = int(rnd()*antal)+1
  RS.Open "Select * from billeder where medlemid ="& terning &"",  Conn
 
  if not rs.eof then
    fundet = true
  end if
loop


Dette burde hjælpe dig.
Avatar billede Slettet bruger
08. marts 2009 - 12:06 #2
Smider lige et svar med det samme, hvis det eventuelt er sandt :o)
Avatar billede lordnelson Seniormester
08. marts 2009 - 13:17 #3
Tak for det

rettede den lige til så den duede. Men ideen var rigtig
Avatar billede Slettet bruger
08. marts 2009 - 17:33 #4
ja var vidst kommet til at skrive false = true ;) men godt det virkede.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester