<%
Dim rs, mail, subject, message, data_source, sql_select, no
no = 0
subject = Request.Form("subject")
message = Request.Form("testo")
message = message & vbcrlf & vbcrlf & "
INFO: Stai ricevendo questa mail perchè sei iscritto alla mailing list di
http://www.miosito.it
Se questo messaggio ti giunge in errore o non desideri ricevere più questo tipo di informazioni per favore clicca il collegamento qui sotto e cancella il tuo indirizzo dalla mailing list e non sarai piu' disturbato."
message = message & vbcrlf & "www.miosito.it/del.asp?email="
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mdb-database\mail.mdb")
If Len(message) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source
While Not rs.EOF
Set mail = Server.CreateObject("CDO.Message")
'Mail.MailFormat = html
mail.From = "www.miosito.it"
mail.To = rs("email")
mail.Subject = subject
mail.HtmlBody = message & rs("email")
mail.Send
Set mail = Nothing
Response.Write "Email sent to : " & rs("email") & "
"
no = no + 1
rs.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing
Else
Response.Redirect "admin.htm"
End If
%>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>