% 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 %>

|
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! |
|