Loop med variabel i SQL

Du skal nok lave et array af antal_stem i stedet og så kan du bare genbruge dit resultset (rs_antal_stem).

dim antal_stem(4 to 20)
i = 4
do while not i > 20

  Set rs_antal_stem = Conn.Execute("SELECT COUNT(id) AS Antal From brugerbilerpoll where brugerid = '"& profil_bruger_id &"' and stemme = '"& i &"'")

  antal_stem(i) = rs_antal_stem("antal")
  rs_antal_stem.Close

  i = i + 1
loop

Okay... god idé ;)
Men den giver fejl ved:  (4 to 20) ?
Expected ')'

??

Hmm (lidt for meget VB og lidt for lidt VBScript :))

Hvad så med:

dim antal_stem(17)
= 4
do while not i > 20

  Set rs_antal_stem = Conn.Execute("SELECT COUNT(id) AS Antal From brugerbilerpoll where brugerid = '"& profil_bruger_id &"' and stemme = '"& i &"'")

  antal_stem(i-4) = rs_antal_stem("antal")
  rs_antal_stem.Close

  i = i + 1
loop


Så starter dit array af antal_stem bare fra 0 i stedet for 4, hvis det ellers er ok...?

Arrrgh!

det skal naturligvis være i=4 i linie 2 :)

Okay, jeg nu er fejlen væk...

Men hvordan laver jeg så nu en response.write på hver ?

Jeg har prøvet:
response.write antal_stem(4)
Men det giver bare 0... Det skal det ikke gøre ;)

Husk nu at array'et starter fra index 0 og ikke 4. :)

Anyway! Du kan udskrive alle elementerne således:

for idx = lbound(antal_stem) to ubound(antal_stem)
  response.write antal_stem(idx)
next

...og så er du ligeglad med hvilket index der er det første ;)

Hvis jeg gør sådan her:
Set rs_antal_stem_4 = Conn.Execute("SELECT COUNT(id) AS Antal From brugerbilerpoll where brugerid = '"& profil_bruger_id &"' and stemme = '4'")
antal_stem_4 = rs_antal_stem_4("antal")
rs_antal_stem_4.Close

Så kommer der et tal ud... Men ikke når jeg bruger den loop...

Ja, man lære jeg noget nyt hver dag ;)
Første gang jeg arbejder med arrays...

Prøv at skrive

antal_stem(i-4) = rs_antal_stem("antal").value

i stedet for

antal_stem(i-4) = rs_antal_stem("antal")

nå, men det er vist ved at være sengetid, sååeh... jeg checker ind igen op ad formiddagen. Godnat :)