<%
Application.Lock
application("visitors") = application("visitors") + 1
Application.UnLock
' save visitors
Dim fs, fname
set fs = server.CreateObject("Scripting.FileSystemObject")
' ***** -----> ------------- >c:/inetpub/wwwroot/MavrixWeb/BigSmoke/visit.txt
set fname = fs.CreateTextFile("visit.txt",true, false)
fname.writeline application("visitors")
fname.Close
set fs = nothing
set fname = nothing
%>
WELCOME TO BIG SMOKE RIDERS
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
<H2 align="center">Get a new browser...NOW</h2>
</body>
]]>