asp og jmail problemer

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

på den måde kan du få en reel fejlmeddelelse.

De primære fejl der sker med nyhedsbreve er, at enten scriptet kører ud (timeout) eller at man glemmer at nulstille jmail-initialiseringen med tilpas interval (min. hver 20. gang)... men ellers burde der ikke være problemer ved 1000 mails

den ser således ud:

<%
                antalmail = 0
               
                set msg = Server.CreateOBject( "JMail.Message" )   
                msg.ContentType  = "text/html"
                msg.Logging = true
                msg.silent = true
                msg.From = "emailadresse"
                msg.FromName = "kundenavn"
                msg.Subject = "Nyhedsbrev"

        set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kundekartotek.mdb")
       
        set objRs = Conn.Execute("Select Distinct [E-post-adresse], Fornavn From Adresseliste Where [E-post-adresse] IS NOT NULL")
        If Not objRs.eof Then
            Do While Not objRs.eof

                strEmail = objRs("E-post-adresse")
                strBody = Request.Form("body")
                strbody = Replace(strbody, "[BRUGERNAVN]", objRs("Fornavn"))
                set msg = Server.CreateOBject( "JMail.Message" )   
                msg.ContentType  = "text/html"
                msg.Logging = true
                msg.silent = true
                msg.From = "emailadresse"
                msg.FromName = "kundenavn"
                msg.Subject = "Nyhedsbrev"
                msg.AddRecipient strEmail
                msg.Body = strbody
                If Not msg.Send("mail.domain.com") Then
               
                End If
                set msg = nothing
                strbody = ""
                strEmail = ""
               
                antalmail = antalmail+1
                objRs.MoveNext
            Loop
        End If
       
        objRs.Close
        set objRs = Nothing
       
        Conn.Close

hvordan kan man sikkre at det ikke timer out

kommer på igen efter kl. 17:00

server.scripttimeout = 5000

sæt det ind i toppen

og hvad med denne:

eller at man glemmer at nulstille jmail-initialiseringen med tilpas interval (min. hver 20. gang)...

keysersoze--> kender du til hvordan man laver det med min. 20 af gangen

Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType     = "text/html"
    JMail.ServerAddress = "XXX.XXX.dk"
    JMail.Sender        = "XXX@XXX.dk"
    JMail.Subject      = OVERSKRIFT
    JMail.Priority      = 3
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    counter = 1
    Do while not rs.eof
    JMail.ClearRecipients()
    JMail.AddRecipient  rs("email")
    JMail.Body             = MAILINDHOLD
    JMail.Execute
    if counter = 20 then
        JMail.Close
        counter = 0
    end if
    counter = counter + 1
    rs.movenext
    loop
    Set JMail             = Nothing

ok :o) siger tak