<%@ Language=VBScript %>
<% 'Option Explicit%>
<% %>
<%
response.redirect "default.asp"
%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("\") & "\PR_OES\counter\counter1.txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
County of Monterey
NOTE: Many of the documents on this website are in a Portable Document Format (.pdf file) and, therefore, require Adobe Acrobat Reader to view them
(learn more).
