%'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
%>
|
|
|||||||||||||||
Gentle Solutions horse training clinics by Frank Bell improve horse and rider communications!
Escalate your natural horsemanship skills by a quantum leap when you attend one of Frank's concentrated teaching clinics. Participants will learn the skills for gentling horses and assuming mastery over training and horse riding skills which otherwise can take a lifetime. Frank Bell's clinics offer solutions for...
Are any of the above problems a problem you are having with your horse? If so, learn how you can solve these problems by attending a Frank Bell Gentle Solutions Natural Horsemanship Clinic! Learn More About Frank Bell Clinics Check Frank Bell's Schedule of Upcoming Clinincs and Events Feedback from some past clinic participants... " Frank Bell is a natural teacher. I came away from a recent 3-day Gentle Solutions Natural Horsemanship clinic with so many new tools in my belt that I'm absolutely amazed!" - Cathie Dayton, Writer and Horsewoman
" Just wanted to say 'thanks' again for the great intensive clinic in Colorado! Your patience, your simple, systematic approach, and your skill in speaking to the point made it the most interesting and enjoyable week I've spent around horses in ten years! The one-rein stop alone is a priceless tool to have on demand, whatever the horse I happen to be riding." - Eric Olds, Prescott, AZ
" I can't tell you how much we have benefited from your being here. We have so many people enthused and using what you taught us. Your seven steps are wonderful. Take and give is the foundation of so much. I've used it for many years, but integrated into your 7-Steps, it just works so well. I'd say the results have been really astounding. I feel re-born!" — Chris Cooper, Anchorage Farms, Bailey, CO
Read More Testimonials From Past Clinic Participants
|
|
|||||||||||||||
|
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 |