Her er et færdigt script - du skifter blot indholdet i [] ud med dine egne parametre:
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</head>
<BODY>
<br>
<table width=\"570\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td>
<h1>Skriv nyhedsbrev:<br></h1>
</td>
</tr>
</table>
<%
if request(\"mode\") = \"send\" then
mailertype = 1
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\db.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\")
JMail.ServerAddress = \"[din mailserver]\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"[modtager, email]\"
JMail.Subject = request(\"header\") [fra formular]
JMail.AddRecipient send(\"email\")[udtræk fra db]
JMail.Body = request(\"tekst\") [fra formular]
JMail.Priority = 3
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
importance = 1
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 \"E-mail er sendt til : \"& send(\"email\") &\"<BR>\"
send.movenext
loop
conn.close
response.write \"<br><br><a HREF=\'logud.asp\'>Log ud</a>\"
else %>
<TABLE BORDER=\"0\" width=\"75%\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
<TR>
<TD ALIGN=\"LEFT\">
Overskrift:
</TD>
<TD ALIGN=\"LEFT\">
<INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"35\">
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\" VALIGN=\"TOP\">
Tekst:
</TD>
<TD ALIGN=\"LEFT\">
<TEXTAREA COLS=\"30\" ROWS=\"8\" NAME=\"tekst\"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\">
</TD>
<TD ALIGN=\"CENTER\">
<input type=\"submit\" value=\"-- SEND --\">
</TD>
</TR>
</FORM>
</TABLE>
<% end if %>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
