<%
	FilePath = Server.MapPath ("pagecount-aj.txt")
	Set ObjFile = CreateObject("Scripting.FileSystemObject")
	Set ObjStream = ObjFile.OpenTextFile (filepath,1)
	temp=ObjStream.ReadLine()+1
	ObjStream.Close
	Set ObjStream = ObjFile.OpenTextFile(FilePath,2)
	ObjStream.WriteLine(temp)
	ObjStream.Close
%>