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%>
<%If Request.QueryString("Error")="SenderMail" Then Response.Write "" End If%> <%If Request.QueryString("Error")="spam" Then Response.Write "" End If%>
Sender's mail required
Incorrect anti-spam answer
Your name:
Your email:
Friend's name:
Friend's email:
Send this page:"><%Response.Write Request.ServerVariables("HTTP_REFERER")%>
Message:
Anti-spam - today is:
<%End If%>