%'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
%>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Frank Bell 7-Step Accredited Instructors are qualified to help you with any horse issues that you may be having. All currently accredited instructors are listed on this page. We encourage you to contact them.Our accredited instructors are specialists in varying aspects of horsemanship. We encourage you to choose the instructor who understands your problem. Each instructor’s forte is listed below. Having spent years refining these skills, we offer telephone consultations at $35.00 per hour. At a pre-arranged time our instructor will call you to help you sort out your particular issue. Please handle the payment information at the beginning of the call. A credit card is the simplest way for all parties.
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Copyright 2000-2007 by Dances With Horses, Inc., P.O. Box 819, Rexburg, ID 83440, Phone & Fax: (800) 871-7635, E-Mail: frankbell@horsewhisperer.com |