<% Dim totalPage, totalRecords, displayRecords, Opt(20), OptV(20), option_(20), uoption_(7), uOpt_(7) For I = 1 To 7 If CInt(uOptSearch(I - 1)) > 1 AND Len(uOpt(I-1)) > 0 Then uoption_(I) = True Next msgnoAds = "
" & strText_NoAdsSubmitted & msgBack & "
" msgInvalid = strText_InvalidRequestList If CBool(Sess_Array(35)) Or Sess_Array(48) = 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 %> <% 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 Set rsso = objConn.Execute("SELECT * FROM " & tablPfx & "Cat WHERE catID = " & catID & ";") If not rsso.EOF Then For I = 1 To 20 If CLng(rsso("catOptSearch" & I)) > 1 Then option_(I) = True Next End If rsso.close 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 & tablPfx & "Cat.catOpt6, " & tablPfx & "Ads.opt6, " & tablPfx & "Cat.catOpt7, " & tablPfx & "Ads.opt7, " & tablPfx & "Cat.catOpt8, " & tablPfx & "Ads.opt8, " & tablPfx & "Cat.catOpt9, " & tablPfx & "Ads.opt9, " strAd = strAd & tablPfx & "Cat.catOpt10, " & tablPfx & "Ads.opt10, " & tablPfx & "Cat.catOpt11, " & tablPfx & "Ads.opt11, " & tablPfx & "Cat.catOpt12, " & tablPfx & "Ads.opt12, " & tablPfx & "Cat.catOpt13, " & tablPfx & "Ads.opt13, " strAd = strAd & tablPfx & "Cat.catOpt14, " & tablPfx & "Ads.opt14, " & tablPfx & "Cat.catOpt15, " & tablPfx & "Ads.opt15, " & tablPfx & "Cat.catOpt16, " & tablPfx & "Ads.opt16, " & tablPfx & "Cat.catOpt17, " & tablPfx & "Ads.opt17, " strAd = strAd & tablPfx & "Cat.catOpt18, " & tablPfx & "Ads.opt18, " & tablPfx & "Cat.catOpt19, " & tablPfx & "Ads.opt19, " & tablPfx & "Cat.catOpt20, " & tablPfx & "Ads.opt20, " strAd = strAd & tablPfx & "Ads.uopt1, " & tablPfx & "Ads.uopt2, " & tablPfx & "Ads.uopt3, " strAd = strAd & tablPfx & "Ads.uopt4, " & tablPfx & "Ads.uopt5, " & tablPfx & "Ads.uopt6, " & tablPfx & "Ads.uopt7" strAd = strAd & " FROM " & tablPfx & "Ads," & tablPfx & "Cat WHERE " & tablPfx & "Ads.cat3rdID = " & cat3rdID & showAll & " AND " & tablPfx & "Cat.catID = " & catID & " ORDER BY hotlist DESC, pdate DESC;" set rs = objConn.Execute(strAd) If rs.EOF then Response.Write msgnoAds rs.close Else 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 & "
" Call Build_List_Top("center", "99%", "xl_list") ghdata = rs.getrows(displayRecords) rs.close %> <% For I = 1 To 7 If uoption_(I) Then Response.Write "" Next For I = 1 To 20 If option_(I) Then ind = ((I * 2) - 1) + 10 Opt(I) = ghdata(ind, 0) If IsNull(Opt(I)) Then Opt(I) = Empty If len(Opt(I)) > 0 then Response.Write "" End If Next %> <% If Sess_Array(29) > 0 or moderator then %> <% End If %> <% For J = 0 to Ubound(ghdata, 2) adID = ghdata(0, J) active = CLng(ghdata(6, J)) iDate = FormatDateTime(ghdata(1, J), 2) subject = ghdata(4, J) subject = "" & subject & "" If ghdata(8, J) then subject = "   " & subject userID = ghdata(9, J) If CStr(Sess_Array(29)) = CStr(userID) then adOwner = True: Else: adOwner = False nick = ghdata(2, J) city = ghdata(3, J) views = ghdata(7, J) imgStr = displayImage(ghdata(5, J), adID, 0) If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" %> > <% For I = 1 To 7 If uoption_(I) Then uOpt_(I) = ghdata(I + 50, J) If IsNull(uOpt_(I)) Then uOpt_(I) = Empty If Len(uOpt_(I)) = 0 Then uOpt_(I) = NA Response.Write "" End If Next For I = 1 To 20 If option_(I) And Len(Opt(I)) > 0 Then ind = (I * 2) + 10 OptV(I) = ghdata(ind, J) If IsNull(OptV(I)) Then OptV(I) = Empty If Len(OptV(I)) = 0 Then OptV(I) = NA Response.Write "" End If Next %> <% If Sess_Array(29) > 0 or moderator then %> <% End If %> <% Next Erase ghdata %>
<%= strText_PostedOn %>: <%= strText_Subject %>: <%= strText_Picture %>:" & uOpt(I-1) & ":" & Opt(I) & ":<%= strText_Views %>:<%= strText_Action %>:
<%= iDate %>  <%= subject %> <%= imgStr %>" & uOpt_(I) & "" & OptV(I) & "<%= views %> <% 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 %>
<% Call Build_List_Bottom() %>
<% End If If not showAllAds AND Sess_Array(63) = "1" AND Sess_Array(48) = Session.SessionID then If Len(Sess_Array(64)) = 0 then strMover = "Move Ads From This Category" Else ccid = Split(Sess_Array(64), "|")(0) csid = Split(Sess_Array(64), "|")(1) cat3id = Sess_Array(65) If Sess_Array(65) = "0" then view_src = "viewlist.asp?cid=" & ccid & "&sid=" & csid Else view_src = "viewsublist.asp?cid=" & ccid & "&sid=" & csid & "&3id=" & Sess_Array(65) End If strMover = "View Current Source Category

Make This Category the Source | " strMover = strMover & "" & subCatName & "] !!')) {return false}"">Move Ads to this Category" End If Response.Write "

" & strMover & "


" End If If not showAllAds AND Sess_Array(66) = "1" AND Sess_Array(48) = Session.SessionID then strMover = "Remove ALL Ads from this Category" Response.Write "

" & strMover & "


" 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 %>