<%
If Not session("admin_loggedin" & strSUnique) = Session.SessionID and session("user_logged_moderator" & strSUnique) = False then Response.Redirect "default.asp"
setLocale server_locale
sdd = dd(objConn)
Dim uSubject, uBody
If request.querystring.count = 1 then
strSQL = "SELECT " & tablPfx & "Ads.nick," & tablPfx & "Ads.catID," & tablPfx & "Ads.scatID," & tablPfx & "Ads.adID," & tablPfx & "Ads.pdate,"
strSQL = strSQL & tablPfx & "Ads.edate," & tablUPfx & "User.email, " & tablPfx & "Ads.subject, " & tablPfx & "Ads.body, " & tablPfx & "Ads.cat3rdID FROM " & tablPfx & "Ads," & tablUPfx & "User WHERE ("
strSQL = strSQL & tablPfx & "Ads.status = 0 AND " & tablPfx & "Ads.userID = " & tablUPfx & "User.userID);"
set rsAll = objConn.Execute(strSQL)
Do While Not rsAll.EOF
If Not rsAll.EOF then
setLocale server_locale
uNick = rsAll(0)
catID = CLng(rsAll(1))
subcatID = CLng(rsAll(2))
cat3rdID = CLng(rsAll(9))
adID = rsAll(3)
pdate = CDate(rsAll(4))
edate = CDate(rsAll(5))
uEmail = CryptText(rsAll(6), key, True)
subject = rsAll(7)
body = rsAll(8)
duration = edate - pdate
duration = Round(duration)
edate = Now + duration
edate = ConvDate(edate)
iNow = ConvDate(Now)
strSQL = "UPDATE " & tablPfx & "Ads SET status = 1, pdate = " & sdd & iNow & sdd & ", edate = " & sdd & edate & sdd & " WHERE adID = '" & adID & "';"
objConn.Execute(strSQL)
Call UpdateList(True, catID, subcatID, cat3rdID)
Call getTemplate("New_Ad_Approved", uEmail, Empty, uNick, Empty, adID)
Call sendEmail(uEmail, notify_email, uSubject, uBody)
Call matchAlerts(adID, catID, subcatID, cat3rdID, subject, body)
rsAll.MoveNext
End If
Loop
Application("cl_marquee" & strUnique) = Empty
rsAll.close
set rsAll = Nothing
Response.Write "All Ads has been approved!
"
Else:
Response.Redirect "default.asp"
End If
%>