<% 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.

Name :
Email Address :
Phone Number :
Address :
Your Feedback :
Please feel free to call us at our "DEDICATED 24 HOUR CUSTOMER HELPLINE" at (+94)- 11- 273 73 73 for any information on our products and services

 
 
 
 
 



purchase options | shopping guidelines | FAQ | feedback | contact us
about us | television marketing | online shopping | business opportunities

For Sales Queries call +94 11 273 73 73 or EMAIL
© 2003 Teleseen.com. All Rights Reserved website design templates