<% Response.Buffer = True Response.Expires = -1000 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl="no-cache" setLocale server_locale Sub Logon(flag, message, color) Session("Temp_Seed") = RandomNumber %>

<% Call Build_Box_Top("360", 150, message, "xl") %> <% Call Build_Box_Bottom(message) %>

<% End Sub If Len (Request.Form("width")) > 0 then width = Request.Form("width") lbar = CLng(Request.Form("lbar")) rbar = CLng(Request.Form("rbar")) portal = CLng(Request.Form("portal")) objConn.Execute("UPDATE " & tablPfx & "Advert SET adv21 = " & lbar & ", adv22 = " & rbar & ", adv25 = '" & width & "', adv27 = " & portal & ";") Application("advert" & strUnique) = Empty UpdateSessions False Response.Redirect adminPage & ".asp" End If Dim flag If Not Sess_Array(48) = Session.SessionID then flag = Request.form("flag") If flag = 0 then flag = 1 message = "Type Admin ID and Password to Enter" Call Logon(flag, message, htextcolor) ElseIf flag = 1 then Select Case seclog Case True AdminLogon = Request.Form("hash") strConfig = "SELECT admin_logon FROM " & tablPfx & "Config;" set rs = objConn.Execute(strConfig) If not rs.EOF then getlogon = rs(0) Set objMD5 = New MD5 objMD5.Text = getlogon & Session("Temp_Seed") getlogon = objMD5.HEXMD5 End If rs.close Case Else AdminLogon = Trim(Request.form("UserID")) & Trim(Request.form("Password")) Set objMD5 = New MD5 objMD5.Text = AdminLogon AdminLogon = objMD5.HEXMD5 strConfig = "SELECT admin_logon FROM " & tablPfx & "Config;" set rs = objConn.Execute(strConfig) If not rs.eof then getlogon = rs(0) End If rs.close End Select If Not getlogon = AdminLogon then flag = 1 Sess_Array(48) = Empty message = "User ID or Password is invalid!" Call Logon(flag, message, "#FF0000") If isEvents then Call logEvent("Admin Logon Denied", Empty, Empty, Empty, Empty, Empty) Else: Sess_Array(48) = Session.SessionID Response.Cookies("admin_loggedin" & strSUnique) = Session.SessionID Response.Cookies("admin_loggedin" & strSUnique).Path = "/" objConn.Execute("UPDATE " & tablPfx & "Config SET noexp = '" & Session.SessionID & "' ;") removeOrphan Session("Temp_Seed") = Empty If isEvents then Call logEvent("Admin Logon", Empty, Empty, Empty, Empty, Empty) UpdateSessions True Response.Redirect adminPage & ".asp" End If End If End If If Sess_Array(48) = Session.SessionID then If mysql then strSQL = "SELECT " & tablPfx & "Ads.status FROM " & tablPfx & "Ads WHERE (status = 0) LIMIT 0,1;" Else: strSQL = "SELECT TOP 1 " & tablPfx & "Ads.status FROM " & tablPfx & "Ads WHERE (status = 0);" End If set rs = objConn.Execute(strSQL) If Not rs.EOF then newads = "

" rs.close If (isnotfree and Not ispack) Or Not isnotfree then payLink = "" Else: payLink = "" End If %>
<% Call Build_Box_Top("650", 20, "Select an administrative task:", "xl") %>


		Pending Ads<%= newads %> activate/delete/edit pending ads		Expired & Disabled Ads manage expired ads
		Editor's Pick List view/delete ads you picked		All Ads Print Friendly shows all ads in print friendly format

		Categories Administration add/remove categories/subcategories		Admin Preferences board configurations
		Permissions check verify folders permissions		Options Builder build drop-down selectors for options

		User Manager manage user accounts	<%= payLink %>	<%= payLink %> Payment Processor and ads Durations payment processor and ads duration configuration (free and pay mode)
		Global account manager manage accounts globally		Replies to Ads manage ad replies

		Side Bars Content & Geometry manage side advertisement bars and appearance		Email Templates/Content Management configure email templates and content pages
		Main Page Configuration / FAQ main page display configuration		News Letters send announcements and news to members

		Visits Log view counter and statistics		Admin Help help and assistance
	You are running: Rapid Classified v3.15, Built: <%= rcver %>

<% Call Build_Box_Bottom("Select an administrative task:") End If Sub removeOrphan() baseDate = Now - 2 baseDate = ConvDate(baseDate) sdd = dd(objConn) strSQL = "SELECT " & tablPfx & "Temp.tempimg FROM " & tablPfx & "Temp WHERE tdate < " & sdd & baseDate & sdd & ";" set rsTemp = objConn.Execute(strSQL) If not rsTemp.EOF then On Error Resume Next Do While Not rsTemp.EOF nextImage = rsTemp(0) objFile.DeleteFile(uploadPATH & nextImage) objFile.DeleteFile(uploadPATH & gettf(nextImage)) rsTemp.MoveNext Loop On Error Goto 0 objConn.Execute("DELETE FROM " & tablPfx & "Temp WHERE tdate < " & sdd & baseDate & sdd & ";") End If rsTemp.close set rsTemp = Nothing objConn.Execute("DELETE FROM " & tablPfx & "Agent WHERE edate < " & sdd & ConvDate(Date) & sdd & ";") End Sub %>