Øh jo- det findes ellers så mange steder:
----
if request(\"mode\") = \"send\" then
SQL = \"SELECT * from mailinglist where confirm=-1\"
set send = conn.execute( SQL )
if (send.BOF Or send.EOF) then
Response.write \"<tr><td><center><h2>Ingen email-adresser er tilmeldt indtil videre!</h2></center></td></tr></table>\"
else
Response.write\"<tr><td><center>\"
Mailtype=1
mailnr=1
response.write \"<h4>Meddelelse er sendt til : \" & \"</h4><br>\"
do while not send.eof
Navn= send(\"Name\")
IDpas= send(\"IDpas\")
Email= Send(\"Emailad\")
subject= Request(\"subject\")
BodyTextto = \"Hej \" & Navn & vbCrLf & vbCrLf & bodytext & vbCrLf & vbCrLf & \"-----------------\" & vbCrLf
BodyTextto = BodyTextto + \"Denne mail er sendt fra nyhedstjenesten på
www.xxxx.dk\" & vbCrLf
BodyTextto = BodyTextto + \"Ønsker du ikke at forsætte med at modtage nyheder, besøg
http://www.xxxx.dk/news/confirm.asp?frameld=\"& IDpas & \" for at framelde tjenesten.\"
%>
<!--#include file=\"mailsend.asp\"-->
<%
response.write \"Mail nr: \" & mailnr & \" \"& send(\"emailad\") &\"<br>\"
send.movenext
mailnr = mailnr+1
loop
response.write \"</center></td></tr></table>\"
end if
-----mailsend.asp ----
<%
if Mailtype=1 then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
\' Set logging to true to ease any potential debugging
\' And set silent to true as we wish to handle our errors ourself
JMail.Logging = true
JMail.silent = true
JMail.ServerAddress = \"websmtp.XXXX.dk\"
JMail.SenderName = \"XXXX NYT\"
JMail.Sender = \"admin@XXXX.dk\"
JMail.Subject = subject
JMail.AddRecipient Email
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Body=BodyTextto
if not JMail.Execute then
Response.write \"<pre>\" & JMail.log & \"</pre>\"
else
Response.write \"Mail OK\"
\'Response.write Email & \"<b>\"
\'Response.write subject & \"<b>\"
\'Response.write BodyTextto
end if
set JMail = nothing
End if
%>