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("
") %>