ENQUIRY FORM

<% if request("cmd")="add" then Dim Mail set Mail=server.createobject("CDO.Message") Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.vardhmanindustries.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="info@vardhmanindustries.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="ankur123" Mail.From = request("email") Mail.To= "info@vardhmanindustries.com" Mail.Subject = "Enquiry Details - vardhmanindustries.com" Mail.HTMLBody = "Dear Ankur,

" & request("uname") & " has sent the following details via Enquiry Form:

Phone : " & request("phone") & "
Query :
" & request("query") Mail.Configuration.Fields.Update Mail.Send set Mail=nothing response.Write("Your message has been sent successfully. One of our representatives would contact you soon") end if %>
Name : ">
Email : ">
Phone : ">
Query :