|
<%
URL = Request.QueryString("URL")
If Len(URL) = 0 Then URL = "http://www.villagetandoori.co.uk" ' The default URL
If Len(Request.Form("SendersEmail")) > 0 Then
Dim objMail,FriendEmail,I
sBody = "Village Tandoori Recommendation from " & URL & " By " & Request.Form("SendersName") & " " & Request.Form("SendersEmail") & vbCrLf & vbCrLf & Request.Form("Feedback") & vbCrLf
I=0
Do While True
FriendEmail = Request.Form("FriendEmail" & I)
If Len(FriendEmail) = 0 Then
Exit Do
Else
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("SendersEmail")
objMail.Subject = "Village Tandoori Recommended By " & Request.Form("SendersName")
objMail.Importance=1
objMail.Body = sBody
objMail.To = FriendEmail
objMail.Send()
End If
I=I+1
Loop
Set objMail = Nothing
SenderName = Request.Form("SendersName")
Response.write "Thank you "& SenderName &" for telling your friends! Be sure to keep checking our website for Special Offers and to enter our Competitions!!
"
Response.write "Click here to return to the home page"
Else
%>
<% End If %>
|