%@ Language=VBScript %>
<%
phypath = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
slash = InStrRev(phypath, "\")
phypath = Left(phypath, slash)
slash = InStrRev(phypath, "\")
phypath2 = Left(phypath, slash - 1)
slash = InStrRev(phypath2, "\")
phypath2 = Left(phypath, slash)
hitsfilename = phypath2 & "data\hits1.txt"
iHitId=9
Dim a
a=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
Dim t
Dim fs, oldHnum, tempHits
if (iHitId <> 0) then
Set fs = CreateObject("Scripting.FileSystemObject")
Set oldHnum = fs.OpenTextFile(hitsfilename, 1)
dim total
total=oldHnum.ReadLine
if (total>0) then
For t=0 to total-1
a(t)=oldHnum.ReadLine
next
end if
oldHnum.Close
a(iHitId)=a(iHitId)+1
total=48
Set newHnum = fs.CreateTextFile(hitsfilename)
newHnum.WriteLine(total)
For t=0 to total-1
newHnum.WriteLine(a(t))
next
newHnum.close
end if
%>
A New Puppy!
We've Got a New Puppy!
|
|
The Mommy: Chantelle "Bristol" Cream
Owner: Gloria Miller
|
|
Here you'll find pictures of our new Golden Retriever puppy! We don't know which one she is yet - and it's too hard to tell them all apart in their earlier pictures. So here are pictures of all eight! You can see the daddy, Style, at this web site. Genevieve came home on Saturday, June 17th (see pictures from 8 weeks old).
The Puppies! (4 boys and 4 girls)
|
Stay tuned: More pictures of Genevieve as she grows up!
[Main Page]