<%@ LANGUAGE=VBScript%> <% Option Explicit %> Daffodil Tissues

menutxt.jpg (8115 bytes)
You need a Java-capable web browser to see the applet.


earth2.jpg (17133 bytes) earth3.jpg (46950 bytes)
<% 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%>