<%@ 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 %>
NISD Homepage
NISD Homepage
View our Diving Services and facilities
View the training we provide
NISD Technical Diving Hompage
Explore with NISD
Scuba Station Online Store
Sign Up to our newsletter
 We have completely redesigned our website!

 
 
Diving News
 Quick Links
Explore Night Diving with NISD every Monday! Check our Diving Schedule. Our weekly Dive Schedule
International Dive Sites Cleanup Day this Saturday!!!. [Full Story] NISD Technical Diving section
   
   
Copyright ©2002. National Institute for Scuba Diving