<%
' **************************************************************************
' ******************* Goldbook ver 1.21 by Solkan ************************
' **************************************************************************
' Use of this Script is Free
' Please notify me when you use it : Solkan@be.tf
' Last update : 30th of June 2000
' you only need to :
' - change the "your_id" into your eWebCity/Brinkster member name,
' - paste this code into Goldbook.asp,
' - create an empty Goldbook.txt file in your db directory.
' Feel free to add some feature to make your GoldBook attractive
if request.form("Action") <> "" then
set objFSO = createObject("Scripting.FileSystemObject")
set GoldBook = objFSO.OpenTextFile(server.mappath("messages.txt"),8)
Nom = Request.form("nom")
Email = Request.form("email")
Commentaire = Request.form("commentaire")
NouvelleEntree1 = Server.HTMLEncode(Commentaire) & "
"
NouvelleEntree2 = "message from " & Server.HTMLEncode(Nom) &" on " & FormatDateTime( date , vbshortdate ) & " at " & time & ""
Goldbook.writeline (NouvelleEntree1)
Goldbook.writeblanklines (1)
Goldbook.writeline (NouvelleEntree2)
Goldbook.writeline ("
")
Session("signed_messages") = 1
Response.redirect "messages.asp"
end if
%>
Ian, Joanne & Elvis's Website
