Zero Administration Guestbook

[2/~header-travel.htm]

Free ASP Code / Script:
Zero Administration Guestbook (Ver 1.30)

What is Zero Administration Guestbook ?

Zero Administration Guestbook is a free ASP code (yes, you need ASPibility), which makes you free from maintaining your guestbook. You'll never need to worry, whether your guestbook got too large and too long.

It backups your current guestbook entries to a new file whenever a month pass by (in the format of yyyy-mm.htm files). So that you can still keep your friends' sweet old comments and suggestions. See it in action.

Where is the Code?

Here it is... Just select all, copy, then paste it.

<% '----------------------------------------- ' ZERO ADMINISTRATION GUESTBOOK - Ver 1.30 ' Copyright 2000-05 by Steven HTUT, Myanmars.NET. All rights reserved. ' dev@myanmars.net ' ' This asp code can be used/distributed free of charge, and ' this copyright notice should not be altered. '----------------------------------------- ' SETUP INSTRUCTIONS ' Pls see at http://www.myanmars.net/download/zaguestbook-asp.htm '----------------------------------------- ' CONFIGURE YOUR GUESTBOOK ' Dim strFile, bDay, strBakFile, strDump, SiteTitle, WelcomeMessage, TextAttribute, LineAttribute, BodyAttribute, StyleDesp SiteTitle = "My Zero Administration Guestbook" WelcomeMessage = "Welcome to our guestbook. Please tell us what kind of thoughts, comments, or suggestions you have about our site..." strFile = Server.MapPath("/writeable-directory/guestbook.htm") strLog = Server.MapPath("/writeable-directory/guestbook.log") LineAttribute = "<hr size='1' color='red'>" 'note the use of single quotes TextAttribute = "<font face='Comic Sans MS' size='3' color='navy'>" BodyAttribute = "<body bgcolor='#FFFFFF' link='#FF0000'>" 'note the use of single quotes StyleDesp = "<style> </style>" '----------------------------------------- ' DON'T EDIT BELOW THIS LINE (except  </blockquote> <% response.Write (LineAttribute) Else '### CHECK DATE -- IF ANOTHER MONTH, BACKUP FILE Dim objFSO, objFSOlog Dim objFile, objFileLog '### READ DATE LOG Set objFSOlog = Server.CreateObject("Scripting.FileSystemObject") Set objFileLog = objFSOlog.OpenTextFile(strLog, 1) '### OPEN GUESTBOOK.LOG bDay = objFileLog.ReadAll bDay = Trim(bDay) objFileLog.Close '### IF A MONTH ENDED If Day(Date) < cByte(bDay) then If Month(Date) = 1 then strBakFile = Server.MapPath("" + Trim(CStr(year(date)-1)) +"-"+ "12.htm") else strBakFile = Server.MapPath("" + Trim(CStr(year(date))) +"-"+ Trim(CStr(month(date)-1)) + ".htm") End if response.write (strBakFile & "<br>") '### DO BACK UP '### READ OLD GUESTBOOK Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strFile, 1) '### OPEN guestbook.htm strDump = objFile.ReadAll objFile.Close Set objFile = Nothing Set objFSO = Nothing '### WRITE TO BAK FILE Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strBakFile, true) objFile.write ("<html><head>") objFile.write (StyleDesp + "</head>") objFile.write (BodyAttribute) objFile.write ("<h3>Guestbook of Year "+ Trim(CStr(year(date))) +", Month "+ Trim(CStr(month(date)-1))+"</h3>") objFile.write (strDump) objFile.write ("</body></html>") objFile.Close Set objFile = Nothing Set objFSO = Nothing '### INITIATE CURRENT GUESTBOOK Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strFile, true) objFile.write ("<hr size='1' color='red'>") objFile.Close Set objFile = Nothing Set objFSO = Nothing response.write ("Guestbook for the new month initiated...") End If '### Write the results to file Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strFile, 8, True) objFile.Write (LineAttribute) objFile.Write (TextAttribute) objFile.Write Server.HTMLEncode(Request.Form("comment")) objFile.Write "</p><p align='right'>" objFile.Write Server.HTMLEncode(Request.Form("name")) objFile.Write ", <a href='mailto:" & Server.HTMLEncode(Request.Form("email")) & "'>" objFile.Write Server.HTMLEncode(Request.Form("email")) & "</a></font><br><font size='1'>" objFile.Write now & " - ip address:" objFile.Write (request.servervariables("remote_Addr")) & "</font></p>" objFile.Close '### WRITE DATE LOG Set objFileLog = objFSOlog.OpenTextFile(strLog, 2, True) objFileLog.Write Day(Date) objFileLog.Close Set objFile = Nothing Set objFSO = Nothing Set objFileLog = Nothing Set objFSOlog = Nothing %> <H3>Your comments have been written to the file!</H3> <A HREF="./guestbook.asp">Back to the guestbook</A><p> <% End If %> <A HREF="http://www.myanmars.net/download/zaguestbook-asp.htm">Zero Administration ASP Guestbook</a>. ASP code programmed by Steven HTUT from <A HREF="http://www.myanmars.net">Myanmar</a>. </body></html>

How to Setup?

Copy this whole program code above and paste it in a text editor. Windows Notepad is fine. Save it as guestbook.asp. Note not to save as guestbook.asp.txt.

Then let's customize the values of 8 variables in the header. Replace "/writeable-directory/" with appropriate directory path on your server. (It is "/membername/db/" for eWebCity members.)

Besides those 8 variables, there's only 1 more place to edit in guestbook.asp file. Find "" and correct the directory path.

Ok, save it again and upload it.

Just type a space (press space-bar 1 time) and create a file by saving as guestbook.htm. This file will store all the guestbook entries of the current month.

Just type 1 (yes, the number 1) and save as guestbook.log. This file will be updated and store the current day of the month.

Then upload both of them to your writable-directory. (For eWebCity members upload to "/membername/db/" directory.) Note that those 2 files with zero byte filesize will NOT work.

That's it! You're done.

The URL to view the guestbook is http://yourdomain/yourpath/guestbook.asp. NOT http://yourdomain/yourpath/guestbook.htm. Whenever a month begins, it will automatically create yyyy-mm.htm file to back up for the last month, which you can link from your pages or view later. The guestbook of current month will be initialized too.

HELP! How did you do it?

Alright. You want to see how I configured my guestbook. Okay, just CLICK HERE to see the source code of the ZAG ASP guestbook running at http://www7.eWebCity.com/myanmarsnet/zagtest.asp.

What are Requirements?

Web space, which supports ASP (Active Server Pages). Technically speaking, your web server has to be running Microsoft Information Server. If you need free web space where you can run ASP scripts, please see this list of free ASP hosts.

A writable directory on that server. (Set dir attribute 777)

ZAG in Action

You'd like to see where it is running? Okay, please see these:

Somebody's guestbooks. Look up. Please don't mess up!

http://mhsnursenet.com/guestbook.asp

http://ase.tufts.edu/msat/guestbook.asp

http://www20.brinkster.com/brutalisk/guestbook.asp

http://www.chestertourist.com/guestbook.asp

http://www.centrostudienriques.it/guestbook.asp

http://www.musicaw.it/guestbook.asp

Feedback & Questions

If you have got your ZAG up and running, please send us your URL. So we can add in above list later. Or if you have questions, email me too. Not guaranteed. But I'll try to answer you in my free time.

Well, thanks for using this script. Good luck!

Steven Htut
Author

[2/~footer-travel.htm]

Free ASP Code / Script:
Zero Administration Guestbook (Ver 1.30)

What is Zero Administration Guestbook ?

Where is the Code?

How to Setup?

HELP! How did you do it?

What are Requirements?

ZAG in Action

Feedback & Questions

Free ASP Code / Script: Zero Administration Guestbook (Ver 1.30)

What is Zero Administration Guestbook ?

Where is the Code?

How to Setup?

HELP! How did you do it?

What are Requirements?

ZAG in Action

Feedback & Questions

Free ASP Code / Script:
Zero Administration Guestbook (Ver 1.30)