Fejl i nyhedsScript

Nogen der kan se hvad der er galt med mit nyhedsScript? scriptet virker faktisk som det skal, bortset fra at der ikke sendes til den sidste post.


<%

connStr = "driver={MySQL ODBC 3.51 Driver};DATABASE=xxx;SERVER=localhost;UID=xxx;PWD=xxx;OPTION=16834;"
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open ConnStr


if request("mode") = "send" or session("send") = true then
    senddelay = 1 'sek mellem hver udsendelse


    session("send") = true
    if request("header") <> "" then
        session("header") = request("header")
    end if
    if request("tekst") <> "" then
        session("tekst") = request("tekst")
    end if

'**********************************************

SQL = "select * FROM members WHERE godkendt = '1' ORDER BY id desc"
Set rs = conn.execute( SQL )
idtotal = rs("id")

response.write "</B>Udsendt: " & session("i") & "</B><BR>"
response.write "</B>SessionID: " & session("id") & "</B><BR>"
response.write "Send-delay = " & senddelay & " sek.<BR><BR>"

'linie 104

if session("id") = "" then
    SQL = "select * FROM members WHERE godkendt = '1' ORDER BY id"
    Set rs = conn.execute( SQL )
    idmin = rs("id")
    session("i") = 0
    session("id") = idmin-2
end if

if session("id") => idtotal then
    Response.Write "<B>Udsendelse er fuldført.</B><BR><BR>"
    Response.Write session("resp")
else

SQL = "SELECT * from members WHERE godkendt = '1' AND id = " & session("id")
set send = conn.execute( SQL )
if send.eof then
    session("id") = session("id") + 1
    Response.Redirect("nyhedsbrev.asp")
else
    strEmail = send("email")

        if instr(1,session("strsofemails"),strEmail) then
            session("id") = session("id") + 1
            Response.Redirect("nyhedsbrev.asp")
        else
            session("resp") = strEmail & "<BR>" & session("resp")
            Response.Write session("resp")

            session("i") = session("i") + 1
            session("id") = session("id") + 1
            session("strsofemails") = session("strsofemails") & stremail & ","

            '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ UDSEND MAIL! ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
                Set JMail = Server.CreateObject("JMail.SMTPMail")
                JMail.maildomain = "mitdomaine.dk"   
                JMail.Charset = "iso-8859-1"
                JMail.ContentTransferEncoding = "8bit"       
                JMail.Sender = "info@mitdomaine.dk"
                JMail.SenderName = "mitdomaine.dk"
                JMail.Subject =  session("header")
                JMail.AddRecipient strEmail
                JMail.Body = session("tekst")
                       
                JMail.Priority = 3
                       
                JMail.Execute
            '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ UDSEND MAIL! ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

            Response.Write "<META http-equiv='refresh' content='" & senddelay & "; url=nyhedsbrev.asp'>"

        end if
end if

end if

    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

else
end if
%>