%@ 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
%>
Welcome!
You are Visitor Number |
<%= PageHits%> |