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