<%
Class O_showcase
	Private oConn	
	Private oBase
	Private intID

	Sub Class_Initialize()
		Set oBase = Base
	End Sub
	
	Function Connect(sConn,ID)
		Set oConn = sConn
		intID = ID
	End Function
	
	Function Sidebar
		Response.Write(oBase.LoadView("showcase","sidebar",0))
	End Function
	
	Public Function All(intID)
		intType = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = 1") + 1
		sFile = oBase.LoadView("showcase","all",1)
		aParts = DoSplit(sFile)
		sHeader = aParts(0)
		sFooter = aParts(2)
		sQ = oDB.ExecuteQuery(oConn,"SELECT id, title, content, date_added, display, files_id, category_id, showcase_id FROM showcase_pages ORDER BY date_added DESC")
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				sRepeat = sRepeat & aParts(1)
				sRepeat = oBase.InsertValue(sRepeat,"ID",sQ(0,i))
				sRepeat = oBase.InsertValue(sRepeat,"TITLE",sQ(1,i))
				sRepeat = oBase.InsertValue(sRepeat,"SHOWCASE",oDB.GetValue(oConn,"title","showcase_setup","WHERE id = " & sQ(7,i)))
				sRepeat = oBase.InsertValue(sRepeat,"DATE",FormatDateTime(sQ(3,i),1))
				sRepeat = oBase.InsertValue(sRepeat,"FILES_ID",sQ(5,i))
				Select Case intType
					Case 1
						sRepeat = oBase.InsertValue(sRepeat,"CATEGORY","N/A")
					Case 2
						sRepeat = oBase.InsertValue(sRepeat,"CATEGORY",GetCategory(sQ(6,i)))
				End Select
				sFooter = oBase.InsertValue(sFooter,"NOTHING",False)
			Next
		Else
			sFooter = oBase.InsertValue(sFooter,"NOTHING",True)
		End If
		Response.Write(sHeader & sRepeat & sFooter)
	End Function
			
	Public Function Add(intID)
		intType = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = 1") + 1
		sFile = oBase.LoadView("showcase","add",0)
		
		Select Case intType
			Case 1
				sFile = oBase.InsertValue(sFile,"MULTI",False)
			Case 2
				sFile = oBase.InsertValue(sFile,"CATEGORY_LIST",CategoryList(0,0))
				sFile = oBase.InsertValue(sFile,"MULTI",True)
		End Select
		sFile = oBase.InsertValue(sFile,"IMAGES",Files.UploadForm(Null))
		Response.Write(sFile)
	End Function
	
	Function Edit(intID)
		intType = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = 1") + 1
		sFile = oBase.LoadView("showcase","edit",1)
		aParts = DoSplit(sFile)
		sHeader = aParts(0)
		sFooter = aParts(2)
		
		sQ = oDB.ExecuteQuery(oConn,"SELECT id, title, content, files_id, category_id, showcase_id FROM showcase_pages WHERE id = " & intID)
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				sRepeat = sRepeat & aParts(1)
				sRepeat = oBase.InsertValue(sRepeat,"ID",sQ(0,i))
				sRepeat = oBase.InsertValue(sRepeat,"TITLE",sQ(1,i))
				
				Select Case intType
					Case 1
						sRepeat = oBase.InsertValue(sRepeat,"MULTI",False)
					Case 2
						sRepeat = oBase.InsertValue(sRepeat,"CATEGORY_LIST",CategoryList(sQ(4,i),sQ(5,i)))
						sRepeat = oBase.InsertValue(sRepeat,"MULTI",True)
				End Select
				sRepeat = oBase.InsertValue(sRepeat,"CONTENT",sQ(2,i))
				sRepeat = oBase.InsertValue(sRepeat,"IMAGES",Files.UploadForm(Null))
			Next
		End If
		Response.Write(sHeader & sRepeat & sFooter)
	End Function
	
	Public Function Save(nID)
		dim aFields
		intShowcase = 0
		Set aFields = Server.CreateObject("Scripting.Dictionary")
		
		For Each Item in Request.Form
			If Item = "category_id" Then
				If InStr(Request.Form(Item),"show_") Then
					intShowcase = Replace(Request.Form(Item),"show_","")
					aFields(Item) = 0
				Else
					intShowcase = oDB.GetValue(oConn,"showcase_id","showcase_categories","WHERE id = " & Request.Form(Item))
					If intShowcase = Null Then
						intParent = oDB.GetValue(oConn,"parent_id","showcase_categories","WHERE id = " & Request.Form(Item))
						intShowcase = oDB.GetValue(oConn,"showcase_id","showcase_categories","WHERE id = " & intParent)
					End If
					aFields(Item) = Request.Form(Item)
				End If
			Else
				aFields(Item) = Request.Form(Item)
			End If
		Next
		aFields("showcase_id") = intShowcase	
		
		iBlogID = oDB.ExecuteInsert(oConn,"showcase_pages",aFields)
		Set aFields = Nothing
		If iBlogID > 0 Then
			Response.Redirect("?controller=showcase&view=all&success-msg=Item successfully added")
		Else
			Response.Write("<p>An error has occurred while saving the showcase item.</p>")
		End If
	End Function
	
	Public Function Update(nID)
		dim aFields
		Set aFields = Server.CreateObject("Scripting.Dictionary")
		
		For Each Item in Request.Form
			If Item = "category_id" Then
				If InStr(Request.Form(Item),"show_") Then
					intShowcase = Replace(Request.Form(Item),"show_","")
					aFields(Item) = 0
				Else
					intShowcase = oDB.GetValue(oConn,"showcase_id","showcase_categories","WHERE id = " & Request.Form(Item))
					aFields(Item) = Request.Form(Item)
				End If
			Else
				aFields(Item) = Request.Form(Item)
			End If
		Next
		aFields("showcase_id") = intShowcase
		
		intID = oDB.ExecuteUpdate(oConn,"showcase_pages",aFields)
		Set aFields = Nothing
		If intID = True Then
			Response.Redirect("?controller=showcase&view=all&success-msg=Page successfully updated")
		Else
			Response.Redirect("?controller=showcase&view=all&error-msg=An error has occurred while updating the showcase page")
		End If
	End Function
	
	Function Delete(intID)
		sFiles = oDB.GetValue(oConn,"files_id","showcase_pages","WHERE id = " & intID)
		Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If oFS.FolderExists(C_ROOT_UPLOADS & sFiles) Then
			oFS.DeleteFolder(C_ROOT_UPLOADS & sFiles)
		End If
		Set oFS = Nothing
		
		sQ = "DELETE FROM showcase_pages WHERE id = " & intID
		oDB.ExecuteNonQuery oConn,sQ
		Response.Redirect("?controller=showcase&view=all&success-msg=Showcase page successfully deleted")
	End Function
	
	Function ShowcaseVersion(iID)
		sReturn = "<option value="""">Please Select</option>"
		sQ = oDB.ExecuteQuery(oConn,"SELECT id,title,showcase_level FROM showcase_setup")
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				If iID = sQ(0,i) Then
					sReturn = sReturn & "<option title="""&sQ(2,i)&""" selected=""selected"" value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>"
				Else
					sReturn = sReturn & "<option title="""&sQ(2,i)&""" value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>"
				End If
			Next
		End If
		ShowcaseVersion = sReturn
	End Function
	
	Function All_Categories(nID)
		intType = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = 1") + 1
		Select Case intType
			Case 1
				Response.Write("<h1>Sorry</h1><p>Showcase categories are only available in multi-level showcases. Please contact <a href=""http://www.iisgroup.co.za"" target=""_blank"">IIS Group</a> to discuss upgrading your showcase to a multi-level showcase.</p>")
			Case 2
				sFile = oBase.LoadView("showcase","all_categories",1)
				aParts = DoSplit(sFile)
				sHeader = aParts(0)
				sFooter = aParts(2)
				
				sQ = oDB.ExecuteQuery(oConn,"SELECT id, title, parent_id, sort_order, showcase_id FROM showcase_categories ORDER BY title ASC")
				If IsArray(sQ) Then
					For i = 0 to uBound(sQ,2)
						sRepeat = sRepeat & aParts(1)
						sRepeat = oBase.InsertValue(sRepeat,"TITLE",sQ(1,i))
						sRepeat = oBase.InsertValue(sRepeat,"PARENT",GetParentName(sQ(2,i)))
						sRepeat = oBase.InsertValue(sRepeat,"ITEM_COUNT",GetItemCount(sQ(0,i)))
						sRepeat = oBase.InsertValue(sRepeat,"ID",sQ(0,i))
						sRepeat = oBase.InsertValue(sRepeat,"TYPE",GetShowcaseType(sQ(4,i)))
					Next
				Else
					sRepeat = "<div class=""row"">There are currently no defined categories. <a href="""&URL("showcase","add_category",0)&""">Define one now?</a></div>"
				End If
				Response.Write(sHeader & sRepeat & sFooter)
		End Select
	End Function
	
	Function Add_Category(nID)
		sFile = oBase.LoadView("showcase","add_category",1)
		aParts = DoSplit(sFile)
		sHeader = aParts(0)
		sFooter = aParts(2)
		sContent = aParts(1)
		sContent = oBase.InsertValue(sContent,"PARENT_LIST",ParentList(0))
		sContent = oBase.InsertValue(sContent,"SHOWCASE_SETUP",ShowcaseVersion(0))
		Response.Write(sHeader & sContent & sFooter)
	End Function
	
	Function Category_Save(nID)
		dim aFields
		Set aFields = Server.CreateObject("Scripting.Dictionary")
		For Each Item in Request.Form
			'Response.Write("<p>" & Item & " - " & Request.Form(Item) & "</p>")
			If Item = "sort_order" Then
				If Request.Form("sort_order") <> "" Then
					aFields(Item) = Request.Form(Item)
				Else
					aFields(Item) = 0
				End If
			Else
				aFields(Item) = Request.Form(Item)
			End If
			
		Next
		iDBID = oDB.ExecuteInsert(oConn,"showcase_categories",aFields)
		Set aFields = Nothing
		If iDBID > 0 Then
			Response.Redirect("?controller=showcase&view=all_categories&success-msg=Category successfully added")
		Else
			Response.Write("<p>An error has occurred while saving the category.</p>")
		End If
	End Function
	
	Function Category_Update(nID)
		dim aFields
		Set aFields = Server.CreateObject("Scripting.Dictionary")
		For Each Item in Request.Form
			'Response.Write("<p>" & Item & " - " & Request.Form(Item) & "</p>")
			If Item = "sort_order" Then
				If Request.Form("sort_order") <> "" Then
					aFields(Item) = Request.Form(Item)
				Else
					aFields(Item) = 0
				End If
			Else
				aFields(Item) = Request.Form(Item)
			End If
			
		Next
		iDBID = oDB.ExecuteUpdate(oConn,"showcase_categories",aFields)
		Set aFields = Nothing
		If iDBID = true Then
			Response.Redirect("?controller=showcase&view=all_categories&success-msg=Category successfully updated")
		Else
			Response.Write("<p>An error has occurred while saving the category.</p>")
		End If
	End Function
	
	Function Edit_Category(nID)
		sFile = oBase.LoadView("showcase","edit_category",1)
		aParts = DoSplit(sFile)
		sQ = oDB.ExecuteQuery(oConn,"SELECT id,title,parent_id,description,sort_order,showcase_id FROM showcase_categories WHERE id = " & nID)
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				sRepeat = sRepeat & aParts(1)
				sRepeat = oBase.InsertValue(sRepeat,"TITLE",sQ(1,i))
				sRepeat = oBase.InsertValue(sRepeat,"DESCRIPTION",sQ(3,i))
				sRepeat = oBase.InsertValue(sRepeat,"SORT_ORDER",sQ(4,i))
				sRepeat = oBase.InsertValue(sRepeat,"PARENT_LIST",ParentList(sQ(2,i)))
				sRepeat = oBase.InsertValue(sRepeat,"ID",sQ(0,i))
				sRepeat = oBase.InsertValue(sRepeat,"SHOWCASE_SETUP",ShowcaseVersion(sQ(5,i)))
			Next
		Else
			sRepeat = "<p>The item you are looking for does not exist.</p>"
		End If
		Response.Write(aParts(0) & sRepeat & aParts(2))
	End Function
	
	Function Delete_Category(nID)
		sQ = oDB.DeleteRecord(oConn,"SELECT id FROM showcase_categories WHERE id = " & nID)
		sQ = oDB.DeleteRecord(oConn,"SELECT id FROM showcase_categories WHERE parent_id = " & nID)
		If sQ = true Then
			Response.Redirect("?controller=showcase&view=all&success-msg=Category has been deleted")
		Else
			Response.Redirect("?controller=showcase&view=all&error-msg=Category could not be deleted")
		End If
	End Function
	
	Function GetCategory(iID)
		sReturn = oDB.GetValue(oConn,"title","showcase_categories","WHERE id = " & iID)
		If sReturn = "" Then
			sReturn = "None"
		End If
		GetCategory = sReturn
	End Function
	
	Function CategoryList(iID,intShowcase)
		Dim sQ
		Dim i
		intLevel = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = " & intShowcase)
		sReturn = ""
		sReturn = "<option value=""0"">Choose Category</option>"
		sQa = oDB.ExecuteQuery(oConn,"SELECT id, title FROM showcase_setup ORDER BY title ASC")
		If IsArray(sQa) Then
			For j = 0 to uBound(sQa,2)
				sReturn = sReturn & "<optgroup label=""==============""></optgroup>"
				If IsMultiple(sQa(0,j)) Then
					sReturn = sReturn & "<optgroup label="""&sQa(1,j)&""">"
				Else
					If Trim(sQa(0,j)) = Trim(intShowcase) Then
						sReturn = sReturn & "<option selected value=""show_"&sQa(0,j)&""">"&sQa(1,j)&"</option>"
					Else
						sReturn = sReturn & "<option value=""show_"&sQa(0,j)&""">"&sQa(1,j)&"</option>"
					End If
				End If
				sQ = oDB.ExecuteQuery(oConn,"SELECT id, title FROM showcase_categories WHERE parent_id = 0 AND showcase_id = "&sQa(0,j)&" ORDER BY title ASC")
				If IsArray(sQ) Then
					For i = 0 to uBound(sQ,2)
						If HasChildCategory(sQ(0,i)) Then
							intLevel = oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = " & sQa(0,j))
							If intLevel = 2 Then
								sReturn = sReturn & "<optgroup label="""&sQ(1,i)&""" style=""margin-left: 10px"">"
								sReturn = sReturn & GetChildrenCategories(sQ(0,i),iID)
								sReturn = sReturn & "</optgroup>"
							Else
								sReturn = sReturn & "<option value="""&sQ(0,i)&""" selected=""selected"">"&sQ(1,i)&"</option>"
							End If
						Else
							If sQ(0,i) = iID Then
								sReturn = sReturn & "<option value="""&sQ(0,i)&""" selected=""selected"">"&sQ(1,i)&"</option>"
							Else
								sReturn = sReturn & "<option value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>"
							End If
						End If
					Next
				End If
				If IsMultiple(sQa(0,j)) Then
					sReturn = sReturn & "</optgroup>"
				End If
			Next
		End If
		
		CategoryList = sReturn
	End Function
	
	Function IsMultiple(intID)
		bReturn = False
		intLevel = Trim(oDB.GetValue(oConn,"showcase_level","showcase_setup","WHERE id = " & intID))
		If intLevel > 0 Then
			bReturn = True
		Else
			bReturn = False
		End If
		IsMultiple = bReturn
	End Function
	
	Function HasChildCategory(iID)
		Dim sQ
		Dim i
		sQ = oDB.ExecuteQuery(oConn,"SELECT id FROM showcase_categories WHERE parent_id = " & iID)
		If IsArray(sQ) Then
			HasChildCategory = True
		Else
			HasChildCategory = False
		End If
	End Function
	
	Function GetChildrenCategories(iID,iSelected)
		Dim sQ
		Dim i
		sReturn = ""
		sQ = oDB.ExecuteQuery(oConn,"SELECT id, title FROM showcase_categories WHERE parent_id = " & iID)
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				If iSelected = sQ(0,i) Then
					sReturn = sReturn & "<option selected=""selected"" value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>"
				Else
					sReturn = sReturn & "<option value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>"
				End If
			Next
		End If
		GetChildrenCategories = sReturn
	End Function
	
	Function ParentList(iID)
		Dim sQ
		Dim i
		sReturn = ""
		sQ = oDB.ExecuteQuery(oConn,"SELECT id, title FROM showcase_categories WHERE parent_id = 0 ORDER by sort_order ASC")
		sReturn = sReturn & "<option value=""0"" selected=""selected"">None</option>"
		If IsArray(sq) Then
			For i = 0 to uBound(sQ,2)
				If iID = sQ(0,i) Then
					sReturn = sReturn & "<option selected=""selected"" value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>" & SubParentList(sQ(0,i))
				Else
					sReturn = sReturn & "<option value="""&sQ(0,i)&""">"&sQ(1,i)&"</option>" & SubParentList(sQ(0,i))
				End If
			Next
		End If
		ParentList = sReturn
	End Function
	
	Function SubParentList(iID)
		Dim i
		Dim sQ
		Dim sReturn
		sReturn = ""
		sQ = oDB.ExecuteQuery(oConn,"SELECT id, title FROM showcase_categories WHERE parent_id = "&iID&" ORDER by sort_order ASC")
		If IsArray(sQ) Then
			For i = 0 to uBound(sQ,2)
				If iID = sQ(0,i) Then
					sReturn = sReturn & "<option selected=""selected"" value="""&sQ(0,i)&"""> - "&sQ(1,i)&"</option>"
				Else
					sReturn = sReturn & "<option value="""&sQ(0,i)&"""> - "&sQ(1,i)&"</option>"
				End If
			Next
		End If
		SubParentList = sReturn
	End Function
	
	Function GetParentName(iID)
		If iID > 0 Then
			GetParentName = oDB.GetValue(oConn,"title","showcase_categories","WHERE id = " & iID)
		Else
			GetParentName = "None"
		End If
	End Function
	
	Function GetItemCount(iID)
		Dim sQ
		Dim i
		sQ = oDB.ExecuteQuery(oConn,"SELECT id FROM showcase_pages WHERE category_id = " & iID)
		If IsArray(sQ) Then
			GetItemCount = uBound(sQ,2) + 1
		Else
			GetItemCount = 0
		End If
	End Function
	
	Function GetShowcaseType(iID)
		If iID > 0 Then
			GetShowcaseType = oDB.GetValue(oConn,"title","showcase_setup","WHERE id = " & iID)
		Else
			GetShowcaseType = "None"
		End If
	End Function
End Class
%>