%
dim msg
msg = ""
if Request.QueryString("Send") = "Y" then
Dim MyCDONTSMail
Dim MsgBody
MsgBody = "First Name: " & request.form("firstname") & "
"
MsgBody = MsgBody & "Last Name: " & request.form("Lastname") & "
"
MsgBody = MsgBody & "Company: " & request.form("Company") & "
"
MsgBody = MsgBody & "Title: " & request.form("Title") & "
"
MsgBody = MsgBody & "Telephone: " & request.form("Telephone") & "
"
MsgBody = MsgBody &"Comment: " & request.form("comment") & "
"
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.BodyFormat = 0
MyCDONTSMail.MailFormat = 0
MyCDONTSMail.From = request.form("Email")
MyCDONTSMail.To = "iraqcosit@yahoo.com"
MyCDONTSMail.Subject = "Inquiry form "
MyCDONTSMail.Body = MsgBody
MyCDONTSMail.Send
Set MyCDONTSMail = Nothing
msg = "Thank you for submitting your inquiry"
end if
%>
|
|
||||||||||||||||||
.