<% = strWebSiteName %> - Linkovi - Gorski Kotar i Lika

<% 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 '** '**************************************************************************************** %> <% = strWebSiteName %> - Linkovi - Gorski Kotar i Lika

Žute stranice
Gorski Kotar i Lika

<% Dim rsConnection Dim rsRecordset Set rsConnection = Server.CreateObject("ADODB.Connection") Set rsRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblLinks.* FROM tblLinks WHERE tblLinks.Active = True;" rsConnection.Open strLinksCon, strSQL rsRecordset.Open strSQL, rsConnection, 3, 3, 1 %> <% rsConnection.Close Set rsConnection = Nothing Set rsRecordset = Nothing Dim rsLinks Set rsLinks = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblCatLinks.* FROM tblCatLinks ORDER By tblCatLinks.Cat_name ASC;" rsLinks.Open strSQL, strLinksCon If NOT rsLinks.EOF Then Do Until rsLinks.EOF Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") If NOT rsLinks.EOF Then rsLinks.Movenext Loop Else %> <% End If rsLinks.Close Set rsLinks = Nothing %>

Ukupan broj linkova u bazi: <% = rsRecordset.recordcount %>

") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") End If Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & ("

" & rsLinks("Cat_name") & "") Set rsConnection = Server.CreateObject("ADODB.Connection") Set rsRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblLinks.* FROM tblLinks WHERE tblLinks.Cat_ID = " & rsLinks("ID") & " AND tblLinks.Active = True;" rsConnection.Open strLinksCon, strSQL rsRecordset.Open strSQL, rsConnection, 3, 3, 1 Response.Write " (" & rsRecordset.recordcount & ")" rsConnection.Close Set rsConnection = Nothing Set rsRecordset = Nothing If strUserGood = "True" Then Response.Write (" Edit

" & rsLinks("Cat_Description") & "

") Response.Write vbCrLf & ("

") If NOT rsLinks.EOF Then rsLinks.Movenext If NOT rsLinks.EOF Then Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") End If Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & (" ") Response.Write vbCrLf & ("

" & rsLinks("Cat_Description") & "

") End If End If Response.Write vbCrLf & ("

Žao nam je, ali trenutno nema ni jedne kategorije.

Ako želite vidjeti Vaš link na ovoj stanici, molimo Vas prijavite Vaš link!

<% If NOT strUserGood = "True" Then %>Admin Logiranje<% End If %>

<% If strShowTopLinks = "True" Then %>

Top 12 Linkova

<% Dim strLinkCount Dim intRecordLoopCounter Dim strLinksName Set rsLinks = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT TOP 12 tblLinks.* FROM tblLinks WHERE tblLinks.Active = True ORDER By tblLinks.Visits DESC;" rsLinks.Open strSQL, strLinksCon If rsLinks.EOF Then %> <% End If strLinkCount = 1 rsLinks.PageSize = 6 For intRecordLoopCounter = 1 to 6 If rsLinks.EOF Then Exit For strLinksName = rsLinks("Link") If len(strLinksName)>20 then strLinksName = left(strLinksName,20) & "... " Else strLinksName = strLinksName End If %> <% strLinkCount = strLinkCount + 1 %> <% strLinkCount = strLinkCount + 1 If NOT rsLinks.EOF Then rsLinks.Movenext Next rsLinks.Close Set rsLinks = Nothing %>

Nema linkova

<% If NOT rsLinks.EOF Then %><% = strLinkCount %>. " target="_blank" title="<% = rsLinks("Link") %> - <% = rsLinks("Description") %> - Total Visits: <% = rsLinks("Visits") %>"><% = strLinksName %><% End If %><% If NOT rsLinks.EOF Then rsLinks.Movenext If NOT rsLinks.EOF Then strLinksName = rsLinks("Link") If len(strLinksName)>20 then strLinksName = left(strLinksName,20) & "... " Else strLinksName = strLinksName End If End If End If %>

<% End If If strUserGood = "True" Then %>

Admin izbornik

Dodaj kategoriju
Dodaj link
Izlogiraj se

Neodobreni/Prijavljeni neispravni linkovi

<% Set rsLinks = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblLinks.* FROM tblLinks WHERE tblLinks.Active = False OR tblLinks.Status >= '1';" rsLinks.Open strSQL, strLinksCon If NOT rsLinks.EOF Then Do Until rsLinks.EOF %> ','links','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=450,height=450')" <% If rsLinks("Status") >= 1 Then Response.Write "title=""Neispravan"""%>><% = rsLinks("Link") %> (Prijavljen <% = rsLinks("Status") %> puta)<% If rsLinks("Active") = False Then Response.Write "(Neaktivan)" %>
<% rsLinks.Movenext Loop Else %> Nema novih ni neispravnih linkova. <% End If rsLinks.Close Set rsLinks = Nothing %>

<% End If %>