%if request("Submit") <> "" then
var_name = request("name")
email = request("email")
var_sec_email= request("sec_email")
var_phone=request("phone")
var_fax= request("fax")
var_travel_datefrom=request("prop_travel_datefrom")
var_tavel_dateto=request("prop_travel_dateto")
var_type1=request("typ_of_shotgun")
var_type2=request("typ_of_jet")
var_type3=request("typ_of_rally")
var_type4=request("typ_of_prop4")
var_num_grp=request("no_grp")
var_num_child=request("no_child")
var_type_enq = request("type_enq")
var_prop_ref=request("prop_ref")
var_week_budg=request("week_budg")
var_dail_budg=request("dail_budg")
var_prop1=request("Prop_code1")
var_prop2=request("Prop_code2")
var_prop3=request("Prop_code3")
var_prop4=request("Prop_code4")
var_send1=request("send1")
var_send2=request("send2")
var_send3=request("send3")
var_quest=request("quest_request")
var_request=request("spl_request")
var_search_eng= request("search_engg")
var_search_eng_name = request("searc_eng_name")
var_web_site= request("web_site")
var_word_mouth = request("word_of")
var_prev_client = request("prev_client")
var_email_hear = request("e_mail")
var_aff_agency = request("aff_agency")
var_other_spec = request("other")
if var_search_eng <> "" then
if request("searc_eng_name") <> "" then
strmsgg="Search Engine Name: "&var_search_eng_name&"
"
end if
end if
'"Search Engine Name: "&var_search_eng_name&"
" &_
if var_web_site <> "" then
strmsg1= var_web_site&"
"
end if
if var_word_mouth <> "" then
strmsg2= var_word_mouth&"
"
end if
if var_prev_client <> "" then
strmsg3= var_prev_client&"
"
end if
if var_email_hear <> "" then
strmsg4= var_email_hear&"
"
end if
if var_aff_agency <> "" then
strmsg5= var_aff_agency&"
"
end if
if var_other_spec <> "" then
strmsg6= var_other_spec&"
"
end if
strmsg=strmsgg&strmsg1&strmsg2&strmsg3&strmsg4&strmsg5&strmsg6
msgg="Name: "&var_name&"
" &_
"Email: "&email&"
" &_
"Secondry Email : "&var_sec_email&"
" &_
"Phone: "&var_phone&"
" &_
"Fax: "&var_fax&"
" &_
"Proposed Travel Dates: "&var_travel_datefrom&" " &_
"to: "&var_tavel_dateto&"
" &_
"Type of property: "&var_num_infants&"
" &_
""&var_type1&"
" &_
""&var_type2&"
" &_
""&var_type3&"
" &_
""&var_type4&"
" &_
"No. of People in Group: "&" "&var_num_grp&"
" &_
"No. of Children under 12: "&var_num_child&"
" &_
"Type of Enquiry: "&var_type_enq&"
" &_
"Property Ref.: "&" "&var_prop_ref&"
" &_
"Weekly Budget: "&" "&var_week_budg&"
" &_
"Daily Budget: "&" "&var_dail_budg&"
" &_
"Properties: "&" "&var_prop1&"
" &_
""&" "&var_prop2&"
" &_
""&" "&var_prop3&"
" &_
""&" "&var_prop4&"
" &_
"Send:"&" "&" " &_
""&" "&var_send1&"
" &_
""&" "&var_send2&"
" &_
""&" "&var_send3&"
" &_
"Questions/Requests: "&" "&var_quest&"
" &_
"Special Requests: "&" "&var_request&"
" &_
"How did you hear about us?"&"
" &_
""&var_search_eng&"
" &_
""&" "&strmsg
'response.Write msgg
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.Subject = "Extreme - Enquiry Form"
Mailer.MailFormat = 0
Mailer.BodyFormat = 0
Mailer.To = "root@extreme-activities.com"
Mailer.To = "ramy@btinternet.com"
Mailer.From = email
Mailer.Body = msgg
Mailer.Send
set Mailer = nothing
mesg="Thank you! We will get in touch with you shortly."
end if
%>