<% function FullDate( MyYear, MyMonth, MyDay) FullDate = MyMonth & "/" & MyDay & "/" & MyYear end function Function InitCaps(s, firstOnly) 'if firstonly =1 will only cap the first word 'if firstonly = 0 will cap every word Dim i, c, lastC If firstOnly=1 Then s = UCase(Left(s, 1)) & lcase(Mid(s, 2)) Else For i = 1 to Len(s) c = Mid(s, i, 1) If i = 1 or lastC = " " Then s = Left(s, i - 1) & UCase(c) & lcase(Mid(s, i + 1)) End If lastC = c Next End If InitCaps = s End Function function NullToSpace(TestValue) if isnull(TestValue) or trim(TestValue) = "" then NullToSpace = " " 'NullToSpace = "-" else NullToSpace = TestValue end if end function Function IsChecked(iVariableValue,iElementValue) IsChecked = "" If CInt(iVariableValue) = CInt(iElementValue) Then IsChecked = " CHECKED" End If End Function Function FixApost(sCheckVar) FixApost = replace(sCheckVar, "'", "''") End Function Function LeftPadZeros(sChapter) if len(sChapter) < 2 then LeftPadZeros = string( 2 - len(sChapter), "0") & sChapter else LeftPadZeros = sChapter end if End Function Function NumberOfDots(sTemp) NumberOfDots = 0 MyTemp = sTemp do while instr(1, MyTemp, ".") > 0 MyTemp = mid(MyTemp, instr(1, MyTemp, ".") + 1) NumberOfDots = NumberOfDots + 1 loop end function function IsHeading(sTemp) 'looks to the first character after any numbers and ., if that char is - than ' IsHeading = True else IsHeading = False ' ie: 01.03-Heading returns True ' while 01.03 Heading return False IsHeading = false dim i Dim InHeading stemp = trim(stemp) for i = 1 to len(stemp) select case asc(mid(stemp,i,1)) Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, Asc(".") InHeading = True Case Asc("-") if InHeading = True then IsHeading = True exit for end if case else InHeading = False isHeading = False exit for end select next end function %> Big Dog Horse Stables
Big Dog Horse Stables
Come and Ride with the Big Dogs!

 

Welcome to Big Dog Stables!

Where we specialize in kids and ponies! We are located in the beautiful countryside of Oregon City. A nice, private facility located on 23 acres of equine paradise!

With a newly built 72x204 indoor ring and a 100x200 all weather outdoor ring it is also a rider's paradise! With plenty of pastures and trails near-by to stroll about, it is a very relaxing and peaceful atmosphere to ride in. Everyone at the barn is like one big family; easy and fun to talk to and a blast to ride with!

We have a variety of horses and ponies. And plenty of stalls to accommodate all of them! Come check out our brand new barn; private tack room, hot and cold water wash rack, and grooming stalls!