|
|
|
|
|
My name is David Hart. Welcome
to my web page. Feel free to take a look around and please
don't forget to post a comment...
|
Music Picks
The Silence
Sweet Sweet Summer
Busy Day On Beach
Movies...
Aug 1, 2005 - Went to see
Stealth
while on Summer vacation.
Go to Activities Page......
Events ...
May 10, 2005 - Saw the
Boston Red Sox play the Oakland Athletics at Fenway Park.
Go to Activities Page......
Concerts ...
Aug 6, 2005 - Went to see
Cold Play in concert at the Tweeter
Center in Mansfield, MA.
Go to Activities Page...... |
Recent Photos
Sunday July 4,
2004 - 4th of July fireworks in Boston |
<%@ Language="VBScript" %>
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("lakeutopia.asp"))
Response.Write("Last modified " & FormatDateTime(f.DateLastModified,1)) & ""
set f=nothing
set fs=nothing
%>
<%
function mstrGetURL()
mstrGetURL= Replace(Right(Request.serverVariables("URL"),Len(Request.serverVariables("URL"))-1), "/", ".")
End function
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Dim myfilename
myfilename = "e:\Data\Counters\"&mstrGetURL()&".txt"
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
If (NOT fsoObject.FileExists(myfilename)) Then
'Create file if it doesn't exist
set filObject = fsoObject.CreateTextFile(myfilename)
filObject.Write "0"
set filObject = Nothing
End IF
Set filObject = fsoObject.GetFile(myfilename)
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = fsoObject.CreateTextFile(myfilename)
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
Response.Write("Visitor Number ")
Response.Write(lngVisitorNumber)
Response.Write("")
%>
| |
|