Remove EzASPSite™ Links

<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** EzASPSite™ '** '** Copyright 2003-2004 VSBrown All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** and use it both privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but 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 EzASPSite™ and Powered By EzASPSite™ link 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. '** '** No official support is available for EzASPSite™ but you may post support questions at: '** http://www.ezaspsite.com/forum '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim rsRemoveLinks Dim strMode Dim blnLinksRemoved Dim blnWrongCode Dim strEnteredSerial Dim strFID blnLinksRemoved = False blnWrongCode = False strCode = "34C86FE9F7667FE9BBAF87B00C06CD33490BB4E0" 'strCode2 = "73ADD37AB4EF0672557E1AD37886325159BA4E0C" strFID = decodeString(strCodeField) strCode = decodeString(strCode) strMode = Request.Form("mode") Set rsRemoveLinks = Server.CreateObject("ADODB.Recordset") If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc & "SelectHitCount" Else strSQL = "SELECT TOP 1 " & strDbTable & "HitCount.* From " & strDbTable & "HitCount;" End If rsRemoveLinks.Open strSQL, adoCon, 2, 3 If NOT rsRemoveLinks.EOF Then If rsRemoveLinks.Fields(strFID) = False Then blnLinksRemoved = True End If If strMode = "postBack" Then If NOT rsRemoveLinks.EOF Then strEnteredSerial = HashEncode((LCase(Request.Form("code")) & strSalt1)) 'If strEnteredSerial = strCode OR strEnteredSerial = strCode2 Then If strEnteredSerial = strCode Then rsRemoveLinks.Fields(strFID) = False rsRemoveLinks.Update blnLinksRemoved = True Else blnWrongCode = True End If End If End If Set adoCon = Nothing Set adoCon = Nothing Set rsRemoveLinks = Nothing %> Remove EzASPSite™ Links

<% If blnLinksRemoved = False Then %>

Remove EzASPSite™ Links
<% Else %>

EzASPSite™ Links Removed
<% End If %> <% If blnLinksRemoved = True Then %>
Thank you for your donation to EzASPSite™
The links should now be removed from your site.

If there are any problems please e-mail EzASPSite™ at:
webmaster@ezaspsite.com
<% Else %>
As part of the license for EzASPSite™ you are required to leave Powered By EzASPSite™ links in place. I believe that this is a small price to pay for the many hours of time that have gone into the colaboration and development of EzASPSite™.

However, many people have asked if they can remove these links for various reasons so I am asking for a small donation to help me cover some of the costs involved in the many hours of time, development, support, and distribution of this application.

For more information or to find out how you can make a donation to EzASPSite™ click on the link below:

Click here to make a donation to EzASPSite™ and receive the link removal code

<% If blnWrongCode = True Then %>

Sorry the code you have entered is incorrect!

<% End If %> <% End If %> <% If blnLinksRemoved = False Then %>

For more info contact:
webmaster@ezaspsite.com

<% End If %> <% If blnLCode1 = True Then %> Powered By EzASPSite™ <% response.write version %> <% End If %>