Her er en jeg selv bruger:
<%
Subject = REPLACE(REQUEST.FORM("Subject"),"'","''")
Message = REPLACE(REQUEST.FORM("Message"),"'","''")
'// DSN Less Connection
Set Conn = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=" & Server.MapPath("db1.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath
Set Rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT TblNewsLists.ListName, TblNewsLists.ListEmail, TblNewsLists.NewsText, TblNewsListSignUp.ListID, TblNewsListSignUp.SignUpCompany, TblNewsListSignUp.SignUpName, TblNewsListSignUp.SignUpEmail, TblNewsListSignUp.SignUpNews, TblNewsListSignUp.Dato FROM TblNewsLists INNER JOIN TblNewsListSignUp ON TblNewsLists.ListID = TblNewsListSignUp.ListID WHERE TblNewsListSignUp.ListID="&Request.form("goto")
Rs.open sql, Conn, 1, 3
TotalRecs = Rs.recordcount
'// First we will create a message object that will serve as a
'// template for the merge.
'// The merge fields are marked with %% in the front and in the
'// end.
'// Note how we use merge fields even in the addRecipient method
set msgTemplate = Server.CreateObject( "JMail.Message" )
msgTemplate.From = "navn@mail.dk"
msgTemplate.FromName = "Nyhedsbrev fra ...."
msgTemplate.AddRecipient "<<"&"%%SignUpEmail%%"&">>", "%%SignUpName%%"
msgTemplate.Subject = subject
msgTemplate.ContentType = "text/html"
'// Replace Carrige retur and Linefeed
Dim QUOTE, LT, GT
QUOTE = chr(34)
LT = chr(60)
GT = chr(62)
Dim strng
If INSTR(Request.Form("Message"),CHR(13)&CHR(10)) Then
strng = Replace(Request.Form("Message"),CHR(13)&CHR(10),"<BR>")
strng = Replace(strng,chr(34),"'")
ELSE
strng = Request.Form("Message")
End If
msgTemplate.Body = "<html><head><TITLE>Nyhedsbrev fra ....!</TITLE><BODY BGCOLOR=#FFFFFF>"
msgTemplate.Body = msgTemplate.Body &"<b>Til: " &"%%SignUpName%%" &" " &"%%SignUpCompany%%" &"</b><P>"
msgTemplate.Body = msgTemplate.Body &"<h3>" &"%%ListName%%" &"</h3><P>"
msgTemplate.Body = msgTemplate.Body & strng &"<P>"&"<P>"
msgTemplate.Body = msgTemplate.Body & "<HR noshade size=1>Ønsker du ikke længere at modtage disse nyheder, så gå..."
'// There, our message template is done. Next we create the mailmerge object.
set mMerge = Server.CreateObject( "JMail.MailMerge" )
'// Now, tell mailMerge to use the template we created earlier
mMerge.MailTemplate = msgTemplate
'// Okay lets do the merge. As we do an ADO resultset merge, we do not need to
'// specify each merge variable.
'// The RS is assumed to hold a ADO recordset.
rs.MoveFirst
do while Not rs.eof
mMerge.Item( "SignUpCompany" ) = rs("SignUpCompany")&" "
mMerge.Item( "SignUpName" ) = rs("SignUpName")&" "
mMerge.Item( "SignUpEmail" ) = rs("SignUpEmail")
mMerge.Item( "ListID" ) = rs("ListID")
'// When the merge variables are finished, we replace all mergeFields
'// in our template with the merge variables, using the expand() method.
'// expand() returns a Message object.
set msg = mMerge.Expand
'// As usual we turn on logging and silent mode to handle possible errors.
msg.Logging = true
msg.silent = true
if not msg.Send ( "smtp.mailserver.dk" ) then
Response.write msg.log
end if
rs.MoveNext
loop
%>
