Mailling-liste

Her er et eksempel.

Det kræver at du har adgang til Jmail


------Start på mailform1.asp------

<form method="post" action="mailform2">
Emne : <input type="text" name="emne" size="30"><br><br>
Besked : <textarea name="besked" cols="50" rows="10">skriv besked her...</textarea><br><br>
<input type="submit" name="submit" value=" Send besked "><br>
</form>

------Slut på mailform1.asp------


------Start på mailform2.asp------

<%
  oDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
  Set oConnection = Server.CreateObject("ADODB.Connection")
  oConnection.Open oDSN

  SQL = "SELECT * FROM mails"
  set oRS = oConnection(SQL)

  While Not oRS.EOF
    set JMail = server.createobject("JMail.SMTPMail")
    JMail.sender = "mailingliste@DOMAIN.dk"
    JMail.SenderName = "Mailingliste"
    JMail.subject = Request("emne")
    JMail.AddRecipient oRS("Mail")
    JMail.ContentType = "text/plain"
    JMail.body = Request("besked") & vbCrLf
    JMail.priority = 1
    JMail.maildomain = "mail.tele.dk"
    JMail.silent = true
    JMail.execute
    JMail.close()
  oRS.MoveNext
  Wend
%>
done

------Slut på mailform2.asp------

Dette skulle virke...

Rettelse..

I den første linie <form> linien skal der stå method="mailform2.asp" i stedet for method="mailform"

:o)

umm speedy mener du ikke
<form method="post" action="mailform2.asp">

ups, jo selvfølgeligt :o)

Hmm...virker ikke! :-(  - Sorry ventetiden. Du for pointne alligevel da jeg lidt havde glemt dette spm, og har fundet en anden løsning! :-)

Tak!

se evt. www.mailinglist.dk