<% LastSlash = instrRev(Server.MapPath(Request.ServerVariables("PATH_INFO")),"\") ThisFolder = left(Server.MapPath(Request.ServerVariables("PATH_INFO")),LastSlash) Response.Write ThisFolder Dim objFileScripting Set objFileScripting = Server.CreateObject("Scripting.FileSystemObject") Dim objTextFile set objTextFile=objFileScripting.OpenTextFile(ThisFolder + "VisitCount.txt",1) CurrentCount = objTextFile.ReadLine objTextFile.Close set objTextFile=objFileScripting.OpenTextFile(ThisFolder + "VisitCount.txt",2) objTextFile.WriteLine CurrentCount + 1 objTextFile.Close Response.Write CurrentCount + 1 %>

R e f e r e n c e s
a n d
L i n k s P o r t f o l i o s T e s t i m o n i a l A l l P h a s e N e w s Our Mission