<% set dn=server.createobject("scripting.filesystemobject") set doku=dn.opentextfile(server.mappath("sayac.txt"),1,false) eskioy=doku.readline yenioy=eskioy+1 set dyaz=dn.createtextfile(server.mappath("sayac.txt"),true) dyaz.writeline yenioy '&&&&&&&&&&&&&&&& Sayylary ayry?tyrma ve syrasyyla yazma bölümü %%%%%%%%%%%%%%%%% say_uz=len(yenioy) for i=1 to say_uz bit=mid(yenioy,i,1) sr=server.mappath("sayac/sayac") next doku.close set dn=nothing %>