<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
%>
<%
const dataPath= "data\"
sub GetWorlds()
dim fsys, filen, stream, temp
set fsys = CreateObject("Scripting.FileSystemObject")
set filen = fsys.GetFile(dataPath & "worlds.dat")
set stream = filen.OpenAsTextStream(1,-2)
while not stream.atEndOfStream
temp=stream.readline
Response.Write("" & temp & "
")
wend
stream.close
end sub
%>
Welcome to Cali
<%
call GetWorlds()
%>