%@LANGUAGE="VBSCRIPT"%> <% ' *** Visit Counter *** ' FELIXONE 2002 - SB by Felice Di Stefano - www.felixone.it Dim FX_count Dim FX_digit FX_digit = 6 Dim FX_dpath FX_dpath = Server.MapPath("FX_DataCounter") Dim FX_fpath FX_fpath = Server.MapPath("FX_DataCounter/counter.txt") set FX_fso = Server.CreateObject("Scripting.FileSystemObject") ' Check if directory and file exists, if not create it. If (Not FX_fso.fileExists(FX_fpath)) Then If (Not FX_fso.folderExists(FX_dpath)) Then FX_fso.CreateFolder(FX_dpath) End If Application.Lock() set FX_file = FX_fso.OpenTextFile(FX_fpath, 8, true) FX_file.write(0) FX_file.Close() Application.Unlock() End If ' Read file and update it once per session set FX_fobj = FX_fso.getfile(FX_fpath) set FX_file = FX_fobj.OpenAsTextStream(1,-2) FX_count = FX_file.Read(100) If (Session("FX_DataCounter") = "") Then Application.Lock() set FX_file = FX_fso.CreateTextFile(FX_fpath, 8, false) FX_file.write(FX_count+1) FX_file.Close() Application.Unlock() set FX_fso = nothing FX_count = FX_count+1 Session("FX_DataCounter") = FX_count End If ' Add leadings FX_numlength = Len(cStr(FX_count)) If (FX_numlength < FX_digit) Then FX_lead = cInt(FX_digit - FX_numlength) For i=1 To FX_lead FX_count = "0" & FX_count Next End If %>
![]() |
| Home |
| Parcel Maps |
| Aerial Photography |
| Rural Addressing |
| Geodetic Control |
| Lake Superior Shore |
| Inland Lakes |
| Bayfield County GIS |
| Links |
| Contacts |
| Copyright 2004: Bayfield County |
| Land Records Home |
|
|
Welcome
to the Bayfield County Land Records Department’s web page! The goal of
the Land Records Department is to compile and create land records,
(information with a geographical component), and to make this data
accessible to those needing this information.
Unlike the 17th century cartographers
indicted in Swift’s poem, it is our intent not
to fill these pages with superfluous compass roses
or ‘elephants’, |
|||
|
Scott Galetka |
|||
![]() |
715-373-6156 phone Open Monday through Friday |
||
|
|
|||
|
|
|
|