%
mName = Request.Form("name")
mCompany = Request.Form("company")
mTitle = Request.Form("title")
mEmail = Request.Form("email") & ""
mDetail = Request.Form("abstract")
mTargetgeneral = Request.Form("target")
if( mEmail <> "" ) then
mBody = ""
mBody = mBody & "Name: " & mName
mBody = mBody & "
Company: " & mCompany
mBody = mBody & "
Title: " & mTitle
mBody = mBody & "
Email: " & mEmail
mBody = mBody & "
Target Audience: " & mTargetgeneral
mBody = mBody & "
Details
" & mDetail
mBody = mBody & ""
mSubject = "VP AutoMail: Call For Speakers Form"
mTo = "amcteer@activplant.com;tony@next.on.ca"
'Send the mail
set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = "vpautomail@activplant.com"
mailObj.To = mTo
mailObj.Subject = mSubject
mailObj.Body = mBody
mailObj.Send
set mailObj = nothing
end if
%>
2006 Summit Highlights
|