<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Expires = 0 Const forReading = 1, forWriting = 2, forAppending = 8 Dim fso, f, ts, count, ref, Happy, Friend, Other, Email, Order, Donate set fso = CreateObject("Scripting.FileSystemObject") ref = "data\Happy.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Happy = ts.ReadLine ts.Close ref = "data\Friend.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Friend = ts.ReadLine ts.Close ref = "data\Other.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Other = ts.ReadLine ts.Close ref = "data\Email.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Email = ts.ReadLine ts.Close ref = "data\Order.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Order = ts.ReadLine ts.Close ref = "data\Donate.txt" count = Server.Mappath(ref) set f = fso.GetFile(count) set ts = f.OpenAsTextStream(forReading, -2) Donate = ts.ReadLine ts.Close %> Fetch Thermal Pizza Bags - Success Counter
 
Home		  
 

 
   
Starting: 12/10/2002 8:35:00 PM  
Current: <%= Date() %> <%= Time() %>  
     
E-mails telling friends about the site: <%= Email %>

Visitors referred by friends who have already been here:		 <%= Friend %>

Visitors from Happy's marketing effort
(the bulk e-mail thing): 		<%= Happy %>

Hits from other sources (the 7 degree thing, search engines bookmarks, etc.):		 <%= Other %>
 
Number of orders: 		<%= Order %>    
 
$$ Contribution to charities:
<%= FormatCurrency(Order) %>