%
function writetof(c_file)
dim f1,t1,file1,t2
application.lock
set f1=server.createobject("scripting.filesystemobject")
file1=server.mappath(c_file)
set t1=f1.opentextfile(file1,1,true)
if not t1.atendofstream then
writetof=clng(t1.readline)
end if
writetof=writetof+1
t1.close
set t1=f1.createtextfile(file1,true)
t1.writeline writetof
t1.close
application.unlock
end function
%><%
function change(c)
dim s1,i1,g1
s1=cstr(c)
for i=1 to len(s1)
g1=g1&""
next
change=g1
end function
%>