%'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: Dangerous Ex Race Horse" ...he will strike out, rear up, kick out (at me/near me) and generally raise havoc..."Hi, I can't wait for you to come back to California. I live near the L.A. area, so I might have to wait awhile. I found out about your clinics to late to go to the ones you had this year. Anyway, I am trying to start a program that is similar to Safe Futures in San Francisco. They work with both troubled horses and troubled kids, to give both a second chance. I am trying to get it going in the Los Angeles area... So, my question is, I have always loved horses. I am still learning...I know a bit, but every horse is different! I am working with a retired racehorse right now. He is a 6 yr old gelding. I don't know if you have any advice for training old racers... He is spooky, we are working on it. Mostly my problem is this: He will walk nicely for most of the walk (just on lead line right now). When we get to a large open field, he is good on short line, but if I ask him to go away from me or if he is being lunged, he will strike out, rear up, kick out (at me/near me) and generally raise havoc. I know he is just trying to burn off some energy, but he has pulled the rope out of two peoples hands and gone galloping into traffic! SO far, no injury but...What do you suggest? He did it to me on a lead line(6ft). There was no warning. He was walking away from me, he tried to come in, I pushed him out, and then WHAMMO, he does the strike/buck/kick thing...Then he goes back to being moderately calm and nice. He doesn't do this at any other time... Just feeling good or? How do I discourage and reprimand for this behavior? Thanks for your time, I hope to have you come do a clinic when I get my facility up and moving... Melanie Roffol
|
|
|||||||
|
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 |