<%
IF session("amministratore")<>true then
Response.Redirect "pag.asp"
End IF
%>
Newsletter
<%
operazione = Request.QueryString("tipo")
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
IF operazione = "invia" then
IF Request("oggetto") <> "" and Request("testo") <> "" then
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM database"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
destinatario=""
IF not RecSet.Eof then
Do until Recset.eof
destinatario = destinatario & trim(RecSet("mail")) & "; "
RecSet.Movenext
loop
Set emailMail = Server.createObject("CDO.Message")
Set emailConfig = Server.createObject ("CDO.Configuration")
With emailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.provider.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set emailMail.Configuration = emailConfig
emailMail.From = "info@mioind.com"
emailMail.To = destinatario
emailMail.Subject = Request.Form("oggetto")
emailMail.HTMLBody = Request.Form("testo")
emailMail.Send()
Set emailMail = Nothing
End If
RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing
%>
Messaggio inviati
correttamente!
<%
Else
%>
Compila tutti i campi!
<%
End IF
Else
%>
<%
End IF
Set Conn = Nothing
Set RecSet = Nothing
%>