<%
Dim fs, openfile, returnval,path, strlen, x
path = counterpath
set fs = CreateObject("Scripting.FileSystemObject")
set openfile = fs.OpenTextFile(path,1)
returnval = openfile.ReadLine
returnval = CLng(returnval)
returnval = returnval + 1
returnval = CStr(returnval)
x = 1
strlen = Len(returnval)
Do Until x > strlen
if x > strlen then
response.write vbCr
End If
x = x + 1
Loop
openfile.Close
set openfile = fs.OpenTextFile(path,2)
openfile.WriteLine(returnval)
openfile.Close%>
