%'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
%>
|
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
%>
|
|
|||||||||||
Over the years Frank Bell has appeared as keynote speaker at a variety of events and has conducted many demonstrations for fund raising events and charitable organizations. If you or your organization wishes to consider having Frank Bell help you with your project, we're happy to accommodate you.Frank Bell Demonstrations" Wow, fantastic, wonderful, well-organized, professional, educational, exciting, positive, great for the natural horsemanship movement, long overdue..." and many more comments such as these are heard about Frank Bells demonstrations. Both horsemen and non-horsemen alike attend his demonstrations and are entranced watching him work with horses he has never seen. In minutes Frank transforms them from unruly to calm. Frank is often referred to as the " gentlest of the trainers." Typically he works his magic over 3-4 hours with 3-5 problem horses ranging from a variety of problems from extreme nervousness, foot & ear problems, aggressiveness issues, bucking, rearing, kicking, trailer loading, worming, spraying, leading & ground manners, to starting a horse. Frank is an educator as well as an entertainer. He is considered a master problem solver and achieves amazing results in the shortest amount of time. Sharing his revolutionary 7-Step Safety System with the audience, he will enlighten crowds to a new and highly successful method of relating to these magnificent creatures. Fundraiser DemonstrationsSince 1997, Frank and his company Dances With Horses have earned in excess of $250,000 for NARHA and equine related non-profits. Frank provides his time for these benefits at no cost to the sponsoring charity. Proceeds are divided equitably after agreed costs are covered. If you are interested in hosting a Fundraiser Demonstration, please review Organizing a Fundraiser and contact our office. Horse Show DemonstrationsA gifted speaker with a strong message, Frank has been a headliner at shows throughout the country. He works in 1 to 1 hr. formats depending on the show request. Franks ability to deal with a multitude of horse problems is legendary. Franks 7-Step Safety System is being implemented by horsemen and seasoned trainers worldwide and is the core of his demonstrations. For information on retaining Frank for your upcoming equine demonstration, please contact: Chris Mitchell (or Heather Mitchell) Frank Bell Events Coordinator Email: chris@christopher-mitchell.com Phone: 334-297-4894
|
|
|||||||||||
|
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 |