<% @language="VBSCRIPT" %>
<%
Dim strFileName,objFSO,strFilePath,objTextStream
Const ForReading=1,ForWriting=2,ForAppending=3
Const TristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
strFileName="/_private/counter/about.log"
set objFSO=server.createObject("Scripting.FileSystemObject")
strFilePath=server.MapPath(strFileName)
if objFSO.FileExists(strFilePath) Then
Set objTextStream=objFSO.OpenTextFile(strFilePath,ForReading,False,TristateUseDefault)
end if
Dim strContents
strContents=objTextStream.ReadAll
objTextStream.Close
set objTextStream=nothing
strContents=replace(strContents,vbcrlf,"")
strContents=strContents+1
Set objTextStream=objFSO.OpenTextFile(strFilePath,ForWriting,False,TristateUseDefault)
objTextStream.Write strContents
objTextStream.Close
%>
About the Academic Coach
