Avatar billede md_craig Nybegynder
02. juni 2002 - 13:50 Der er 4 kommentarer og
2 løsninger

Flere Move Next....

Jeg ville lige høre om det var mugligt at have flere |Movenext| inden ens |Loop|

FX:
--------------------------------------------------------

<%

Dim eveSQL, rsEVE

eveSQL = "SELECT TOP 2 * FROM Events ORDER BY Events.Dato DESC;"
Set rsEVE = cn.Execute(eveSQL)

  Response.write "<Table cellpadding=""0"" cellspacing=""0"" width=""140"">"

Do While Not rsEVE.EOF

  Response.write "<tr><td>" & RS("bla") & "</td>"

rsEVE.MoveNext

  Response.write "<td>" & RS("bla") & "</td>"

rsEVE.MoveNext

  Response.write "<td>" & RS("bla") & "</td></tr>"

rsEVE.MoveNext
Loop

  Response.write "</table>"

%>
Avatar billede orca Nybegynder
02. juni 2002 - 14:10 #1
Det er det, men hvad er ideen så med et loop?
Avatar billede tmceu Praktikant
02. juni 2002 - 17:44 #2
Orca >> dette kunne jo eks. være fordi vedkommende vil udskrive 3 poster for hvert loop. Der findes dog mere "elegante" måder at gøre det på. Jeg forestiller mig eksempelvis:

Response.write "<Table cellpadding=""0"" cellspacing=""0"" width=""140"">"

Do While Not rsEVE.EOF

  Response.write "<tr>"

  For i = 1 to 3

      Reponse.write "<td>" & RS("bla") & "</td>"

  i = i + 1
  Next

  Response.write "</tr>"

  rsEVE.MoveNext
Loop

Response.write "</table>"
Avatar billede tmceu Praktikant
02. juni 2002 - 17:46 #3
Ahh, fik ikke kopieret movenext rigtigt :-)

Response.write "<Table cellpadding=""0"" cellspacing=""0"" width=""140"">"

Do While Not rsEVE.EOF

  Response.write "<tr>"

  For i = 1 to 3

      Reponse.write "<td>" & RS("bla") & "</td>"

  i = i + 1
  rsEVE.MoveNext
  Next

  Response.write "</tr>"

Loop

Response.write "</table>"
Avatar billede tmceu Praktikant
02. juni 2002 - 17:50 #4
Og så har jeg vist fået solstik, for del holder ikke, hvis ikke antallet af poster er deleligt med 3. Undskyld forvirringen. Dette ender måske med at være lige så "underligt".

Der skal lige en

Response.write "<Table cellpadding=""0"" cellspacing=""0"" width=""140"">"

Do While Not rsEVE.EOF

  Response.write "<tr>"

  For i = 1 to 3
      If rsEVE.EOF Then Exit Do
      Reponse.write "<td>" & RS("bla") & "</td>"

  i = i + 1
  rsEVE.MoveNext
  Next

  Response.write "</tr>"

Loop

Response.write "</table>"
Avatar billede md_craig Nybegynder
03. juni 2002 - 11:56 #5
OK... jeg kan ikke lige acceptere dit/jeres svar før jeg har afprøvet det... og der kommer nok til at gå en lille uge før jeg skal bruge det. der er nemlig kommet lidt andre ting op... men du/i skal nok få point hvis det virker....
Avatar billede md_craig Nybegynder
18. juni 2002 - 15:55 #6
Har stadig ikke fået det tjecket... men jeg stoler på jer... ellers kommer dette spm til at trække forfærdeligt ud...
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