En maillist på jmail på azero server.

Nedenstående virker ved Azero, og den lukker Jmail efter at hver mail er sendt, så her bliver ingen væk :o)
Husk at rette de steder det er nødvendigt så det passer til dit domæne.

<%
if request("mode") = "send" then
body=Request("Tekst")

SQL = "SELECT * from TABEL"
set send = conn.execute(SQL)
if (send.BOF Or send.EOF) then
Response.write "<h2 align=""center"">Ingen email-adresser er tilmeldt indtil videre!</h2>"
end if
Response.write"<tr><td><center>"
do while not send.eof
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.dit-domaene.dk"
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.SenderName = "Cyberfinn"
JMail.Sender = "admin@dit-domaene.dk"
JMail.Subject = "Nyhedsbrev fra cyberfinn"
JMail.AddRecipient send("emailadresse")
JMail.Body = body
JMail.Priority = 3
JMail.Execute
set JMail = nothing
response.write "Nyhedsbrevet er sendt til: "& send("emailadresse") &"<br>"
send.movenext
loop
response.write "</h4></center></td></tr></table>"
%>

/Goose