%'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
%>
|
|
|||||||
Ex Race Horses: Saved Ex Race Horse" I had never experienced a more flighty, off the wall horse..."Hi Frank, I recently met you at the King of Prussia trade show in PA. I talked with you briefly about a flighty, ex-racehorse I purchased and the success I had with him after purchasing your video, How to retrain an ex-racehorse. I will gladly write this testimonial as I am always looking for new and better ways to communicate with my horses... I have been riding for 31 years and have always had rough horses to ride basically because we couldn't afford anything better. I had never experienced a more flighty, off the wall horse as I did when I took a chance last year with an ex-racer. I purchased him out of the pasture off a 1 year lay up. A cowboy was just lightly walking trails with him when I fell in love with his beauty. I bought him and within 2 weeks of having him at the barn, he took off with me, not stopping until we ran into an orange tree, freaked out at anyone (horse and rider) coming within 3 feet of him, and rearing over backwards with me. Well, I just about had it when I went on line and purchased your video. I couldn't very well sell him to someone and feel good about myself and I could never choose the other option... So I began the Frank Bell method. In 6 mo. I got him calmly walk, trot and cantering both directions and able to tolerate horses coming within 6ft. of him. I sold him to a girl who emailed me a couple of months later saying after 2 rather hectic attempts at schooling shows, her 3rd show out of 23 horses in the ring, he got a 2nd and 3rd under saddle. I'd say that is definitely great!! Thank you Frank. Sincerely, Lisa |
|
|||||||
|
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 |