<% 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 Feedback from " & URL & " By " & Request.Form("SendersName") & Request.Form("SendersEmail") & vbCrLf & vbCrLf & " -- Form Details -- " & vbCrLf & vbCrLf & "Product Info:" & vbCrLf & vbCrLf & "For Products: " & Request.Form("ProductType") & vbCrLf & vbCrLf & "Submitters Details:" & vbCrLf & vbCrLf & "Name: " & Request.Form("SendersName") & vbCrLf & "Email Address: " & Request.Form("SendersEmail") & vbCrLf & "Feedback: " & vbCrLf & vbCrLf & Request.Form("Feedback") & vbCrLf & vbCrLf & "END OF FORM" & vbCrLf & 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 = "VT Feedback From " & 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 your request, we will try to process your request as soon as possible

<% End If %>