<% @ language=vbscript codepage=1254 %>
<![CDATA[<body>
<% set dn=server.createobject("scripting.filesystemobject")
set doku=dn.opentextfile(server.mappath("http://rengingozluk.com/sayac.txt"),1,false)
eskioy=doku.readline
yenioy=eskioy+1
set dyaz=dn.createtextfile(server.mappath("http://rengingozluk.com/sayac.txt"),true)
dyaz.writeline yenioy
'&&&&&&&&&&&&&&&& Sayıları ayrıştırma ve sırasıyla 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
%>
<!--#include file="http://rengingozluk.com/sayac.txt"-->
</body>]]>