<% if Request("Submit")<>"Submit" then %>

                   Name: 

               Address :

       Phone Number: 

                  E-mail: 

Requirements/Query:

 

<% else '---------------Mail Dim MyBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= Request("email") MyCDONTSMail.To= "marketing@belanis.com" MyCDONTSMail.Subject="Query from Moore Heights website" MyCDONTSMail.Body=""& "Name : " & Request("name") _ & "
" & "Address : " & Request("address") _ & "
" & "Phone No : " & Request("phone") _ & "
" & "Email Id : " & Request("email") _ & "
" & "Requirements/Query : " & Request("bodyText") _ & "" MyCDONTSMail.MailFormat = 0 MyCDONTSMail.BodyFormat = 0 MyCDONTSMail.Send set MyCDONTSMail=nothing '---------------Mail %>
<% end if %>