<%'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 %> Horse Training Products

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

 

Frank Bell's Natural Horsemanship Training Products

Years of refinement have  helped Frank assemble his highly effective product line designed specifically for training horses the Gentle Solutions way! Refreshingly simple, these quality products are exactly the right tools for clear, concise communication between the natural horsemanship trainer and the horse.  Our  products are carefully designed to provide  all of the information and equipment you need to Get There Now!

  Frank Bell's Audio, Video  &   Book Collection

Click NOW to shop for any of the Gentle Solutions natural horsemanship videos.

Frank Bell's comprehensive Audio, Video & Book Collection covering a wide variety of horse and rider training techniques based on the Gentle Solutions and the 7-Step Safety System.

 

 

View The Complete  Audio & Video Library...

 

  Frank Bell's Training Equipment

Click NOW to shop for any of the Gentle Solutions natural horsemanship training equipment.

 

Frank Bell's  " Mastery Tack Series" Training Equipment includes special halters, leads, harnesses and more made to Frank's specifications and designed to enhance the Frank Bell natural horsemanship training methods!

View The Full Training Equipment Line-Up...

 

  Frank Bell's Special  Training Packages

Click NOW to shop for Frank Bell's package deals on all natural horsemanship products.

 

Frank Bell's Special Training Packages save you money on popular Audio/Video and Training Equipment combinations starting from the basic essentials to the complete Gentle Solutions horse training system.

 

View The Full  Collection Of Special Training Packages...

 

  Frank Bell's Other Favorite Equine Products

Click NOW to learn more about Synergist Saddles

 

Frank is frequently asked about what his favorite equine products are so we've added them to our growing list of fine quality natural horsemanship training tools and horse care products. Synergist Saddles, Leather Therapy and more...

 

 

View Some Of Frank's Other Favorite Equine Products...

 

 

 

 

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