<% If Not Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "default.asp" End If msgNomarkes = "
The Editor's Pick List is Empty.
" If Len(Request.Form("C1")) > 0 Then For each item in Request("C1") objConn.Execute("UPDATE " & tablPfx & "Ads SET epick = 0 WHERE adID = '" & item & "';") Next End If %>
Editor's Pick
<% strSQL = "SELECT pdate,subject,userID,nick,adID,hotlist,status FROM " & tablPfx & "Ads WHERE (epick = 1) ORDER BY pdate DESC;" set rsf = objConn.Execute(strSQL) If rsf.EOF then Response.Write msgNomarkes Else %>
<% Call Build_List_Top("center", "99%", "xl_list") %> <% J = 0 Do while not rsf.EOF iDate = FormatDateTime(rsf(0), 2) subject = rsf(1) auserID = rsf(2) nick = rsf(3) adID = rsf(4) stus = rsf(6) Select Case CLng(stus) Case 0: status = "pending" Case 1: status = "active" Case 2: status = "expired" Case 3: status = "disabled" End Select subject = "" & subject & "" If Cbool(rsf(5)) then subject = " " & subject nick = "" & nick & "" If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" %> <% J = J + 1 rsf.MoveNext Loop %>
Posted on: Subject: Author: Status: Remove:
><%= iDate %> > <%= subject %> ><%= nick %> ><%= status %> >
<% Call Build_List_Bottom() %>
<% End If %>