<%'Vince's cool stuff%><% ' Horse Whisperer ' Affiliate ID tracking script ' Vince Withee - revisted 06/09/2005 ' store/get variables ' sitedomain = "horsewhisperer.com" ' uncomment this when going to production sitedomain = "cart32.com" ' delete this line when going to production cartdomain = "cart32.com" referrer = lcase(Request.ServerVariables("HTTP_REFERER")) IP = Request.ServerVariables("REMOTE_ADDR") affID = request("aid") ' make valid MySQL date m = CStr(Month(date)) d = CStr(Day(date)) y = CStr(Year(date)) if len(m) < 2 Then m = "0" & m if len(d) < 2 Then d = "0" & d newdate = y & "-" & m & "-" & d 'write info to affiliates db 'connect to db Set globaldb = Server.CreateObject("ADODB.Connection") globaldb.Open "Provider=MSDASQL.1;Extended Properties=""DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=horsewhisperer;SERVER=localhost;UID=horsewhisperer;PASSWORD=a8234ra;PORT=3306;OPTION=0;STMT=;""" set rs = Server.CreateObject("ADODB.RecordSet") ' Referrer doesn't come from site domains If InStr(referrer, sitedomain) = 0 Or InStr(referrer, cartdomain) = 0 Then sSQL = "INSERT INTO AffiliateOrders (affID, OrderNum, TotalSale,url, ip, date, time) VALUES ('" & affID & "', '', '', '" & referrer & "', '" & ip & "', '" & newdate & "', '" & time & "')" ' response.write sSQL & "

" & vbcrlf globaldb.execute sSQL End If // Delete old entries, but not every time Randomize x = CInt(rnd * 100) ' x = 50 If x = 50 then ' just a random number to help eliminate it running the delete query every time sSQL = "DELETE FROM AffiliateOrders WHERE ordernum = '' AND date < '" m = CStr(Month(date)) d = CStr(Day(date)) y = CStr(Year(date)) if len(m) < 2 Then m = "0" & m if len(d) < 2 Then d = "0" & d newdate = y & "-" & m & "-" & d ssQL = sSQL & newdate & "'" ' response.write sSQL & "

" & vbcrlf globaldb.execute sSQL End If %> Executive Development

Get Free E-Newsletters  |  Products  |  Site Search    

Frank Bell's Gentle Solution Revolution

Natural horsemanship clinics, horse training techniques and unique horse training products using Horsewhisperer Frank Bell's acclaimed Gentle Solutions. Frank's Safe and Simple techniques for training horses can achieve instant results - even with problem horses!

Making it Simple!   Making It Safe!   Get There Now!

   

Site Menu

 

 

 

<% page = Request.ServerVariables("SCRIPT_NAME") p = split(page, "/") CurrentPage = P(Ubound(p)) 'Response.write currentpage %>

<%if Currentpage="index.html" then%> Home Home
<%else%> Home Home
<%end if%>
<%if Currentpage="about_frank_bell.htm" then%> About Frank Bell About Frank Bell
<%else%> About Frank Bell About Frank Bell
<%end if%> <%if Currentpage="natural_horsemanship.htm" then%> Natural Horsemanship Natural Horsemanship
<%else%> Natural Horsemanship Natural Horsemanship
<%end if%> <%if Currentpage="philosophy.htm" then%> Horse Training Philosophy Horse Training Philosophy
<%else%> Horse Training Philosophy Horse Training Philosophy
<%end if%> <%if Currentpage="horse_training_methods.htm" then%> Horse Training Methods Horse Training Methods
<%else%> Horse Training Methods Horse Training Methods
<%end if%>
<%if Currentpage="horse_training_videos.htm" then%> Horse Training Videos Horse Training Videos
<%else%> Horse Training Videos Horse Training Videos
<%end if%> <%if Currentpage="equipment.htm" then%> Horse Training Equipment Horse Training Equipment
<%else%> Horse Training Equipment Horse Training Equipment
<%end if%> <%if Currentpage="horse_training_packages.htm" then%> Horse Training Packages Horse Training Packages
<%else%> Horse Training Packages Horse Training Packages
<%end if%>
<%if Currentpage="training_and_event_schedule.htm" then%> Clinic and Event Schedule Clinic and Event Schedule
<%else%> Clinic and Event Schedule Clinic and Event Schedule
<%end if%>
<%if Currentpage="clinics_and_training.htm" then%> About Clinics and Training About Clinics and Training
<%else%> About Clinics and Training About Clinics and Training
<%end if%> <%if Currentpage="demonstrations.htm" then%> Horse Shows and Expos Horse Shows and Expos
<%else%> Horse Shows and Expos Horse Shows and Expos
<%end if%> <%if Currentpage="executive.htm" then%> Executive Development Executive Development
<%else%> Executive Development Executive Development
<%end if%> <%if Currentpage="keynote_speaker.htm" then%> Keynote Speaking Keynote Speaking
<%else%> Keynote Speaking Keynote Speaking
<%end if%>
<%if Currentpage="certified_horse_trainers.htm" then%> Certified Horse Trainers Certified Horse Trainers
<%else%> Certified Horse Trainers Certified Horse Trainers
<%end if%> <%if Currentpage="horse_training_tips.htm" then%> Horse Training Tips Horse Training Tips
<%else%> Horse Training Tips Horse Training Tips
<%end if%> <%if Currentpage="horse_problems.htm" then%> Horse Problems Horse Problems
<%else%> Horse Problems Horse Problems
<%end if%> <%if Currentpage="working_wild_horses.html" then%> Working With Wild Horses Working With Wild Horses
<%else%> Working With Wild Horses Working With Wild Horses
<%end if%> <%if Currentpage="testimonials.htm" then%> Testimonials Testimonials
<%else%> Testimonials Testimonials
<%end if%>
<%if Currentpage="articles_by_frank_bell.htm" then%> Articles By Frank Bell Articles By Frank Bell
<%else%> Articles By Frank Bell Articles By Frank Bell
<%end if%> <%if Currentpage="newsletters.htm" then%> Newsletters Newsletters
<%else%> Newsletters Newsletters
<%end if%> <%if Currentpage="news_and_press.htm" then%> News and Press News and Press
<%else%> News and Press News and Press
<%end if%> <%if Currentpage="horse_links.htm" then%> Horse Links Horse Links
<%else%> Horse Links Horse Links
<%end if%>
<%if Currentpage="AffiliateProgram.asp" then%> Affiliate Program Affiliate Program
<%else%> Affiliate Program Affiliate Program
<%end if%> <%if Currentpage="charitable.html" then%> Charitable Fund Charitable Fund
<%else%> Charitable Fund Charitable Fund
<%end if%>
<%if Currentpage="contact_us.htm" then%> Contact Us Contact Us
<%else%> Contact Us Contact Us
<%end if%>

 

Executive Development

   

One of our newest projects is pairing wild horses with individuals as well as small groups of lay/business people.

The team building aspects of taming a cavy of wild horses is indescribable and a truly life changing experience. Individually, walking into a pen with a wild horse and walking out with a tame one is nothing short of miraculous and again a deep soul-nurturing event never to be replicated. The qualities that work so well with horses transfer directly into the corporate and management world. This challenge will highlight each person’s strengths and weaknesses. Traits like confidence, respect, patience, flexibility, humility, close observation, empathy, and trust will rise to the surface and take on a new meaning. Our team of trained psychologists are integral in the debriefing and in translating the long term benefits of this highly challenging real life interaction with actual wild, untouched horses.

We invite your interest in this exciting project.

Please contact Jean at Dances With Horse for more information: jean@horsewhisperer.com

   

Privacy Policy   |   Terms of Use

Copyright © 2000-2005 by Dances With Horses, Inc., P.O. Box 819, Rexburg, ID  83440, Ph: (800) 871-7635, Fax: (208) 356-7817, E-Mail: frankbell@horsewhisperer.com