Lav et count på hvor man er

Du har vel en form for løkke som gennemløber dit recordset. der skal du bare addde en count som her....

If count = "" Then
count = 1
else
count = count + 1
end if

Ahm hvor er det lige den løkke skal ind ?

strSQL = "SELECT * FROM emails WHERE id >= " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3

if request("testmail") = "Nej" then

EmailSend  =0

on error resume next

Do While (not rs.EOF) AND (CInt(EmailSend) < 1)
EmailSend = EmailSend + 1

          strHost = "mail.tele.dk"
          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "joe@the-man.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = "" & Mail.EncodeHeader(session("overskrift"))
          Mail.Body = session("tekst")
      Mail.Send
          rs.MoveNext
          Loop
       
   
    if (NOT rs.EOF) AND (EmailSend) = 1 then
   
    If Err <> 0 Then ' error occurred

Do While (not rs.EOF) AND (CInt(EmailSend) < 1)
EmailSend = EmailSend + 1
If count = "" Then
count = 1
else
count = count + 1
end if
          strHost = "mail.tele.dk"
          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "joe@the-man.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = "" & Mail.EncodeHeader(session("overskrift"))
          Mail.Body = session("tekst")
      Mail.Send
          rs.MoveNext
          Loop

luk