Her er hele asp siten:
<!--#include file=\"loggedin.asp\"-->
<!--#include file=\"dsn.asp\"-->
<!--#include file=\"body.asp\"-->
<%
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Set RSBODY = Server.CreateObject(\"ADODB.Recordset\")
SQL2 = \"SELECT * from Settings\"
RSBODY.Open SQL2, Conn, 1, 3
SQL = \"SELECT Email FROM List ORDER BY ID\"
RS.open SQL, conn
subject = Request(\"Subject\")
body = Request(\"Body\")
Dim mailObj
Dim Format
If (Request(\"Format\") = \"Text\") Then
Format = 1
Else
Format = 0
End If
Do While Not RS.eof
set mailObj = Server.CreateObject(\"CDONTS.NewMail\")
mailObj.BodyFormat = Format
mailObj.MailFormat = Format
mailObj.From = RSBODY(\"From_Email\")
mailObj.To = RS(\"Email\")
mailObj.Subject = subject
mailObj.Body = body
LINIE33->mailObj.Send<-LINIE33
RS.movenext
Loop
IF (Request(\"Archive\") = \"on\") Then
Set RSARCHIVE = Server.CreateObject(\"ADODB.Recordset\")
RSARCHIVE.Open \"Archive\", Conn, 2, 2
RSARCHIVE.addnew
RSARCHIVE(\"Subject\") = subject
RSARCHIVE(\"Body\") = body
RSARCHIVE(\"Format\") = request(\"Format\")
RSARCHIVE(\"Date\") = Date
RSARCHIVE.update
End If
%>
<html>
<head>
<title><%=RSBODY(\"List_Name\")%></title>
<script language=\"javascript\">
function open_Code_Heading_Text() {
popupWin = window.open(\'help.asp?ID=Code_Heading_Text\', \'remote\', \'width=300,height=200\')
}
function open_Code_Heading_BG() {
popupWin = window.open(\'help.asp?ID=Code_Heading_BG\', \'remote\', \'width=300,height=200\')
}
function open_Code_Body_Text() {
popupWin = window.open(\'help.asp?ID=Code_Body_Text\', \'remote\', \'width=300,height=200\')
}
function open_Code_Body_BG() {
popupWin = window.open(\'help.asp?ID=Code_Body_BG\', \'remote\', \'width=300,height=200\')
}
function open_Code_Border() {
popupWin = window.open(\'help.asp?ID=Code_Border\', \'remote\', \'width=300,height=200\')
}
</script>
<!--#include file=\"style.asp\"-->
</head>
<body bgcolor=\"#F0F0F0\" vlink=\"#48576C\" link=\"#48576C\" alink=\"#000000\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"650\" align=\"center\">
<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td colspan=\"3\" bgcolor=\"#52637B\" height=\"35\" width=\"648\"><font face=\"Verdana\" size=\"5\" color=\"#FFCC00\"><b> <%=RSBODY(\"List_Name\")%></b></font></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td bgcolor=\"#8199DA\" valign=\"top\" width=\"130\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"130\">
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"main.asp\"><font face=\"Verdana\" size=\"1\"><b> Home</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"send.asp\"><font face=\"Verdana\" size=\"1\"><b> Send Mailing</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"subscribers.asp\"><font face=\"Verdana\" size=\"1\"><b> View/Edit Subscribers</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"code.asp\"><font face=\"Verdana\" size=\"1\"><b> Generate HTML</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"archive.asp\"><font face=\"Verdana\" size=\"1\"><b> Mail Archive</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"settings.asp\"><font face=\"Verdana\" size=\"1\"><b> Settings</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"
http://scripts.ocean12tech.com/asp/mailinglist/support/\"><font face=\"Verdana\" size=\"1\"><b> Support</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"
http://scripts.ocean12tech.com/asp/mailinglist/docs/\"><font face=\"Verdana\" size=\"1\"><b> Documentation</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"logout.asp\"><font face=\"Verdana\" size=\"1\"><b> Log Out</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>
</td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td bgcolor=\"#FFFFFF\" width=\"100%\" valign=\"top\" height=\"200\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td bgcolor=\"#B0C4DE\" height=\"15\" width=\"100%\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><b> Send Mailing</b></font></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\" width=\"100%\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>
<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\"><font face=\"Verdana\" size=\"1\">
The Mailing has been sent.<br><br>
<a href=\"main.asp\"><< <b>Return</b></a>
</font></td>
</tr>
</table></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<!-- Begin Ocean12 Technologies Copyright Notice -->
<!-- THIS CODE MUST NOT BE CHANGED -->
<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td colspan=\"3\" align=\"center\" bgcolor=\"#B0C4DE\" height=\"30\"><font face=\"Verdana\" size=\"1\">Maintained with the <a href=\"
http://scripts.ocean12tech.com\">Ocean<i>12</i> ASP Mailing List Manager</a> v1.02<br>©2001 <a href=\"
http://scripts.ocean12tech.com\">Ocean<i>12</i> Technologies</a>, all rights reserved.</font></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<!-- End Ocean12 Technologies Copyright Notice -->
<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>
</body>
</html>
<!--#include file=\"dsn2.asp\"-->