Omskriv til Jmail

Set Conn = Server.CreateObject("ADODB.Connection")
    Set Rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open dsn
    SQL = "SELECT emails from emails order by id"
    rs.open sql,conn
    do while not rs.eof
        emails=rs("emails")
        subject = request.form("subject")
        comm = request.form("comm")

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "name@email.com"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = subject
JMail.Body = comm
JMail.Execute
Set JMail = Nothing

        rs.movenext
    loop
    rs.close
    set rs = nothing
    conn.close

//>Rune

Jeg får en HTTP 500 - Intern serverfejl

Hele filen ser sådan ud:

<%
option explicit'must be declared
%>
<!--#include file="config.inc"-->
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request("action")
select case useraction
case "send"
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set Rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open dsn
    SQL = "SELECT emails from emails order by id"
    rs.open sql,conn
    do while not rs.eof
        emails=rs("emails")
        subject = request.form("subject")
        comm = request.form("comm")
                    Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ContentType = "text/html"
            JMail.ServerAddress = "mail.domain.dk"
            JMail.Priority = 1
            JMail.Sender = "name@email.com"
            JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
            Jmail.AddRecipientCC "andenmodtager@email.adr"
            Jmail.AddRecipientBCC "skjultmodtager@email.adr"
            JMail.Subject = subject
            JMail.Body = comm
            JMail.Execute
            Set JMail = Nothing
           
                            rs.movenext
                    loop
                    rs.close
                    set rs = nothing
                    conn.close

    set conn = nothing
    response.write "<script>alert('has been sent!');"
    response.write "location.href='index.asp'</script>"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>

*G* Det er jo klart! Den kan jo for det første ikke finde nogen POP3 server den skal sende fra, og for det andet har den ikke nogen gyldig email adresse at sende til!

//>Rune

Bahh - jeg har sq da skrevet dem ind - tror du jeg er komplet idiot :o)

*LOL*
Hmm.. ok..

Hvad er det scriptet skal gøre?
//>Rune

Well, i korte træk hive emails fra en db ud og sende indholdet af en form til dem.

http://www.peterelkjaer.dk/x/admin/ Et script jeg har fundet på nettet - men min server understøtter kun Jmail og AspEmail

Tjaaa, jeg får ingen fejl!

//>Rune

Nå, men du kan jo selv se http://www.peterelkjaer.dk/x/admin/send.asp - koden er den ovenstående med mail.peterelkjaer.dk osv.

Mener du at virker hos dig? (kan se du har oprettet "bruger") - altså det jeg har uploadet.

Ja, jeg kunne sagtens oprette en bruger!

//>Rune

Ahh, det er det at sende mailen ud! fair nok.. det virkede ikke.. 2 sek..

//>Rune

Hmm.. Peter, jeg er nødt til at se hvad det er du putter ind i din Jmail kode! Prøv at give mig hele din kode, hvor du har udfyldt dine Jmail objekter!

//>Rune

Ja det er nok der fejlen ligger..

jeg udfylder således:

JMail.ServerAddress = "mail.peterelkjaer.dk"
            JMail.Priority = 1
            JMail.Sender = "webmaster@peterelkjaer.dk"
            JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
            Jmail.AddRecipientCC "andenmodtager@email.adr"
            Jmail.AddRecipientBCC "skjultmodtager@email.adr"

og så gør faktisk ikke mere... :)
Hvad jeg skulle skrive i resten kan jeg ikke se, da det ikke er noget "bestemt" mailadresse.

JMail.ServerAddress = "mail.peterelkjaer.dk"
            JMail.Priority = 1
            JMail.Sender = "webmaster@peterelkjaer.dk"
            JMail.AddRecipientEx "rune@medions.dk", "Rune Nielsen"

Du kan jo kun bruge mail.peterelkjaer.dk hvis du har din egen mailserver!

//>Rune

Jeg har min egen mailserver - mail.peterelkjaer.dk

Så der er vel ingen umiddelbar fejl i scriptet eller hvad?

-prøver lige kun med det du skrev.

http://www.peterelkjaer.dk/test_adv_mailer.asp - kan jeg godt sende fra med min mailserver og Jmail.

Hmm.. Peter, har du ikke ICQ, tror det er lidt hurtigere end eksperten! ;-)

//>Rune

Jo men jeg skal lige spise  - ellers flipper kæresten da totalt :o)

Jeg er på iaften, så kan vi tage det: 98 45 33 34

Ok, fair ok ;-)

Thx 4 Poinz
//>Rune