<%@ LANGUAGE=VBScript%>
<% Option Explicit %>
Daffodil Tissues
<%
dim FileStreamObject
dim TextStream
dim PageHits
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set TextStream = FileStreamObject.OpenTextFile( Server.MapPath ("upload/daffhits.txt"),1)
PageHits = TextStream.Readline
PageHits = PageHits + 1
Set TextStream = FileStreamObject.OpenTextFile( Server.MapPath ("upload/daffhits.txt"),2)
TextStream.Writeline(PageHits)
%>
