'****************************************************************************
' Dieses Script liest eine Textdatei und schreibt den Inhalt in das Dokument
' Die Methode FileExists prüft, ob die angegebene Datei vorhanden ist.
' Über die Methode OpenTextFile wird die Datei geöffnet und der Variablen
' txtStream die Referenz zugewiesen (die 1 nach dem Pfad steht für lesend
' öffnen). Die "Do While"-Schleife liest bis Dateiende alle Zeilen
' (Readline) aus. 
' Die zweite Funktion öffnet über OpenTextFile die Textdatei zum schreiben
' anhängend. Liest aus dem Formularfeld den eingegebenen Text und schreibt
' mit WriteLine in die Datei.
' Argument für OpenTextFile:
' 1=öffnet eine Datei zum Lesen
' 2=öffnet eine Datei zum Schreiben
' 8=öffnet eine Datei und schreibt an das Dateiende
'****************************************************************************
dim path, d
path = "\web\book\gaestebuch.txt"
   
sub lesen
	set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(path) Then
		set txtStream = fso.OpenTextFile(path , 1)
		Text = "<table class='gbook' style='width: 400 px;' border='0' cellpadding='1' cellspacing='2'>"
		Do While Not (txtStream.atEndOfStream)
			Text = Text & txtStream.Readline & vbCrLf
		Loop
		Text = Text & "</table>"
		document.all.Ausgabe.innerHTML = Text
	End If
end sub

sub schreiben_onclick
  d = Date & ", " & Time
set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(path) Then
		set txtStream = fso.OpenTextFile(path , 8, True)
		neueZeile = "<tr><td><b>Datum:</b></td><td>" & d & "</td>" &_
		            "<td colspan='2'><br></td></tr><tr><td><b>Name:</b></td><td>" & document.Formular.user.value &"</td>" &_
		            "<td><b>eMail:</b></td><td><a href='mailto:" & document.Formular.mail.value & "'>" & document.Formular.mail.value & "</a></td></tr>" &_
		            "<tr><td><b>Kommentar:&nbsp;</b></td><td colspan='3'>" & document.Formular.text.value & "</td></tr>" &_
		            "<tr><td colspan='4'><hr></td></tr>"
		document.Formular.user.value = ""
		document.Formular.mail.value = ""
		document.Formular.text.value = ""
		txtStream.WriteLine(neueZeile)
		txtStream.Close
	End If
end sub