%
dim msg
msg = ""
if Request.QueryString("Send") = "Y" then
Dim MyCDONTSMail
Dim MsgBody
Emails=request.form("Emails")
'response.write Email
'response.end
MsgBody = "First Name: " & request.form("firstname") & "
"
MsgBody = "Last Name: " & request.form("Lastname") & "
"
MsgBody = "Company: " & request.form("Company") & "
"
MsgBody = "Address: " & request.form("Address") & "
"
MsgBody = "Telephone: " & request.form("Telephone") & "
"
MsgBody = "Fax: " & request.form("Fax") & "
"
MsgBody = "Mobile: " & request.form("Mobile") & "
"
MsgBody = "Email: " & request.form("Email") & "
"
MsgBody = "Country: " & request.form("Country") & "
"
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.BodyFormat = 0
MyCDONTSMail.MailFormat = 0
MyCDONTSMail.From = request.form("Email")
MyCDONTSMail.To = Emails
MyCDONTSMail.Subject = "Inquiry form "
MyCDONTSMail.Body = MsgBody
MyCDONTSMail.Send
Set MyCDONTSMail = Nothing
'msg = "Thank you for submitting your inquiry"
response.write msg
end if
%>
Faouri - Contact Information
|
|
|
| |
|
|
|
 |
|
Inquiry Form
Profile Information
|
|
|
|
|
|
|
|
 |