<% Option Explicit %>
Navštěvní kniha
Příspěvek:
<%
Dim fs, a, cast, retez
'vytvoříme objekt filesystemu
set fs = Server.CreateObject("Scripting.FileSystemObject")
'zjistíme zda soubor existuje
If (fs.FileExists(Server.MapPath("test.txt"))) Then
'pokud ano, otevřeme soubor pro čtení
Set a = fs.OpenTextFile(Server.MapPath("test.txt"), 1)
'smyčka dokud není souboru konec
Do While a.AtEndOfStream <> True
'přečteme řádek
retez = a.ReadLine
'rozdělíme ho na části
cast = split(retez,vbtab)
'vypíšeme části
%>
<%= cast(0)%>|<%= cast(1)%>|<%= cast(2)%>
<%= cast(3)%>
<%
'uzavřeme smyčku
loop
'zavřeme soubor
a.close
else%>
Žádná odpověď.
<%
End If
'zrušíme objekt filesystemu
set fs = nothing
%>