<% Dim totalPage, totalRecords, displayRecords msgNotFound = "

" & strText_UserNotFound & msgBack & "

" msgnoAds = "

" & strText_AdsforUser & " " msgnoAds1 = " " & strText_UserAdsPending & msgBack & "

" If session("user_logged_moderator" & strSUnique) Or session("admin_loggedin" & strSUnique) = Session.SessionID then moderator = True If Request.Querystring.Count > 0 then userID = request.querystring.item(1) If isNumeric(userID) then If CStr(session("user_logged_ID" & strSUnique)) = CStr(userID) then adOwner = True Else: Response.redirect "register.asp" End If Else: Response.redirect "register.asp" End If If adOwner then nick = session("user_logged_nick" & strSUnique) city = session("user_logged_city" & strSUnique) Else Set rsUser = objConn.Execute("SELECT " & tablUPfx & "User.nick, " & tablUPfx & "User.city FROM " & tablUPfx & "User WHERE userID = " & userID & ";") If rsUser.EOF then msg = msgNotFound userError = True Else nick = rsUser(0) city = rsUser(1) End If set rsUser = Nothing End If If not userError then If Not moderator And Not adOwner Then showAll = " AND status = 1 " strAd = "SELECT " & tablPfx & "Ads.adID, " & tablPfx & "Ads.pdate, " & tablPfx & "Ads.subject, " & tablPfx & "Ads.images, " strAd = strAd & tablPfx & "Ads.status, " & tablPfx & "Ads.adcounter, " & tablPfx & "Ads.hotlist, " & tablPfx & "Ads.webimage, " & tablPfx & "Ads.price" strAd = strAd & " FROM " & tablPfx & "Ads WHERE userID = " & userID & showAll & " 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 If adOwner then Response.Redirect "post_start.asp" Response.Write msgnoAds & nick & msgnoAds1 Else %>
<%= strText_Home %>::<%= strText_Alladspostedby %>: <%= nick %> <%= strText_From %>: <%= city %>
<% If isNumeric(Request("page")) and Len(Request("page")) > 0 then nPage = Request("page") Else: nPage = 1 End If URLlink = "viewuserlist.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 moderator or adOwner then %> <% End If %> <% For J = 1 to displayRecords If rs.EOF Then Exit For Else adID = rs(0) status = CLng(rs(4)) Select Case status Case 0: active = strText_Pending Case 1: active = strText_Active Case 2: active = strText_Expired Case 3: active = strText_Disabled End Select iDate = FormatDateTime(rs(1), 2) subject = rs(2) subject = "" & subject & "" If rs(6) then subject = "   " & subject If CStr(session("user_logged_ID" & strSUnique)) = CStr(userID) then adOwner = True webImage = rs(7) If len(webImage) > 0 then imgStr = "" & strText_Yes & "" Else: imgStr = "" & strText_NA & "" End If views = rs(5) If len(rs(3)) > 0 then imgTempArray = Split(rs(3), 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(rs(8)) = 0 then adPrice = "Free": Else: adPrice = rs(8) %> <% If moderator or adOwner then Response.Write "" Response.Write "" End If Response.Write "" rs.MoveNext End If Next rs.close Response.Write "
<%= strText_PostedOn %>: <%= strText_Subject %>: <%= strText_Status %>: <%= strText_Picture %>: <%= strText_Views %>:<%= strText_Price %>: <%= strText_Action %>:
align="center"><%= iDate %> ><%= subject %> align="center"><%= active %> align="center"><%= imgStr %> align="center"><%= views %>" & adPrice & "" If status = 2 then Response.Write "" & strText_Repost & "" Else If not status = 3 then Response.Write "" & strText_Edit & "" End If Response.Write " Delete" If moderator And status = 0 then Response.Write " Activate" End If If status = 3 then Response.Write " " & strText_Enable & "" Response.Write "
" %>

<% Session("userlist_show_page" & strSUnique) = Empty 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 %>: 
<% End If End If %>