<% Dim totalPage, totalRecords, displayRecords msgnoAds = "

" & strText_NoAdsSubmitted & msgBack & "

" msgInvalid = strText_InvalidRequestList If session("user_logged_moderator" & strSUnique) Or session("admin_loggedin" & strSUnique) = Session.SessionID then moderator = True cat3rdID = Request("3id") catID = Request("cid") subcatID = Request("sid") If isNumeric(catID) AND isNumeric(subcatID) AND isNumeric(cat3rdID) then If catID > 0 AND subcatID > 0 AND cat3rdID > 0 then strSQL = "SELECT " & tablPfx & "Scat.scatName," & tablPfx & "Cat.catName " strSQL = strSQL & "FROM " & tablPfx & "Cat, " & tablPfx & "Scat WHERE " & tablPfx & "Cat.catID = " & CLng(catID) & " AND " & tablPfx & "Scat.sCatID = " & CLng(subcatID) & ";" set rscat = objConn.Execute(strSQL) If Not rscat.EOF then catName = rscat(1) subCatName = rscat(0) End If rscat.close %>
<%= strText_Home %>::<%= strText_CategoriesList %>::<%= catName %>::<%= subCatName %>::<%= cat3rdName %>
<% If Not IsNull(full_description) AND Not Len(full_description) = 0 then %>

<%= full_description %>

<% End If If Not moderator then showAll = " AND " & tablPfx & "Ads.status = 1 " If isNumeric(catID) And isNumeric(subcatID) And isNumeric(cat3rdID) then strAd = "SELECT " & tablPfx & "Ads.adID, " & tablPfx & "Ads.pdate, " & tablPfx & "Ads.nick, " & tablPfx & "Ads.city, " & tablPfx & "Ads.subject, " & tablPfx & "Ads.images, " strAd = strAd & tablPfx & "Ads.status, " & tablPfx & "Ads.adcounter, " & tablPfx & "Ads.hotlist, " & tablPfx & "Ads.userID, " & tablPfx & "Ads.webimage, " & tablPfx & "Cat.catOpt1, " & tablPfx & "Ads.opt1, " strAd = strAd & tablPfx & "Cat.catOpt2, " & tablPfx & "Ads.opt2, " & tablPfx & "Cat.catOpt3, " & tablPfx & "Ads.opt3, " & tablPfx & "Cat.catOpt4, " & tablPfx & "Ads.opt4, " & tablPfx & "Cat.catOpt5, " & tablPfx & "Ads.opt5" strAd = strAd & " FROM " & tablPfx & "Ads," & tablPfx & "Cat WHERE " & tablPfx & "Ads.cat3rdID = " & cat3rdID & showAll & " AND " & tablPfx & "Cat.catID = " & catID & " ORDER BY hotlist DESC, pdate DESC;" rs.PageSize = pp rs.CacheSize = pp rs.CursorLocation = 3 rs.Open strAd, strConn, 0, 1 If rs.EOF then Response.Write msgnoAds Else '** Use following field names to display up to first 5 optional fileds: (only first field displayed by default) firstOpt = rs(11) secondOpt = rs(13) thirdOpt = rs(15) forthOpt = rs(17) fifthOpt = rs(19) '** --------------------------- If isNumeric(Request("page")) and Len(Request("page")) > 0 then nPage = Request("page") Else: nPage = 1 End If URLlink = "viewsublist.asp?" & Server.URLEncode(Request.Querystring) pageType = 11 strPaging = buildPages(nPage, URLlink, pageType) '## paging built in libraries.asp Response.Write "
" & strPaging Response.Write "
" & strText_TotalPages & ": " & totalPage & "
" Response.Write strText_TotalPosted & ": " & totalRecords & "
" %>
<% If len(firstOpt) > 0 then Response.Write "" %> <% For J = 1 to displayRecords If rs.EOF Then Exit For Else NA = "" & strText_NA & "" adID = rs(0) active = CLng(rs(6)) iDate = FormatDateTime(rs(1), 2) subject = rs(4) subject = "" & subject & "" If rs(8) then subject = "   " & subject userID = rs(9) If CStr(session("user_logged_ID" & strSUnique)) = CStr(userID) then adOwner = True nick = rs(2) city = rs(3) webImage = rs(10) If len(webImage) > 0 then imgStr = "" & strText_Yes & "" Else: imgStr = "" & strText_NA & "" End If '** Use following values to display up to 5 optional fields: (only first field displayed by default) firstOptValue = rs(12) If len(firstOptValue) = 0 then firstOptValue = NA secondOptValue = rs(14) If len(secondOptValue) = 0 then secondOptValue = NA thirdOptValue = rs(16) If len(thirdOptValue) = 0 then thirdOptValue = NA forthOptValue = rs(18) If len(forthOptValue) = 0 then forthOptValue = NA fifthOptValue = rs(20) If len(fifthOptValue) = 0 then fifthOptValue = NA ' -------------- views = rs(7) If len(rs(5)) > 0 then imgTempArray = Split(rs(5), sf) img = Split(imgTempArray(0), "|")(0) size = Split(imgTempArray(0), "|")(1) w = CLng(Split(size, "x")(0)) + 50 h = CLng(Split(size, "x")(1)) + 70 imgStr = "" imgStr = imgStr & "" Else: imgStr = "N/A" End If If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" %> <% If len(firstOpt) > 0 then Response.Write "" %> <% rs.MoveNext End If Next rs.close %>
<%= strText_PostedOn %>: <%= strText_Subject %>: <%= strText_Picture %>:" & firstOpt & ":<%= strText_Views %>: <%= strText_Action %>:
align="center"><%= iDate %> ><%= subject %> align="center"><%= imgStr %>" & firstOptValue & " align="center"><%= views %> align="center"> <% If adOwner Or moderator then If active = 2 then Response.Write "" & strText_Repost & "" ElseIf active = 1 then Response.Write "" & strText_Edit & "" End If If moderator then Response.Write " Delete" If active = 0 then Response.Write " Activate" End If End If Else: Response.Write "=" End If %>

<% Session("ad3rdlist_show_page" & strSUnique) = Empty End If Else: Response.Write "

" & msgInvalid & "

" End If set rscat = objConn.Execute("SELECT " & tablPfx & "Cat.catName, " & tablPfx & "Cat.catID FROM " & tablPfx & "Cat ORDER BY catName;") Do while not rscat.EOF nextCatName = rscat("catName") nextcatID = rscat("catID") If nextCatName = catName then optCat = optCat & "" Else: optCat = optCat & "" End If rscat.MoveNext Loop rscat.close set rscat = Nothing %>
<%= strText_JumptoCategory %>: 
<% Else: Response.Write "

" & msgInvalid & "

" End If Else: Response.Write "

" & msgInvalid & "

" End If %>