I.T. Mate
                      Product Support
Menu: Home | Blog | Contact Us | Documents | Forums | Knowledge Base | Search | Services RSS

Quick Search
 

Products
AB Extension Pack
ACF Notes
ActiveScan Cleaner
B Gone
Bit Defender Cleaner
Black Jack
Chess
Cookie Info
Cup Holder
Dir 2 File
DUN AC
FreeScan Cleaner
Guestbook Generator
Housecall Cleaner
hpHosts
hpObserver
Index.dat QV
Index.dat Suite
ISPs Nightmare
Mouse Mat
Outlook Export
PUI
Quick Info
Quick Ren
RF Types
Rip Wiz 2003
S Lock
SMTP Finder
Spambot Search Tool
vURL Desktop Edition
Home > Products > Guestbook Generator

Guestbook Generator

  1. Overview
  2. Download
  1. FAQ
  2. How To's
  1. Screenshot
  2. System Requirements
How To's
Adding spammer filtering
Allowing multi-line posting allowances to your guestbook
Adding E-mail masking
Step by step instructions: Using Guestbook Generator


Adding spammer filtering
You can add spammer filtering to prevent spam, using the fspamlist.com and stopforumspam.com blocklists. To do this, open addtogb.asp;

Find:


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
GuestBookFile = Server.MapPath("../private/guestbook.txt")
Set OutputStream = FileObject.OpenTextFile(GuestBookFile, ForAppending, True)
OutputStream.WriteLine "Location: : " + strFld5 + "vbCrLf Comments : " + Replace(strFld4, vbCrLf, "//vbReturn//") + "vbCrLf Homepage : " + strFld3 + "vbCrLf E-mail : " + strFld2 + "vbCrLf Name : " + strFld1 + "vbCrLf Date : " + CStr(Now())
Set OutputStream = Nothing
Set FileObject = Nothing


Replace with:


'// Anti-spam measure
If IsUserBlackListed(sUIP, strFld1, strFld2) = True OR (Instr(1, strFld1, "://", vbTextCompare) > 0 OR Instr(1, strFld2, "://", vbTextCompare) > 0 OR Instr(1, strFld4, "://", vbTextCompare) > 0 OR Instr(1, strFld5, "://", vbTextCompare) > 0) Then
   bReject = True
Else
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
   GuestBookFile = Server.MapPath("../private/guestbook.txt")
   Set OutputStream = FileObject.OpenTextFile(GuestBookFile, ForAppending, True)
   OutputStream.WriteLine "Location: : " + strFld5 + "vbCrLf Comments : " + Replace(strFld4, vbCrLf, "//vbReturn//") + "vbCrLf Homepage : " + strFld3 + "vbCrLf E-mail : " + strFld2 + "vbCrLf Name : " + strFld1 + "vbCrLf Date : " + CStr(Now())
   Set OutputStream = Nothing
   Set FileObject = Nothing
End If

'// Blacklists
Function IsUserBlacklisted(sIP, sName, sEMail)
   bBlacklisted = False
   set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   on error resume next
      objXMLHTTP.open "GET", "http://www.stopforumspam.com/api?ip=" & sIP, false
   objXMLHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_HOST")
   objXMLHTTP.send ""
   if objXMLHTTP.status = 200 then
      If Instr(1, objXMLHTTP.ResponseText, " yes ", vbTextCompare) Then bBlacklisted = True
   end if
   set objXMLHTTP = nothing
   '// Check fSpamList.com
   set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   on error resume next
      objXMLHTTP.open "GET", "http://www.fspamlist.com/xml.php?username=" & sName & "&ip=" & sIP & "&email=" & sEMail, false
   objXMLHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_HOST")
   objXMLHTTP.send ""
   if objXMLHTTP.status = 200 then
      If Instr(1, objXMLHTTP.ResponseText, "True", vbTextCompare) Then bBlacklisted = True
   end if
   set objXMLHTTP = nothing
   IsUserBlacklisted = bBlacklisted
End Function

Allowing multi-line posting allowances to your guestbook
Allowing line breaks in textarea's means your visitors can post multi-line comments. For example;

Hello your name

I just thought I'd pop by and say thankyou


Whilst this was included by default in older versions of Guestbook Generator, the newer versions (1.2.3 and newer), do not. This is mainly due to the enhanced customisations that were added that prevented us from being able to "guess" which field you have set as the comments field and which textarea fields you actually want multi-line allowances.

Because of this, you will need to add this functionality yourself, should you wish to do so.

Adding multi-line posting allowances to your guestbook

To add multi-line posting allowances to your guestbook, open addtogb.asp in a plain text editor such as ACF Notes or Notepad.

Locate the following line;


strFld4 = request.form("txtComments")


Replace it with;

strFld4 = replace(replace(request.form("txtaComments"), vbCrLf, "//vbReturn//"), "<br>", "//vbReturn//")

Where "txtaComments" is your textarea/comments field name and strFld4 is it's corresponding variable (this
variable can be found at the top of the addtogb.asp file)

Next go to the bottom of the page and locate the line containing;

<tr>

    <td width=10% nowrap valign=top>Comments:</td>
    <td width=90% valign=top align=left><%=strFld4%></td>
</tr>


Replace it with;

<tr>
    <td width=10% nowrap valign=top>Comments:</td>
    <td width=90% valign=top align=left><%=replace(strFld4, "//vbReturn//", " <br/> ")%></td>
</tr>


Note: The "vbCrLf" seperates each "field" onto it's own line (saves having to guess whether or not the user is going to post comma's or other usable characters). The "//vbReturn//" tells the script to add line breaks (e.g. in multi-line posts).

Adding E-mail masking
E-mail masking allows you to prevent 'bots' from scraping e-mail addresses from your guestbooks, by using a little extra protection.

Whilst this was included by default in older versions of Guestbook Generator, the newer versions (1.2.3 and newer), do not. This is mainly due to the enhanced customisations that were added that prevented us from being able to "guess" which field the user set as the e-mail field.

Because of this, you will need to add this functionality yourself, should you wish to do so.

Adding E-mail masking to your guestbook

To add e-mail masking to your guestbook, open addtogb.asp in a plain text editor such as ACF Notes or Notepad.

Locate the following line;

strFld2 = request.form("txtE-Mail")

Replace it with;

strFld2 = Replace(Replace(Request.Form("txtE-Mail"), "@", " [ AT ] "), ".", " [ DOT ]")

Where "txtE-Mail" is your e-mail field name and strFld2 is it's corresponding variable (this variable can be found at the top of the addtogb.asp file).

Note: The [ AT ] and [ DOT ] can be whatever you wish.



IMPORTANT
If you are using v1.2.4 or earlier, please refer to the following.

Locate the following line;

OutputStream.WriteLine "E-mail: " + strFld2

Replace it with;

OutputStream.WriteLine "E-mail: " + Replace(Replace(strFld2, "@", " [ AT ] "), ".", " [ DOT ]")

Where "E-mail: " is your e-mail field name and strFld2 is it's corresponding variable (this variable is set at the top of the addtogb.asp file).

Note: The [ AT ] and [ DOT ] can be whatever you wish.

Step by step instructions: Using Guestbook Generator
Note: The following applies to Guestbook Generator version 1.2.2 and below only.

1. Load Guestbook Generator
2. In the Title box, type the title you would like for your guestbook
3. Select a background picture (if you would like one, otherwise, leave blank)
4. Select a background color
5. Select your font (default font is Verdana, default color is black)
6. Select the font size (in pixels. 11 being the norm for most site's)
7. Select whether or not to have a border, and which size

Once the above is done, you can concentrate on the sizes you would like for your text boxes and 'comments' text area. Then simply click Generate.

All files are generated and placed into the Guestbook folder, located in the Guestbook Generator folder.


Give us Feedback! Forums
End User Licence Agreement | Help Us | Privacy Policy | Terms of Use
Copyright 1998 - 2017 I.T. Mate - All Rights Reserved
counselling-valvate
counselling-valvate
counselling-valvate
counselling-valvate
Give us Feedback! Forums