nyhedsbrev sendt til database
Jeg har dette lille nyhedsbrev, som sendes i Jmail. Jeg vil gerne have koblet en lille funktion på sådan at nyhedsbrevet også gemmes i min database, samtidigt at den bliver sendt ud.hvem kan hjælpe.
koden til mit nyhedsbrev.asp
<!-- #include file="databaseforbindelse.asp"-->
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
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(".")) &" .\xx\xx.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
tekst = "<html><body><center><table border='1' width='650' cellpadding='0' cellspacing='0'><tr><td><img border='0' src='http://www.kornumgaard.dk/images/top.gif' width='650' height='90'></td></tr><tr><td bgcolor='#FFFFCC'>"
tekst = tekst + request.form("tekst")
tekst = tekst + "</td></tr><tr><td bgcolor='#FFFFCC' align='center'><a href='http://www.kornumgaard.dk/afmeld.asp?mail="+send("email")+"'>Afmeld nyhedsbrev? Klik her!</a></td></tr></table></center></body></html>"
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
' This is my local SMTP server
JMail.ServerAddress = "massmail.scannet.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 = 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"), 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
%>
<CENTER>
<TABLE BORDER="0">
<form action="nyhedsbrev.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst: </TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT"> <input type="submit" value="-- SEND --"> </TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
