<%
' .Copyright (C) 1999-2000 Genotec AG
' .Created: 1999
' .Contactid:
' .Url: http://www.genotec.ch
' .Developed by: Genotec AG
' .Written by: Simon Jenny
'
'
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License as
' published by the Free Software Foundation; either version 2 of
' the License, or (at your option) any later version.
'
' This program is distributed in the hope that it will be useful, but
' WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
' General Public License for more details.
'
' You should have received a copy of the GNU General Public License along
' with this program; if not, write to the Free Software Foundation,
' Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
PageTitle = "" ' Titel einfgen
PageBGColor = "" ' Farbe der Seite
PageBG = "" ' Hintergrundbild
PageFont = "" ' Schriftart
PageFontSize = "" ' Schriftgrsse
PageFontColor = "" ' Schriftfarbe
Path = "" ' Pfad zu Ihrem Gstebuch (e.g. "d:\benutzername\public_html\webscripts\guestbook.asp")
' ********************** Diesen Bereich nicht editieren ! *********************************************
If Path = "" then Path = Server.MapPath("/webscripts/guestbook.asp")
%>
<%=PageTitle%>
<%
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 (" | ")
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
%> |
|