Tell a friend
<%If Request.QueryString("MailSent") = "Yes" Then
Set myMail=CreateObject("CDO.Message")
Dim MailTo, Name, Sender, SenderMail, Page
MailTo = Request.Form("Email")
If Request.Form("Name") ="" Then Name="A friend" Else Name = Request.Form("Name") End If
If Request.Form("Sender") ="" Then Sender="A Friend" Else Sender = Request.Form("Sender") End If
SenderMail = Request.Form("SenderMail")
Page = Request.Form("message")
Referrer = Request.Form("referrer")
If SenderMail = "" Then Response.Redirect "tellafriend.asp?Error=SenderMail" End If
If Request.Form("antispam")<> WeekdayName(weekday(date)) Then Response.Redirect "tellafriend.asp?Error=spam" End If
myMail.Subject="Sea Dreamer"
myMail.From= Chr(34) &SenderMail& Chr(34)
myMail.To=Chr(34) &MailTo& Chr(34)
myMail.Bcc="mail@sea-dreamer.com"
myMail.TextBody= Name & " thought that you would be interested in this web page. " & referrer & " " & Page
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.blueyonder.co.uk"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
response.write "
Thank you
Your message has been sent."
%>
<%Else%>