<%
if request.form("name1")<>"" then
Dim name1, address, contactno, emailid, productname, quantity, discription
name=request.form("name1")
address=request.form("address")
contactno=request.form("contactno")
emailid=request.form("emailid")
productname=request.form("productname")
quantity=request.form("quantity")
discription=request.form("discription")
'create the mail object and send the details
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From = "noreply@arihantelectricalsindia.com"
NewMailObj.To = "info@arihantelectricalsindia.com"
NewMailObj.Subject = "New Request From Order Form."
NewMailObj.Body = "You Found Follwing Request From the Order Form name : " & name1 & _
" the Address was " & address & _
" the Contactno was " & contactno & _
" the Emailid was " & emailid & _
" the Product Name was " & productname & _
" the Quantity was " & quantity & _
" the Discription was " & discription & _
" Regards,
Support Team"
'you need to add the following lines FOR the mail to be sent in HTML format
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
'Close the email object and free up resources
Set NewMailObj = nothing
Response.write "The email was sent. Back"
Else
%>
<% End if %>
