<%'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 %> Contact Us

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%>

 

Contact Us

Click NOW to download a large version of this image.

Frank Bell

 

 

 

If you need to contact Frank Bell and the Dances With Horses organization for any reason, we're always available to help you. To inquire about Frank appearing in your equine event, or becoming a Frank Bell Accredited Instructor, or to ask about Dances With Horses products and services, scroll down to find the appropriate Dances with Horses Department Coordinator to help with your specific needs. To inquire about hosting a Frank Bell clinic of your own, contact Frank Bell. Here's our contact information:

Dances With Horses, Inc.
PO Box 819, Rexburg, ID 83440
Phone & Fax:  1-800-871-7635 (USA
)
Email frankbell@horsewhisperer.com

The Dances With Horses Team


Christopher Mitchell
Events Coordinator

To arrange for Frank Bell to appear at your symposium or equine event, contact Chris or Heather Mitchell

Email: chris@christopher-mitchell.com

Phone: 334-297-4894


Jean Baird
Sales Coordinator

For  more information or questions regarding Frank Bell Dances with Horses products or orders, contact Jean Baird

Email: jean@horsewhisperer.com

Phone: 800-871-7635

 



Frank Bell Accredited Instructors

For a complete listing ofFrank Bell Accredited Instructors,

click here


 

Sign-up ForFree Natural Horsemanship Newsletters, or

Frank Bell Clinics

Sign-up  to  receive  the free Dances With Horses Newsletter for the latest Natural Horsemanship news, information, and notifications of Frank Bell events in your area! You may also use the link below  to sign-up for any currently  scheduled  clinics...

Click Here To Sign-Up Today!

Privacy Policy     |     Terms of Use

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