Thank You

You have submitted the following information, we will get back to you soon.

<% For ix = 1 to Request.Form.Count fieldName = Request.Form.Key(ix) fieldValue = Request.Form.Item(ix) mailStr=mailStr & fieldName & " = " & fieldValue & vbcrlf dbStr=dbstr & "'" & fieldValue & "'," %> <%= fieldName %>-<%=fieldValue%>
<% Next %> <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request("name") Mailer.FromAddress = request("email") Mailer.RemoteHost = "127.0.0.1" Mailer.Qmessage = "true" Mailer.AddRecipient "info@dikshagreens.co.in", "cs@dikshagreens.co.in" Mailer.AddBcc "info@absinfotech.in" Mailer.Subject ="Feedback Form - Contact Us" Mailer.BodyText = mailStr if Mailer.SendMail then response.write "mail sent" else response.write "mail error" end if Set Mailer = Nothing %>