<%
If not session("admin_loggedin" & strSUnique) = Session.SessionID And session("user_logged_moderator" & strSUnique) = False then Response.Redirect "default.asp"
%>
Pending Ads
<%
strSQL = "SELECT adID,userID,pdate,edate,subject,nick,IP,price,hotlist FROM " & tablPfx & "Ads WHERE status = 0;"
set rs = objConn.Execute(strSQL)
If rs.EOF then
Response.Write "
There are no pending records in database.
"
Else
%>
Subject
User
IP Address
Duration
Posted On
Ad Price
Action
<%
I = 1
Do While Not rs.EOF
If not rs.EOF then
If I mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'": End If
subject = rs(4)
If Cbool(rs(8)) then subject = " " & subject
nick = rs(5)
duration = CDate(rs(3)) - CDate(rs(2))
duration = Round(duration)
postedOn = FormatDateTime(rs(2), 0)
adID = rs(0)
IP = rs(6)
userID = rs(1)
If len(rs(7)) = 0 then adPrice = "Free": Else: adPrice = rs(7)
With Response
.Write "
" & subject
nick = rs(5)
duration = CDate(rs(3)) - CDate(rs(2))
duration = Round(duration)
postedOn = FormatDateTime(rs(2), 0)
adID = rs(0)
IP = rs(6)
userID = rs(1)
If len(rs(7)) = 0 then adPrice = "Free": Else: adPrice = rs(7)
With Response
.Write "