<% 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 strCatName
Dim strCatDescription
If NOT strUserGood = "True" Then
Response.Write "Niste ovlašteni da vidite ovu stranicu, ulogirajte se"
Response.End
End If
strCatID = Clng(Request.QueryString("ID"))
Set rsCategory = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblCatLinks.* FROM tblCatLinks Where tblCatLinks.ID = " & strCatID & ";"
rsCategory.Open strSQL, strLinksCon
If NOT rsCategory.EOF Then
strCatName = rsCategory("Cat_Name")
strCatDescription = rsCategory("Cat_Description")
End If
rsCategory.Close
Set rsCategory = Nothing
%>
<% = strWebSiteName %> - Admin Kategorija