<%Response.buffer="True"
Set MFO=Server.CreateObject("Scripting.FileSystemObject")
Set IBF=MFO.OpenTextFile(Session("root")+"Kelk\Kelk_index_board.txt")
'---news-------------------'
DO WHILE NOT( res="NEWS")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=4 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
news="": tmp=""
do while tmp<>"}"
if tmp<>"{" then news=news+tmp
tmp=IBF.Read(1)
loop
'---last ver-------------------'
DO WHILE NOT( res="LASTVERSION")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=11 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
ver="": tmp=""
do while tmp<>"}"
if tmp<>"{" then ver=ver+tmp
tmp=IBF.Read(1)
loop
'---last info-------------------'
DO WHILE NOT( res="LASTINFO")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=8 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
info="": tmp=""
do while tmp<>"}"
if tmp<>"{" then info=info+tmp
tmp=IBF.Read(1)
loop
'---LINK1-------------------'
DO WHILE NOT( res="LINK1")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=5 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
link1="": tmp=""
do while tmp<>"}"
if tmp<>"{" then link1=link1+tmp
tmp=IBF.Read(1)
loop
'---LINK2-------------------'
DO WHILE NOT( res="LINK2")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=5 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
link2="": tmp=""
do while tmp<>"}"
if tmp<>"{" then link2=link2+tmp
tmp=IBF.Read(1)
loop
'---LINK3-------------------'
DO WHILE NOT( res="LINK3")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=5 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
link3="": tmp=""
do while tmp<>"}"
if tmp<>"{" then link3=link3+tmp
tmp=IBF.Read(1)
loop
'---LINK4-------------------'
DO WHILE NOT( res="LINK4")
cnt=0 : res=""
tmp=IBF.Read(1)
if tmp="[" then
do while not (cnt=5 OR IBF.AtEndOfLine)
cnt=cnt+1
tmp=IBF.Read(1)
res=res+tmp
LOOP
IBF.Skipline
else IBF.Skipline
End if
LOOP
link4="": tmp=""
do while tmp<>"}"
if tmp<>"{" then link4=link4+tmp
tmp=IBF.Read(1)
loop
IBF.Close
trg=Session("url")
%>
Welcome to Kelk
