<%
if not request("name") = "" then
' Schreibe ins File
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set WriteStream = FileStreamObject.OpenTextFile (Path ,8,1)
WriteStream.WriteLine ("")
WriteStream.WriteLine ("")
WriteStream.WriteLine ("| Name | ")
WriteStream.WriteLine ("" & request("Name") & " | ")
WriteStream.WriteLine ("Vorname | ")
WriteStream.WriteLine ("" & request("Vorname") & " | ")
WriteStream.WriteLine (" ")
WriteStream.WriteLine ("")
WriteStream.WriteLine ("| E-Mail | ")
WriteStream.WriteLine ("" & request("Mail") & " | ")
WriteStream.WriteLine ("Homepage | ")
WriteStream.WriteLine ("" & request("Homepage") & " | ")
WriteStream.WriteLine (" ")
WriteStream.WriteLine ("")
WriteStream.WriteLine (" " & request("Kommentar") & " | ")
WriteStream.WriteLine (" ")
WriteStream.WriteLine (" ")
WriteStream.WriteLine (" ")
WriteStream.WriteLine (" ")
Set WriteStream = Nothing
End if
' Lese vom File
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set ReadStream = FileStreamObject.OpenTextFile (Path,1)
if not ReadStream.AtEndOfStream then response.write ReadStream.ReadALL
Set ReadStream = Nothing
%>
|