<%
on error resume next
' Create a server object
set fso = createobject("scripting.filesystemobject")
' Target the text file to be opened
set act = fso.opentextfile(server.mappath("count.txt"))
' Read the value of the text document
' If the text document does not exist then the on error resume next
' will drop down to the next line
counter = clng(act.readline)
' Add one to the counter
counter = counter + 1
' Close the object
act.close
' Create a new text file on the server
Set act = fso.CreateTextFile(server.mappath("count.txt"), true)
' Write the current counter value to the text document
act.WriteLine(counter)
' Close the object
act.Close
' Write the counter to the browser as text
Response.Write counter
%>
Free Landscaping Workshop Agenda
Back to Workshop
Map to the London Grove Township Building
372 Rosehill Rd Suite 100
West Grove, PA 19390
Back to Workshop
New Garden Stormwater
New Garden Home
London Grove Township
Franklin Township
London Britian Township
White Clay Watershed
New Garden Riparian Buffers