% dim myfile,myobj,value1,totImages,objImage,imgNo 'set myobj=server.CreateObject ("scripting.filesystemobject") 'set myfile = myobj.OpenTextFile("c:\inetpub\vhosts\sssmt.org.in\httpdocs\pages\Counter.txt") 'value1=myfile.readline 'myfile.close 'value1=value1+1 'set myfile = myobj.OpenTextFile("c:\inetpub\vhosts\sssmt.org.in\httpdocs\pages\Counter.txt",2) 'myfile.writeline(value1) 'myfile.close 'set myfile=nothing 'set myobj=nothing %>