<% if request("azione") = "ok" then ' INTESTAZIONI HTML strHTML = strHTML & "" & chr(13) & chr(10) strHTML = strHTML & "" & chr(13) & chr(10) strHTML = strHTML & "" & chr(13) & chr(10) strHTML = strHTML & "" & chr(13) & chr(10) strHTML = strHTML & "" & chr(13) & chr(10) ' CORPO DEL MESSAGGIO strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "
" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "" & chr(10) strHTML = strHTML & "
" & chr(10) strHTML = strHTML & "
.:: Segnalazione sito da " & request("nome") & "
Questo Ŕ il sito che ti segnalowww."& Request.ServerVariables("HTTP_HOST") &"
" & chr(10) ' TERMINE DEL MESSAGGIO strHTML = strHTML & "" & chr(13) & chr(10) strHTML = strHTML & "" & chr(13) & chr(10) 'response.Write(strHTML) 'response.End() Dim objMail, objConfig '//Crea l'oggetto email Set objMail = CreateObject("CDO.Message") '//Dimensiona l'oggetto configurazione Set objConfig = Server.CreateObject ("CDO.Configuration") '//Imposta le configurazioni With objConfig '//Server SMTP di uscita '//ATTENZIONE! Usare il proprio indirizzo di server email! '//' E' FONDAMENTALE per l'invio della email .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it" '//' Porta SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '//' Porta CDO .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '//' Timeout .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.Update End With '//' Assegna le configurazioni Set objMail.Configuration = objConfig '//' Assegna all'oggetto le proprietÓ necessarie objMail.From = request("email")' Mittente objMail.To = request("amico") 'objMail.Bcc = "info@agenziafutura.com" objMail.Subject = "Segnalazione sito!" objMail.HTMLBody = strHTML '//' Invia l'email objMail.Send() Set objMail = Nothing response.Redirect("/invia.asp?s=ok") end if %> Documento senza titolo
Email tuo amico
Tuo nome
Tue email
   
 
   
<%if request("s") = "ok" then%>SEGNALAZIONE INVIATA! <%end if%>