<%@ LANGUAGE = "VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<% Response.Expires = -1 %>
<% Response.CacheControl = "Public" %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** iPortalX.com
'**
'** Copyright 2001-2003 Drew Gauderman All Rights Reserved.
'**
'** This program is a paid software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may NOT use parts of this program in your own private work, and you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** Support is for those that have purchased it. Post support questions at: -
'** http://www.iportalx.com/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** support@iportalx.com
'**
'****************************************************************************************
Dim blnBannedIP
If bannedIP() Then
'If the user is using a banned IP then set the banned IP variable to true and active member variable to false
blnBannedIP = True
blnActiveMember = False
End If
If blnBannedIP = True Then
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect("forum/insufficient_permission.asp?M=IP")
End If
%>
<% = strWebsiteName %> - <% = strTxtSignGuestbook %>
<%
Dim rsGuestbook
Dim intGuestBookID
Dim strMode
Dim strGuestbookName
Dim strGuestbookEmail
Dim strGuestbookSite
Dim strGuestbookComments
Dim strGuestbookCountry
Dim lngLoopCounter
'********** Create Security Code **********
'Initliase variable
Session("lngSecurityCode") = ""
'Create a new session security code
For lngLoopCounter = 1 to 6
'Randomise the system timer
Randomize Timer
'Place the random number onto the end of teh security code session variable
Session("lngSecurityCode") = Session("lngSecurityCode") & CStr(CInt(Rnd * 9))
Next
strMode = "Add"
intGuestBookID = 0
strGuestbookSite = "http://"
%>
<%
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<% = strWebsiteName %> : <% = strTxtSignGuestbook %>