<!--#include file="config/config.asp"-->
<!--#include file="libraries.asp"-->
<%
setLocale server_locale
redirURL = Request.Querystring.Item(1)
Select Case Request.Querystring.Item(2)

	Case "sortads": Session("Sort_User_Table" & strSUnique) = "sortads": TriggerOrder
	Case "sortnick": Session("Sort_User_Table" & strSUnique) = "sortnick": TriggerOrder
	Case "sortdate": Session("Sort_User_Table" & strSUnique) = "sortdate": TriggerOrder
	Case "sortcity": Session("Sort_User_Table" & strSUnique) = "sortcity": TriggerOrder
	Case "0": Session("User_List_Filter" & strSUnique) = "0": Session("User_List_Page" & strSUnique) = Empty
	Case "1": Session("User_List_Filter" & strSUnique) = "1": Session("User_List_Page" & strSUnique) = Empty
	Case "2": Session("User_List_Filter" & strSUnique) = "2": Session("User_List_Page" & strSUnique) = Empty
	Case "3": Session("User_List_Filter" & strSUnique) = "3": Session("User_List_Page" & strSUnique) = Empty
	Case "4": Session("User_List_Filter" & strSUnique) = "4": Session("User_List_Page" & strSUnique) = Empty
	Case "5": Session("User_List_Filter" & strSUnique) = "5": Session("User_List_Page" & strSUnique) = Empty
	Case "7": ResetAll
	Case "8": Session("User_List_Filter" & strSUnique) = "8": Session("User_List_Page" & strSUnique) = Empty
	Case "removeimage": remimg(false)
	Case "removeimageadmin": remimg(true)
	Case "switchcat" 
		session("Select_Category" & strSUnique) = Empty
		session("Select_SubCategory" & strSUnique) = Empty
		session("Select_CategoryID" & strSUnique) = Empty
		session("Select_SubCategoryID" & strSUnique) = Empty
		session("Select_3rdCategory" & strSUnique) = Empty
		session("Select_3rdCategoryID" & strSUnique) = Empty
	Case "9": page = Request.Querystring.Item(3): Session("User_List_Page" & strSUnique) = page
	Case "10": page = Request.Querystring.Item(3): Session("userlist_show_page" & strSUnique) = page
	Case "11"
		page = Request.Querystring.Item(3)
		ipage = "&page=" & page
		If instr(redirURL, "&page=") <> 0 then 
			redirURL = Left(redirURL, Len(redirURL) - (Len(redirURL) - InStr(redirURL, "&page=") + 1)) & ipage
		Else: redirURL = redirURL & ipage
		End If
	Case "12": page = Request.Querystring.Item(3): Session("log_show_page" & strSUnique) = page
	Case "13"
		If session("admin_loggedin" & strSUnique) = Session.SessionID then
			bName = Request.Querystring.Item(3)
			On Error Resume Next
			With CreateObject("Scripting.FileSystemObject")
				.DeleteFile server.mappath(bnrLocation) & "\" & bName
			End With
			On Error Goto 0
		End If
	Case "14": page = Request.Querystring.Item(3): Session("paylist_show_page" & strSUnique) = page
	Case "15": page = Request.Querystring.Item(3): Session("allads_print" & strSUnique) = page
	Case "16": page = Request.Querystring.Item(3): Session("ad_search" & strSUnique) = page
	Case "17": addToFavorites
	Case "18": hotlist(False)
	Case "19": hotlist(True)
	Case "20": addToEditorPick
	Case "21": page = Request.Querystring.Item(3): Session("hotlist_show_page" & strSUnique) = page
	Case "22": page = Request.Querystring.Item(3): Session("custom_page1" & strSUnique) = page
	Case "23": page = Request.Querystring.Item(3): Session("custom_page2" & strSUnique) = page
	Case "24": page = Request.Querystring.Item(3): Session("custom_page3" & strSUnique) = page
	Case "25": page = Request.Querystring.Item(3): Session("custom_page4" & strSUnique) = page
	Case "26": page = Request.Querystring.Item(3): Session("custom_page5" & strSUnique) = page
	Case "27": page = Request.Querystring.Item(3): Session("custom_page6" & strSUnique) = page
	Case "30": page = Request.Querystring.Item(3): Session("reply_show_page" & strSUnique) = page
	Case "31": page = Request.Querystring.Item(3): Session("reply_show_admin_page" & strSUnique) = page
	Case "sortimageup" : Call sortImage("up")
	Case "sortimagedown": Call sortImage("down")
	Case "enable": adModify(True)
	Case "disable": adModify(False)
	Case "cache": adID = request("id"): Set objFile = Server.CreateObject("Scripting.FileSystemObject"): Call cacheAds(adID)
	Case "cacheall": Call CacheAll()
	Case "delcache": Call delCache()
	Case "WY"
		val = Request.Querystring.Item(3)
		If val = "true" then
			Application("WYSIWYG" & strUnique) = "1"
		Else
			Application("WYSIWYG" & strUnique) = Empty
		End If
	Case "isHTML"
		val = Request.Querystring.Item(3)
		If val = "true" then
			Application("isHTML" & strUnique) = "1"
		Else
			Application("isHTML" & strUnique) = Empty
		End If
	Case "startOver": clearAll
	
End Select
Set rs = Nothing
objConn.close
Set objConn = Nothing
Response.Redirect redirURL

Sub TriggerOrder()
 If Session("Sort_Asc" & strSUnique) = True then
 	Session("Sort_Asc" & strSUnique) = False
 Else
 	Session("Sort_Asc" & strSUnique) = True
 End If
End Sub

Sub ResetAll()
	Session("User_List_Filter" & strSUnique) = Empty
	Session("User_Search_Keyword" & strSUnique) = Empty
	Session("User_List_Page" & strSUnique) = Empty
End Sub

Sub remimg(delete)
	Dim imgArray(10,1)

	imgName = Request.Querystring.Item(3)
	I = 1
	For L = 1 to 10
		If not CStr(session("Attach_Image" & strSUnique)(L,0)) = CStr(imgName) Then
			imgArray(I,0) = session("Attach_Image" & strSUnique)(L,0)
			imgArray(I,1) = session("Attach_Image" & strSUnique)(L,1)
			I = I + 1
		End If
	Next
	session("Attach_Image" & strSUnique) = imgArray
	session("Count_Image" & strSUnique) = session("Count_Image" & strSUnique) - 1

	If delete then
		On Error Resume Next
		Set objFile = Server.CreateObject("Scripting.FileSystemObject")
		objFile.DeleteFile(Server.Mappath(upload & imgName))
		On error goto 0
	End If
End Sub

Sub sortImage(act)
	markImgName = Request.Querystring.Item(3)
	imgArray = session("Attach_Image" & strSUnique)
	For I = 1 to 10 
		imgName = imgArray(I, 0)
		imgDim = imgArray(I, 1)
		If CStr(imgName) = CStr(markImgName) then
			Select Case act
				Case "up"
					downImgName = imgArray(I-1, 0)
					downDim = imgArray(I-1, 1)
					imgArray(I-1, 0) = imgName
					imgArray(I-1, 1) = imgDim
					imgArray(I, 0) = downImgName
					imgArray(I, 1) = downDim
				Case "down"
					upImgName = imgArray(I+1, 0)
					upDim = imgArray(I+1, 1)
					imgArray(I+1, 0) = imgName
					imgArray(I+1, 1) = imgDim
					imgArray(I, 0) = upImgName
					imgArray(I, 1) = upDim
			End Select
			session("Attach_Image" & strSUnique) = imgArray
			Exit For
		End If
	Next
End Sub

Sub adModify(act)
	adID = Request.Querystring.Item(3)
	strSQL = "SELECT catID,scatID,userID,cat3rdID FROM " & tablPfx & "Ads WHERE adID = '" & adID & "';"
	set rsd = objConn.Execute(strSQL)
	If not rsd.EOF then
		catID = CLng(rsd(0))
		scatID = CLng(rsd(1))
		cat3rdID = CLng(rsd(3))
		userID = rsd(2)
		If session("admin_loggedin" & strSUnique) = Session.SessionID Or session("user_logged_moderator" & strSUnique) Or CStr(userID) = CStr(session("user_logged_ID" & strSUnique)) then
			UpdateList act, catID, scatID, cat3rdID
			If act then status = 1: Else: status = 3
			strSQL = "UPDATE " & tablPfx & "Ads SET status = " & status & " WHERE adID = '" & adID & "';"
			objConn.Execute(strSQL)
		End If
	End If
	rsd.close
	Application("cl_marquee" & strUnique) = Empty
End Sub

Sub addToFavorites()
	userID = CStr(session("user_logged_ID" & strSUnique))
	adID = request("id")
	If Len(userID) < 6 Or Not isNumeric(userID) then Exit Sub
	favor = objConn.Execute("SELECT favor FROM " & tablUPfx & "User WHERE userID = " & CLng(userID) & ";")(0)
	strSQL = "UPDATE " & tablUPfx & "User SET favor = '" & favor & " " & adID & "' WHERE (userID = " & CLng(userID) & ") AND (favor IS NULL OR favor NOT LIKE '%" & adID & "%');"
	objConn.Execute(strSQL)
End Sub

Sub hotlist(act)
	If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Exit Sub
	adID = Request.Querystring.Item(3)
	If act then hlist = 1: Else: hlist = 0
	strSQL = "UPDATE " & tablPfx & "Ads SET hotlist = " & hlist & " WHERE adID = '" & adID & "';"
	objConn.Execute(strSQL)
End Sub

Sub addToEditorPick()
	If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Exit Sub
	adID = request("id")
	editor_pick = objConn.Execute("SELECT editor_pick FROM " & tablPfx & "Main ;")(0)
		strSQL = "UPDATE " & tablPfx & "Main SET editor_pick = '" & editor_pick & " " & adID & "' WHERE (editor_pick IS NULL OR editor_pick NOT LIKE '%" & adID & "%');"
	objConn.Execute(strSQL)
End Sub

Sub CacheAll()
	If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Exit Sub
	Set rs = objConn.Execute("SELECT adID FROM " & tablPfx & "Ads;")
	Set objFile = Server.CreateObject("Scripting.FileSystemObject")
	Do while NOT rs.EOF
		adID = rs(0)
		Call cacheAds(adID)
		rs.moveNext
	Loop
	rs.close
	Set objFile = Nothing
End Sub

Sub delCache()
	If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Exit Sub
	Set objFile = Server.CreateObject("Scripting.FileSystemObject")
	Set fld = objFile.GetFolder(Server.Mappath(ad_cache))
	Set fc = fld.files
	For each fl in fc
		objFile.DeleteFile(fl)
	Next
End Sub

Sub clearAll()
	Session("image_limit" & strSUnique) = Empty
	Session("duration_limit" & strSUnique) = Empty
	Session("hotlist" & strSUnique) = Empty
	Session("allow_post" & strSUnique) = Empty
	Session("final_price" & strSUnique) = Empty
	session("Count_Image" & strSUnique) = Empty
	session("Attach_Image" & strSUnique) = Empty
End Sub

Response.Write databaseType & rcver
%>