<% If CStr(session("user_logged_ID" & strSUnique)) = Empty then Response.Redirect "register.asp" userID = CLng(session("user_logged_ID" & strSUnique)) msgNomarkes = "

" & strText_FavoritesListEmpty & "

" msgHead = "

" & strText_BookmarkedAds & "

" set rsf = objConn.Execute("SELECT " & tablUPfx & "User.favor FROM " & tablUPfx & "User WHERE(userID = " & userID & " AND favor IS NOT NULL);") If not rsf.EOF then fList = rsf(0) rsf.close If Len(Request.Form("C1")) > 0 Then For each item in Request("C1") fList = Replace(fList, " " & item, "") Next If Len(fList) < 2 then fList = null strSQL = "UPDATE " & tablUPfx & "User SET favor = '" & fList & "' WHERE userID = " & userID & ";" objConn.Execute(strSQL) End If fList = Trim(fList) %>
<%= strText_Home %>::<%= strText_MyBookmarkedAds %>
<% If Len(fList) > 0 then fArray = Split(fList) For each item in fArray strCondition = strCondition & " OR adID = '" & item & "'" Next strCondition = Replace(strCondition, "OR", "", 1, 1) strSQL = "SELECT pdate,subject,userID,nick,adID FROM " & tablPfx & "Ads WHERE (status = 1) AND (" & strCondition & ");" set rsf = objConn.Execute(strSQL) If rsf.EOF then Response.Write msgNomarkes objConn.Execute("UPDATE " & tablUPfx & "User SET favor = NULL WHERE userID = " & userID & ";") Else Response.Write msgHead %>
<% J = 0 Do while not rsf.EOF iDate = FormatDateTime(rsf(0), 2) subject = rsf(1) auserID = rsf(2) nick = rsf(3) adID = rsf(4) subject = "" & subject & "" nick = "" & nick & "" If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" %> <% J = J + 1 rsf.MoveNext Loop %>
<%= strText_PostedOn %>: <%= strText_Subject %>: <%= strText_Author %>: <%= strText_Delete %>:
><%= iDate %> > <%= subject %> ><%= nick %> >

<% End If Else: Response.Write msgNomarkes End If %>