Do while recset.eof Or 5 ggr

Jag villa tt recsettet ska loopa 5 ggr och sedan skriva in en liten grej och sedan fortsätta till 5 nästa osv tills databasposterna tar slut.how how how?

typ: Do While Not Recset.EOF Or gjort 5 ggr yo :)

recset("tjoflpöjt")

movenext
loop bla bla

Du får nog nästla in det hela i två loopar. Ungefär så här:

do until recset.EOF

    do until recset.EOF or tal=5
             gör något
             tal = tal + 1
             recset.movenext
    Loop

    tal=0
    recset.movenext

Loop

Eller:

intCounter = 0
do until recset.EOF
    intCounter = intCounter +1
    if intCounter mod 5 = 0 then Response.write "Jippi, den har visat fem stycken!"
    recset.movenext
Loop

Mvh,

tal = 0
do until recset.EOF
    if tal > 0 and tal mod 5 = 0 then
       'gör något
    end if
    tal = tal + 1
    'visa data  
    recset.movenext
Loop

Tackar!
The problem is solved yo :e