Der sendes kun 1 mail med CDONTS

Hej,

Jeg ville gøre sådan her:
strSQL = "Select email FROM Brugere WHERE brugerStatusID = 2"
Set rs = objConn.Execute(strSQL)
Set mailTilAdmin = CreateObject("CDONTS.NewMail")

If rs.eof or rs.bof then
Response.Write "Der findes ingen administratorer i databasen."
  else
Do While not rs.eof
mailTilAdmin.BodyFormat = 0
  mailTilAdmin.From = "afsender@myDomain.dk"
  mailTilAdmin.To = rs("email")
  mailTilAdmin.Subject =  "subject"
  mailTilAdmin.Body = "body"
  mailTilAdmin.Send
rs.movenext
loop
End if

' lukker alt igen
Set mailTilAdmin = Nothing
rs.close
Set rs = nothing
objConn.close
Set objConn = nothing

Hvis det heller ikke virker så prøv at lave en COUNT med samme argumenter i din SQL sætning for at se hvor mange e-mail adresser den rent faktisk "fanger"..

Nodice - stadig kun 1 mail

Har også prøvet at lave en count - den fandt 3, hvilket stemmer...

prøv at udskrive for at se hvilke mails den finder..

strSQL = "SELECT email " &_
    "FROM Brugere " &_
    "WHERE brugerStatusID = 2 "'2 = administrator
set rs = objConn.Execute(strSQL)   
While Not rs.EOF
response.write rs("email")
  Set mailTilAdmin = CreateObject("CDONTS.NewMail")
  mailTilAdmin.BodyFormat = 0
  mailTilAdmin.From = "afsender@myDomain.dk"
  mailTilAdmin.To = rs("email")
  mailTilAdmin.Subject =  "subject"
  mailTilAdmin.Body = "body"
  mailTilAdmin.Send
  rs.MoveNext
wend