Hejsan!
Jag har problem med en sak.
det är så att vissa medlemmar lägger till falska emailadresser i nyhetsbrevet o detta bäddar till att jag får fram felmeddelanden på jmail.send fastän vissa från mailet o vissa inte.

Jag vill gärna att någon redigerar mitt script till att den går vidare o skickar all även ifall emailadressen är felaktigt, dvs hoppa över de som ej fungerar, ja vet ej hur ja ska förklara men hoppas ni förstår...
Tacksam för svar!

<code>
<% If Request.Querystring("send") = "news" Then
If Not Session("access") = "inloggad" Then
Response.Redirect "admin.asp?logga=in"
End If

Set brev = Connect.Execute("Select email From medlemmar")

If brev.eof Then
Response.Write "Det finns inga emailadresser i databasen."
Else

Meddelande = Replace(Request.Form("meddelande"), vbCrLf, "<BR>" & vbCrLf)

Do While Not brev.EOF

Set jmail = Server.CreateObject("JMail.Message")
jmail.Logging = True
jmail.From = "min@email"
jmail.Fromname = "Mitt Namn"
jmail.AddRecipient ""& brev("email") &""
jmail.Subject = Request.Form("rubrik")
jmail.Body = "Meddelande via hemsidan skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML Meddelande
jmail.appendHTML "</font>"
jmail.Send ("mail.server.se")

brev.MoveNext
Loop
Set jmail = Nothing
End If

brev.Close
Set brev = Nothing

Session("skickadbrev") = "Nyhetsbrevet har nu skickats till alla medlemmar."
Response.Redirect "admin.asp?kat=nyhetsbrev"
End If %>
</code>

En chansning:
<code>
On Error Resume Next
Do While Not brev.EOF

Set jmail = Server.CreateObject("JMail.Message")
jmail.Logging = True
jmail.From = "min@email"
jmail.Fromname = "Mitt Namn"
jmail.AddRecipient ""& brev("email") &""
jmail.Subject = Request.Form("rubrik")
jmail.Body = "Meddelande via hemsidan skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML Meddelande
jmail.appendHTML "</font>"
jmail.Send ("mail.server.se")

if err.number = 0 then
response.write " Problem med " & brev("email")
End if
brev.MoveNext
Loop
Set jmail = Nothing
End If
</code>