<% 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 strInputName
Dim strInputDescription
If NOT strUserGood = "True" Then
Response.Write "Niste ovlašteni da vidite ovu stranicu, ulogirajte se"
Response.End
End If
strInputName = Request.Form("Name")
strInputDescription = Request.Form("Description")
Set rsCategory = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblCatLinks.* FROM tblCatLinks;"
rsCategory.CursorType = 2
rsCategory.LockType = 3
rsCategory.Open strSQL, strLinksCon
rsCategory.AddNew
rsCategory.Fields("Cat_Name") = strInputName
rsCategory.Fields("Cat_Description") = strInputDescription
rsCategory.Update
rsCategory.Requery
%>
<% = strWebSiteName %> - Admin dodavanje kategorije