<%
'Coded by Guo Xu 2001 for www.finalfantasysite.de
'Copyright @ Guo Xu
'You may modify this code but you may NOT edit/modify/delete the comments
'For further informations mail me @ guox@gmx.net
set objFS = CreateObject("Scripting.FileSystemObject")
set objTS = objFS.OpenTextFile(Server.MapPath("\atlas\prefs.guo"))
color = objTS.ReadLine
font = objTS.ReadLine
size = objTS.ReadLine
text = objTS.ReadLIne
scrollamount = objTS.ReadLine
counter = objTS.ReadLine
load = objTS.ReadLine
scrolldelay = "120"
counter = ""
If load = 1 then
on error resume next
dim content, line, SearchText
set objFS = CreateObject("scripting.Filesystemobject")
Set objAS = objFS.OpenTextFile(server.MapPath("\atlas\load.guo"))
content = objAS.ReadLine
line = objAS.ReadLine
Set objLZ = objFS.OpenTextFile(Server.MapPath(content))
For i = 1 to line
content = objLZ.ReadLine
Next
SearchText = "
"
If instr(content, "
") <> 0 then
temp = instr(content, "
")
temp = temp - 1
content = left(content, temp)
Else
End If
For i = 1 to 6
SearchText = ""
If instr(content, "") <> 0 then
temp = instr(content, "")
temp = temp + 4
content = mid(content, temp, len(content) - 4)
Else
End If
Next
SearchText = " 0 then
temp = instr(content, "")
temb = temb + 1
content = mid(temp, temb, len(temp) - temb)
End If
Else
content = ""
End If
response.write ("")
%>