| <%
set fso = CreateObject("Scripting.FileSystemObject")
set fileku = fso.opentextfile(server.MapPath("../../../db/info/new.txt"),1)
while not fileku.atendofstream
kata = fileku.readline
if kata = "." then
response.Write("• ")
else
response.Write(kata)
response.Write(" ") end if wend set fileku = nothing set fso = nothing%> |
 |
| <%
set fso = CreateObject("Scripting.FileSystemObject")
set fileku = fso.opentextfile(server.MapPath("../../../db/info/event.txt"),1)
while not fileku.atendofstream
kata = fileku.readline
if kata = "." then
response.Write("• ")
else
response.Write(kata)
response.Write(" ") end if wend set fileku = nothing set fso = nothing%> |
