<% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = True Private Function decodeString(strInputEntry) strInputEntry = Replace(strInputEntry, "a", "a", 1, -1, 0) strInputEntry = Replace(strInputEntry, "b", "b", 1, -1, 0) strInputEntry = Replace(strInputEntry, "c", "c", 1, -1, 0) strInputEntry = Replace(strInputEntry, "d", "d", 1, -1, 0) strInputEntry = Replace(strInputEntry, "e", "e", 1, -1, 0) strInputEntry = Replace(strInputEntry, "f", "f", 1, -1, 0) strInputEntry = Replace(strInputEntry, "g", "g", 1, -1, 0) strInputEntry = Replace(strInputEntry, "h", "h", 1, -1, 0) strInputEntry = Replace(strInputEntry, "i", "i", 1, -1, 0) strInputEntry = Replace(strInputEntry, "j", "j", 1, -1, 0) strInputEntry = Replace(strInputEntry, "k", "k", 1, -1, 0) strInputEntry = Replace(strInputEntry, "l", "l", 1, -1, 0) strInputEntry = Replace(strInputEntry, "m", "m", 1, -1, 0) strInputEntry = Replace(strInputEntry, "n", "n", 1, -1, 0) strInputEntry = Replace(strInputEntry, "o", "o", 1, -1, 0) strInputEntry = Replace(strInputEntry, "p", "p", 1, -1, 0) strInputEntry = Replace(strInputEntry, "q", "q", 1, -1, 0) strInputEntry = Replace(strInputEntry, "r", "r", 1, -1, 0) strInputEntry = Replace(strInputEntry, "s", "s", 1, -1, 0) strInputEntry = Replace(strInputEntry, "t", "t", 1, -1, 0) strInputEntry = Replace(strInputEntry, "u", "u", 1, -1, 0) strInputEntry = Replace(strInputEntry, "v", "v", 1, -1, 0) strInputEntry = Replace(strInputEntry, "w", "w", 1, -1, 0) strInputEntry = Replace(strInputEntry, "x", "x", 1, -1, 0) strInputEntry = Replace(strInputEntry, "y", "y", 1, -1, 0) strInputEntry = Replace(strInputEntry, "z", "z", 1, -1, 0) strInputEntry = Replace(strInputEntry, "0", "0", 1, -1, 0) strInputEntry = Replace(strInputEntry, "1", "1", 1, -1, 0) strInputEntry = Replace(strInputEntry, "2", "2", 1, -1, 0) strInputEntry = Replace(strInputEntry, "3", "3", 1, -1, 0) strInputEntry = Replace(strInputEntry, "4", "4", 1, -1, 0) strInputEntry = Replace(strInputEntry, "5", "5", 1, -1, 0) strInputEntry = Replace(strInputEntry, "6", "6", 1, -1, 0) strInputEntry = Replace(strInputEntry, "7", "7", 1, -1, 0) strInputEntry = Replace(strInputEntry, "8", "8", 1, -1, 0) strInputEntry = Replace(strInputEntry, "9", "9", 1, -1, 0) 'Return decodeString = strInputEntry End Function 'Dimension variables Dim rsRemoveLinks 'recordset holding the admin details Dim strMode 'holds the mode of the page, set to true if changes are to be made to the database Dim blnLinksRemoved Dim blnWrongCode blnLinksRemoved = False blnWrongCode = False strCodeField = decodeString(strCodeField) strCode = decodeString(strCode) strMode = Request.Form("mode") Set rsRemoveLinks = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblConfiguration." & strCodeField & " From tblConfiguration;" rsRemoveLinks.LockType = 3 rsRemoveLinks.CursorType = 2 rsRemoveLinks.Open strSQL, strCon If NOT rsRemoveLinks.EOF Then If rsRemoveLinks.Fields(strCodeField) = False Then blnLinksRemoved = True End If If strMode = "change" Then If NOT rsRemoveLinks.EOF Then If LCase(Request.Form("code")) = LCase(strCode) Then rsRemoveLinks.Fields(strCodeField) = False rsRemoveLinks.Update blnLinksRemoved = True Else blnWrongCode = True End If End If End If %> Remove Link Buttons

Remove netsoftonline Links

Return to the the Administration Menu

<% If blnLinksRemoved = True Then %>
Thank-you for your donation to netsoftonline, the links should now be removed from the netsoftonline Mailing List.

If there are any problems please e-mail netsoftonline at: -
donations@netsoftonline.com.com
<% Else %>
> <% If blnWrongCode = True Then %>

Sorry the code you have entered is incorrect!
<% End If %>

Enter the link removal code in the box below 
Code: 
<% End If %> <% 'Reset Server Objects Set adoCon = Nothing Set strCon = Nothing Set rsRemoveLinks = Nothing %>