 |
 |
 |
<%
if len(Request.Form)>0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
strFrom = request("fromName") & "<" & request("from") &">"
strUrl = request("url")
strTxt = request("Text") & VbcrLf & "--" & strUrl
objMail.From = strFrom
objMail.Body = strTxt
objMail.To = Request("e-mail")
objMail.Bcc = "fabrizio.piccini@gmail.com"
objMail.Subject = "Vedi questo sito"
objMail.Send
set objMail = nothing
Response.write "GRAZIE PER AVERCI SEGNALATO AD UN TUO AMICO" end if %> Segnala una pagina ad un amico
|
