<% Dim totalPage, totalRecords, displayRecords If CStr(session("user_logged_ID" & strSUnique)) = Empty And NOT session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "register.asp" If CStr(session("user_logged_ID" & strSUnique)) = Empty then unick = sq(Request("nick")) infoText = strText_ReplForUser & "" & unick & "" Else unick = sq(session("user_logged_nick" & strSUnique)) infoText = strText_ReplToMyAds End If If CStr(session("user_logged_ID" & strSUnique)) = Empty then userID = CLng(Request("id")) Else: userID = CLng(session("user_logged_ID" & strSUnique)) End If msgNomarkes = "

" & strText_ReplNoRepl & "

" If Len(Request.Form("C1")) > 0 Then For each item in Request("C1") nextID = CLng(item) strSQL = "UPDATE " & tablPfx & "Reply SET flag = 0 WHERE ID = " &nextID & ";" objConn.Execute(strSQL) Next Response.Redirect "replies.asp?" & Request.Querystring End If %>
<%= strText_Home %>::<%= infoText %>
<% strSQL = "SELECT * FROM " & tablPfx & "Reply WHERE userID = " & userID & " AND flag = 1 ORDER BY rdate DESC;" rs.PageSize = pp rs.CacheSize = pp rs.CursorLocation = 3 rs.Open strSQL, strConn, 0, 1 If not rs.EOF then nPage = Session("reply_show_page" & strSUnique) URLlink = "replies.asp?" & Server.URLEncode(Request.Querystring) pageType = 30 strPaging = buildPages(nPage, URLlink, pageType) '## paging built in libraries.asp Response.Write strPaging Response.Write "
" & strText_TotalPages & ": " & totalPage & "
" Response.Write strText_ReplTotal & totalRecords & "
" %>
<% J = 0 Do while not rs.EOF iDate = rs(1) senderName = rs(2) senderEmail = rs(3) senderString = "" & senderName & "" message = rs(5) adName = rs(6) adID = rs(7) IP = rs(9) adTitle = "" & adName & "" If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" %> <% J = J + 1 rs.MoveNext Loop %>
<%= strText_ReplRepliedOn %>: <%= strText_AdTitle %>: <%= strText_ReplSender %>: <%= strText_ReplMessage %>: <%= strText_Remove %>:
><%= iDate %> > <%= adTitle %> ><%= senderString %>
IP: <%= IP %>		 > >

<% Session("reply_show_page" & strSUnique) = Empty Else: Response.Write msgNomarkes End If rs.close %>