<% Const Filename = "../database/counter.txt" ' file to read Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 ' Create a filesystem object Dim FSO set FSO = server.createObject("Scripting.FileSystemObject") ' Map the logical path to the physical system path Dim Filepath Filepath = Server.MapPath(Filename) if FSO.FileExists(Filepath) Then ' Get a handle to the file Dim file set file = FSO.GetFile(Filepath) ' Get some info about the file Dim FileSize FileSize = file.Size ' Open the file Dim TextStream Set TextStream = file.OpenAsTextStream(ForReading, _ TristateUseDefault) ' Read the file line by line Do While Not TextStream.AtEndOfStream Dim Line Line = int(TextStream.readline) ' Do something with "Line" Line = Line & vbCRLF Loop Set TextStream = nothing Else Response.Write "

File " & Filename &_ " does not exist

" End If Set FSO = nothing %> <% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateTextFile(filepath,true) f.write(line + 1) f.close set f=nothing set fs=nothing %>
In today's world, providing safe storage for your firearms has become a necessary investment. A SECURALL safe will not only give you unmatched performance, but peace of mind as well. The SECURALL name has stood for quality for over 50 years, and that quality goes into every product that leaves our factory floor. Wheather you are storing firearms, valuables, or important documents, you can trust SECURALL!
Available in three different styles:
Stateman Safe Series 4000
Sentinal Safe Series 3000

Model 3800
High-Security Safe Series 2000

    Model 4800

Model 2401