Hvordan styres afslutningen af er resultat fra en database

Det var selvfølgelig den klippede kode. Her kommer den der "heller ikke virker"

dim antal
   
        ' Gennemløb Recordset (rs) med en løkke
        Do While Not rs.EOF
 
               
                antal = antal + 1
                if antal =< 1 then
                Response.write rs("Email")
                response.write ","
                antal = 0
                else
                Response.write rs("Email")
               
               
                end if
               
               
                               
               

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

Prøv dette i stedet:

DO WHILE NOT rs.EOF
  Response.write rs("Email")
  rs.MoveNext
  if not rs.EOF then
    Response.Write ","
  end if
LOOP

Det virker. Tak for det.

Værsågod :)