 |
 |
 |
 |
|||
 |
||||||
 |
||||||
 |
|
Charles River Development Group is a full service development and construction firm with a proven track record for successful projects of every size. Drawing on the significant construction expertise of its principal, Bo Strom, Charles River Development combines services in every area of commercial, industrial, retail, construction and development to produce a total project package based on specific client needs. | |
|||
 |
||||||
 |
||||||
 |
||||||
 |
 |
|||||
 |
||||||
 |
||||||
 |
||||||
 |
||||||
 |
||||||
|
Charles River Development Group, Inc. About Us
/ New
Construction / Real
Estate Development Copyright
© 2004 Charles River Development Group, Inc. <% Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'Response.Write(lngVisitorNumber) For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) Next %> |
||||||