| <%
Dim intRecordPositionPageNum
Dim intTotalNumNewsPages
Dim intLinkPageNum
Dim intTotalNumNewsEntries
Dim intRecordLoopCounter
Dim rsLinks
Dim strCategoryID
Dim strStars
Dim rsCategory
Dim strOrder
Dim strOrderBy
If Request.QueryString("PagePosition") = "" Then
intRecordPositionPageNum = 1
Else
intRecordPositionPageNum = CInt(Request.QueryString("PagePosition"))
End If
strOrder = Request.QueryString("Short")
strOrderBy = Request.QueryString("Order")
strCategoryID = Request.QueryString("cat")
If strCategoryID = "" Then Response.Redirect "links.asp"
Select Case strOrder
Case "ASC"
strOrder = "ASC"
Case "DESC"
strOrder = "DESC"
Case Else
strOrder = "ASC"
End Select
Select Case strOrderBy
Case "Title"
strOrderBy = "tblLinks.Link " & strOrder & ";"
Case "Desc"
strOrderBy = "tblLinks.Description " & strOrder & ";"
Case "Date"
strOrderBy = "tblLinks.Date " & strOrder & ";"
Case "Rating"
strOrderBy = "tblLinks.Rating " & strOrder & ";"
Case "Hits"
strOrderBy = "tblLinks.Visits " & strOrder & ";"
Case Else
strOrderBy = "tblLinks.Visits " & strOrder & ";"
End Select
Set rsCategory = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblCatLinks.* FROM tblCatLinks WHERE tblCatLinks.ID=" & strCategoryID & ";"
rsCategory.Open strSQL, strLinksCon
If NOT rsCategory.EOF Then Response.Write " " & rsCategory("Cat_Name") & " <% If rsLinks.EOF Then Response.Write " Nema linkova u ovoj kategoriji. " Else intTotalNumNewsEntries = rsLinks.RecordCount intTotalNumNewsPages = rsLinks.PageCount For intRecordLoopCounter = 1 to strLinksPerPage If rsLinks.EOF Then Exit For %>
<% rsLinks.Movenext Next End if %>
|