<%
response_name=request.form("response_name")
response_company=request.form("response_company")
response_email=request.form("response_email")
response_phone=request.form("response_phone")
response_comments=request.form("response_comments")
isok=0
if response_name>"" and response_email>"" and len(response_phone)>6 then
isok=1
else
if session("FormResponse")="" then
session("FormResponse")="1"
else
xmessage="PLEASE VERIFY YOUR NAME, EMAIL, & PHONE #"
end if
end if
if isok=1 then
xcourses=""
c1=request.form("c1")
if c1="ON" then
xcourses=xcourses&"SmartLeader, "
end if
c2=request.form("c2")
if c2="ON" then
xcourses=xcourses&"SmartManager, "
end if
c3=request.form("c3")
if c3="ON" then
xcourses=xcourses&"Team Coaching, "
end if
c4=request.form("c4")
if c4="ON" then
xcourses=xcourses&"Bizcom, "
end if
c5=request.form("c5")
if c5="ON" then
xcourses=xcourses&"SmartPresenter, "
end if
c6=request.form("c6")
if c6="ON" then
xcourses=xcourses&"Interpersonal Skills, "
end if
c7=request.form("c7")
if c7="ON" then
xcourses=xcourses&"Personal Assessment, "
end if
c9=request.form("c9")
if c9="ON" then
xcourses=xcourses&" Hiring Intelligence, "
end if
c10=request.form("c10")
if c10="ON" then
xcourses=xcourses&" SmartSuccession, "
end if
if xcourses>"" then
xl=len(xcourses)
xcourses=left(xcourses,xl-2)
r1=request.form("r1")
xgift=""
select case r1
case "V1"
xgift="Find Focus"
case "V2"
xgift="Use Your Head"
case "V3"
xgift="Be Persuasive"
case "V4"
xgift="Succeed At Life"
case "V5"
xgift="Save Your Relationship"
case "V6"
xgift="Scientific Selling"
end select
xsubject="Website Response"
xbody=response_name&chr(13)&chr(10)&response_company&chr(13)&response_email
xbody=xbody&chr(13)&chr(10)&response_phone
xbody=xbody&chr(13)&chr(10)&response_comments
xbody=xbody&chr(13)&chr(10)&"= = = = = = = = = = "
xbody=xbody&chr(13)&chr(10)&xcourses
xbody=xbody&chr(13)&chr(10)&"Gift:"&xgift
'response.write(xbody)
Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.To= "paulw@witzsolutions.com"
'NewMail.To= "shawn.chambers@wps.on.ca"
NewMail.From= "paulw@witzsolutions.com"
NewMail.Subject = xsubject
NewMail.Body = xBody
'NewMail.Bodyformat=0
'NewMail.Mailformat=0
NewMail.Send
Set NewMail=Nothing
nextpage="reg_thankyou.asp"
response.redirect(nextpage)
end if
end if
%>
Management coaching canada Management training canada Leadership training canada
