<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Copyright 2002 Drew Gauderman All Rights Reserved.
'**
'** This program is free software; you can redistribute it and/or modify
'** it under the terms of the GNU General Public License as published by
'** the Free Software Foundation; either version 2 of the License, or
'** any later version.
'**
'** All copyright notices must remain intacked in the scripts and the
'** outputted HTML.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to www.maddogs-asp.com must remain in place and the powered by
'** link or image must remain visiable when the pages are viewed.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'** GNU General Public License for more details.
'**
'** You should have received a copy of the GNU General Public License
'** along with this program; if not, write to the Free Software
'** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.maddogs-asp.com/
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** webmaster@maddogs-asp.com
'**
'****************************************************************************************
Dim rsCategory
Dim strCatID
Dim strInputCatName
Dim strInputCatDescription
If NOT strUserGood = "True" Then
Response.Write "Your Not Authorized To View This Page, Please Login"
Response.End
End If
strCatID = Clng(Request.Form("ID"))
strInputCatName = Request.Form("name")
strInputCatDescription = Request.Form("Description")
Set rsCategory = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblCatLinks.* FROM tblCatLinks Where tblCatLinks.ID = " & strCatID & ";"
rsCategory.CursorType = 2
rsCategory.LockType = 3
rsCategory.Open strSQL, strLinksCon
If NOT rsCategory.EOF Then
rsCategory.Fields("Cat_Name") = strInputCatName
rsCategory.Fields("Cat_Description") = strInputCatDescription
rsCategory.Update
rsCategory.Requery
End If
%>
<% = strWebSiteName %> - Admin Category
Update Category
Category <% = strInputCatName %> <%
If rsCategory.EOF Then
Response.Write "NOT Updated!"
Else
Response.Write "Updated!"
End If %>