<% name = request.form("name") oname = request.form("oname") desg = request.form("desg") addr = request.form("addr") phone = request.form("oname") fax = request.form("oname") email = request.form("email") url = request.form("url") city = request.form("city") state = request.form("state") country = request.form("country") details = request.form("details") '------Auto responder begins ----- Sub sendmail(fromwho, towho, subject, body) Dim mymail Set mymail = Server.CreateObject("CDONTS.Newmail") mymail.MailFormat = 0 mymail.BodyFormat = 0 mymail.From = fromwho mymail.To = towho mymail.Subject = subject mymail.Body = body mymail.Send Set mymail = Nothing End Sub sendmail "caplcss@bom3.vsnl.net.in", email, "Feedback on http://www.crystalautomation.com", "Dear "&name&",
This an Automatic Reply from www.crystalautomation.com to let you know that we have recieved your feedback. As soon as our Automated Systems have had a chance to Process your Request or Investigate and Answer your Enquiry, we'll send you a response.
Best Regards
Crystal Automation,
www.crystalautomation.com" sendmail email, "caplcss@bom3.vsnl.net.in", ""&name&" gives Feedback", "Dear Administrator,

The following are the Feedback details submitted :
NAME : "&name&"
ORGANIZATION NAME : "&oname&"
ADDRESS : "&addr&"
CITY : "&city&"
STATE : "&state&"
COUNTRY : "&country&"
EMAIL : "&email&"
URL : "&url&"
DETAILS : "&details&"

We have just received the Feedback from this Person.
Thank you
JIPL" '------Auto responder ends here ----- %>

 

Thanks for Posting Your Feedback
We will get back to You Soon......