%@ LANGUAGE = VBScript %>
<%
Response.Expires = 0
%>
<%
'Set fs = CreateObject("Scripting.FileSystemObject")
'filename=server.mappath("counter.txt")
'Set readfile=fs.OpenTextFile(filename,1,False)
' count=readfile.readline
'readfile.close
'set readfile=nothing
'if (Session("visited") = null) or (Session("visited") = "") then
' Session("visited") = 1
'count = count + 1
' Set writefile = fs.OpenTextFile(filename, 2, True)
'writefile.writeline(count)
'writefile.Close
'set writefile=nothing
'set fs=nothing
'end if
%>
|
|
|
|
|
|
|
|
 |
|
Copyright
©2002. National Institute for Scuba Diving |
|
|