<%
if request.ServerVariables("REQUEST_METHOD")="POST" then
namee=request.form("name")
mail=request.form("mail")
phone=request.form("phone")
mobile=request.form("mobile")
title=request.form("title")
address=request.form("address")
requeste=request.form("request")
price=request.form("price")
'body="
| Name : | " & namee& " |
| E-Mail | " & mail &" |
| phone Company | " & phone & " |
| Mobile | " & mobile &" |
| Title | "&title& " |
| Address Company | " &address& " |
| Request | " &requeste&" |
| Project price | " &price&" |
"
'response.write(body)
'response.end
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = request.form("mail")
objMail.To ="info@khalf-stationary.com , tam_hag@yahoo.com"
objMail.Subject = "This is the data"
objMail.Body = "
| Name : | " & namee& " |
| E-Mail | " & mail &" |
| phone Company | " & phone & " |
| Mobile | " & mobile &" |
| Title | "&title& " |
| Address Company | " &address& " |
| Request | " &requeste&" |
| Project price | " &price&" |
"
' In order to send the email in HTML format we have to set
' both MailFormat and BodyFormat equal to zero
objMail.MailFormat = 0
objMail.BodyFormat = 0
objmail.Importance= 2
objMail.Send
Set objMail = Nothing
response.redirect("contactform.asp")
end if
%>
:: professional supplyr ::
