<%@ 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 '** '**************************************************************************************** If blnAdmin = False Then Response.Redirect("forum/insufficient_permission.asp?Redirect=" & RedirectOmitPath("Redirect", True)) End If %>

<% = strWebsiteName %> : <% = strTxtEditGuestbookForm %>

<% Dim intGuestBookID Dim strMode Dim strGuestbookName Dim strGuestbookEmail Dim strGuestbookSite Dim strGuestbookComments Dim strGuestbookCountry strMode = "Edit" intGuestBookID = Clng(Request.QueryString("GuestBookID")) strSQL = "SELECT " & strDbTable & "Guestbook.* FROM " & strDbTable & "Guestbook " strSQL = strSQL & "WHERE " & strDbTable & "GuestBook.Guestbook_ID = " & intGuestBookID & ";" rsCommon.Open strSQL, adoCon If rsCommon.EOF Then Response.Redirect("guestbook.asp") Else strGuestbookName = rsCommon("Name") strGuestbookEmail = rsCommon("Email") strGuestbookSite = rsCommon("Site") strGuestbookComments = rsCommon("Comments") strGuestbookCountry = rsCommon("Country") strGuestbookComments = EditPostConvertion(strGuestbookComments) %> <% End If rsCommon.Close %> <% Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>