nyhedsbrev + html
Jeg har det nyhedsbrev script, som kun sender tekst, nu vil jeg gerne pynte det med lidt html, så html-nyhedesbrevet skal se således ud http://www.kornumgaard.dk/nyhedsbrev/mit nyhedsbrev script ser således ud.:
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.Open "DBQ="&(Server.MapPath(".")) &" .\db\kornumgaard.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "mail.kornumgaard.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "kornumgaard@kornumgaard.dk"
JMail.Subject = "NYHEDSBREV FRA BØRNEHAVEN KORNUMGÅRD"
JMail.AddRecipient send("email")
JMail.Body = request("tekst")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
response.redirect("default.asp?emne=pic")
else
%>
hvem kan hjælpe mig !!
/Remo
