<%@ LANGUAGE="VBSCRIPT" %> <% Dim var(100) set FileObject = Server.CreateObject("Scripting.FileSystemObject") set Out = FileObject.OpenTextFile (Server.MapPath ("/werkstatt") + "/guestbook.txt", 1, FALSE, FALSE) i=0 while not Out.AtEndOfStream var(i) = Out.ReadLine i=i+1 wend nCount = i Out.Close %> werkstatt... gästebuch









gästebuch...
einen neuen eintrag kann man hier machen.

<% for n = nCount-1 to 0 step -1 strDatum = Tokenize(var(n),";",1) strName = Tokenize(var(n),";",2) strEmail = Tokenize(var(n),";",3) strText = Tokenize(var(n),";",4) %> <%=strText%>

<%=strDatum%> <%=strName%>
<%=strEmail%>

<%next%>