<%
If Request.Form("Name") <> "" Then
dim name,email,ph,addr,comment
name=Request.Form("Name")
email=Request.Form("EMail")
ph=Request.Form("Phone")
addr=Request.Form("Address")
comment=Request.Form("Comment")
Insqry="insert into lk_FEEDBACK(Name,Email,Phone,Address,Feedback) " &_
"values('"&name&"','"&email&"','"&ph&"','"&addr&"','"&comment&"')"
Set rs=db.execute(Insqry)
body = "USER FEEDBACK FROM TELESEEN.com ONLINE SUPERSTORE"
body = body & chr(10) & "The following is a User feedback from the teleseen.com website."
body = body & chr(10) & ""
body = body & chr(10) & "Name: " & Request.Form("Name")
body = body & chr(10) & "Email Address: " & Request.Form("EMail")
If Request.Form("Phone") <> "" Then
body = body & chr(10) & "Phone: " & Request.Form("Phone")
End If
If Request.Form("Address") <> "" Then
body = body & chr(10) & Request.Form("Address")
End If
body = body & chr(10) & "Comments: "
body = body & chr(10) & Request.Form("Comment")
db.execute("insert into Email values('"&Request.Form("EMail")&"')")
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = "UserFeedback@teleseen.com"
objMailer.To= "info@teleseen.com"
objMailer.Bcc = "kannanb@pulsevoice.com"
objMailer.Subject = "Online User Feedback"
objMailer.Body = body
'objMailer.Send
Set objMailer = Nothing
'EMail to the User:
body1 = "Hi " & Ucase(Request.Form("Name"))
body1 = body1 & chr(10) & ""
body1 = body1 & chr(10) & "Thanks for your Valuable comments on teleseen.com"
body1 = body1 & chr(10) & "We will address your query at the earliest."
body1 = body1 & chr(10) & "Please get in touch with us at our 24 Hour Dedicated"
body1 = body1 & chr(10) & "CUSTOMER HELPLINE at (+94)-11-273 73 73 for any information"
body1 = body1 & chr(10) & "on our products and services. Assuring you the best possible"
body1 = body1 & chr(10) & "service always."
body1 = body1 & chr(10) & ""
body1 = body1 & chr(10) & "With Warm Regards"
body1 = body1 & chr(10) & "teleseen MARKETING NETWORK"
Set objMailer1 = CreateObject("CDONTS.Newmail")
objMailer1.From = "info@teleseen.com"
objMailer1.To= Request.Form("EMail")
objMailer1.Subject = "Thanks " & UCase(Request.Form("Name"))
objMailer1.Body = body1
'objMailer1.Send
Set objMailer1 = Nothing
%>
<% End If %>
::-- Feedback --::
Esteemed
Surfer
We
thank you for the time and effort you have taken in browsing
the teleseen.com. We welcome all your queries / grievances
/ comments / suggestions on our products and services. kindly
fill the following form to register your feedback.
