Det är ju bara att göra en loop i asp samt läsa ut från db:n
Installera aspmail komponenten och testa följande kod.
<html>
<head>
<title>Skicka E-post</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'Öppna först databasen. skriv din egen kod här!
Set db = Session("database")
If Request.Form("action") = "Skicka brev" Then
subject= request("subject")
message= request("message")
sql = "" ' skriv din egen sql rad här
Set customer = db.Execute(sql)
Do Until customer.EOF
strBody2 =""
email = customer("email")
custname= customer("firstname") & " " & customer("lastname")
set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "smtp.dinserver.com"
Mailer.FromName = "NYHETSBREV FÖRETAGET"
Mailer.FromAddress = "info@företaget.se"
Mailer.AddRecipient custname , email
Mailer.Subject = subject
Mailer.CharSet = 2
Mailer.UseMSMailHeaders = false
Mailer.ContentType = "text/html"
strBody2 = vbNewLine
strBody2 = "\<html\>" & strBody2 & vbNewLine
strBody2 = strBody2 &"Nyhetsbrev" & vbNewLine & vbNewLine
strBody2 = strBody2 &"Hej " & custname & vbNewLine
strBody2 = strBody2 & message & vbNewLine
strBody2 = strBody2 & "\</html\>" & vbNewLine & vbNewLine
Mailer.BodyText = strBody2
Mailer.SendMail
customer.MoveNext
loop
end if
%>
<form name="nyhetsbrevv" method="post" action="nyhetsbrev.asp?action=skicka">
<table width="520" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="19" colspan="3" valign="top"> Ämne</td>
</tr>
<tr>
<td width="317" height="24" valign="top"> <input name="subject" type="text" size="40">
</td>
<td width="99"> </td>
<td width="189"> </td>
</tr>
<tr>
<td height="15" colspan="3"></td>
</tr>
<tr>
<td height="19" colspan="3" valign="top"> Meddelande</td>
</tr>
<tr>
<td colspan="3" valign="top"> <textarea name="message" cols="95" rows="30"></textarea>
</td>
</tr>
<tr>
<td height="24" colspan="2" valign="top"> </td>
<td align="right" valign="top"> <input type="submit" name="action" value="Skicka brev">
</td>
</tr>
<tr>
<td height="38"></td>
<td></td>
<td></td>
</tr>
</table>
</form>
</body>
</html>