<!-- #include file="./include.asp" -->
<%
main()
Sub main()

	If Not(InternetCheck()) Then
		Exit Sub
	End If
'	If Not(VisitorCheck()) Then
'		Exit Sub
'	End If
	If Not(SysAdminCheck()) Then
		Exit Sub
	End If
'Response.Write(GB_ShopAdmin)
'Exit Sub

	Dim Query
	Dim Content
	Dim Content2


	Dim Cat
	Cat = Request("Cat") 'こっちは選択カテゴリ

	Dim Mode
	Mode = Request("Mode")
	Dim UpdCat
	UpdCat = Request("UpdCat") '更新対象カテゴリ
	Dim UpdSubCat
	UpdSubCat = Request("UpdSubCat")

	Dim Meisho
	Dim FontSize
	If UpdSubCat <> "" Then
		Meisho = ConvProhiStr(Request("Meisho" & UpdSubCat))
		FontSize = Request("FontSize" & UpdSubCat)
	Else
		Meisho = ConvProhiStr(Request("Meisho" & UpdCat))
		FontSize = Request("FontSize" & UpdCat)
	End If
	If Mode = "Insert" Then
		Meisho = ConvProhiStr(Request("Meisho0"))
		FontSize = ConvProhiStr(Request("FontSize0"))
	End If

	Dim Enabled
	Enabled = Request("Enabled")

	Dim MotoOrder
	MotoOrder = Request("MotoOrder")
	Dim OrderMode
	OrderMode = Request("OrderMode")

'Response.Write(Meisho)
'Exit Sub

	Dim Target
	Target = "TMカテゴリ"
	If UpdSubCat <> "" Then
		Target = "TMサブカテゴリ"
	End If

	If Mode <> "" And UpdCat <> "" Then
		If Mode = "Insert" And Meisho <> "" Then
			Dim NewCut
			NewCut = 1
			If UpdCat = "0" Then
				Query = " SELECT MAX(カテゴリID) AS 最大ID FROM TMカテゴリ "
			Else
				Query = " SELECT MAX(サブカテゴリID) AS 最大ID FROM TMサブカテゴリ WHERE カテゴリID = " & UpdCat & " "
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
			If Not(Content.BOF Or Content.EOF) Then
				NewCut = NewCut + Content.Fields("最大ID")
			End If
			If "" & NewCut = "" Then
				NewCut = "1"
			End If
			Query = ""
			If UpdCat = "0" Then
				Query = Query & " INSERT INTO TMカテゴリ (カテゴリID, 名称, 文字サイズ, 表示順) "
				Query = Query & " VALUES (" & NewCut & ", '" & Meisho & "', " & FontSize & ", " & NewCut & ") "
			Else
				Query = Query & " INSERT INTO TMサブカテゴリ (カテゴリID, サブカテゴリID, 名称, 文字サイズ, 表示順) "
				Query = Query & " VALUES (" & UpdCat & ", " & NewCut & ", '" & Meisho & "', " & FontSize & ", " & NewCut & ") "
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		ElseIf Mode = "Update" And Meisho <> "" Then
			Query = " UPDATE " & Target & " "
			Query = Query & " SET 名称 = '" & Meisho & "' "
			Query = Query & " 	, 文字サイズ = " & FontSize & " "
			Query = Query & " WHERE カテゴリID = " & UpdCat & " "
			If UpdSubCat <> "" Then
				Query = Query & " 	AND サブカテゴリID = " & UpdSubCat & " "
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		ElseIf Mode = "Enabled" Then
			Query = " UPDATE " & Target & " "
			Query = Query & " SET 有効 = '" & Enabled & "' "
			Query = Query & " WHERE カテゴリID = " & UpdCat & " "
			If UpdSubCat <> "" Then
				Query = Query & " 	AND サブカテゴリID = " & UpdSubCat & " "
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		ElseIf Mode = "Order" Then
			Dim ChangeOrder
			ChangeOrder = 0
			If UpdSubCat <> "" Then
				If OrderMode = "Up" Then
					Query = " SELECT MAX(表示順) AS 表示順 FROM TMサブカテゴリ WHERE カテゴリID = " & UpdCat & " AND 表示順 < " & MotoOrder & " " '指定された表示順より少ない中の最大を取得
				Else
					Query = " SELECT MIN(表示順) AS 表示順 FROM TMサブカテゴリ WHERE カテゴリID = " & UpdCat & " AND 表示順 > " & MotoOrder & " " '指定された表示順より大きい中の最小を取得
				End If
			Else
				If OrderMode = "Up" Then
					Query = " SELECT MAX(表示順) AS 表示順 FROM TMカテゴリ WHERE 表示順 < " & MotoOrder & " " '指定された表示順より少ない中の最大を取得
				Else
					Query = " SELECT MIN(表示順) AS 表示順 FROM TMカテゴリ WHERE 表示順 > " & MotoOrder & " " '指定された表示順より大きい中の最小を取得
				End If
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
			If Not(Content.BOF Or Content.EOF) Then
				ChangeOrder = Content.Fields("表示順")
			End If
			If ChangeOrder > 0 Then
				Query = ""
				Query = Query & " UPDATE " & Target & " "
				Query = Query & " SET 表示順 = 7777777 "
				Query = Query & " WHERE 表示順 = " & ChangeOrder & " "
				If UpdSubCat <> "" Then
					Query = Query & " 	AND カテゴリID = " & UpdCat & " "
				End If
				Query = Query & " UPDATE " & Target & " "
				Query = Query & " SET 表示順 = " & ChangeOrder & " "
				Query = Query & " WHERE 表示順 = " & MotoOrder & " "
				If UpdSubCat <> "" Then
					Query = Query & " 	AND カテゴリID = " & UpdCat & " "
				End If
				Query = Query & " UPDATE " & Target & " "
				Query = Query & " SET 表示順 = " & MotoOrder & " "
				Query = Query & " WHERE 表示順 = 7777777 "
				If UpdSubCat <> "" Then
					Query = Query & " 	AND カテゴリID = " & UpdCat & " "
				End If
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
			End If
		ElseIf Mode = "Delete" Then
			Query = " DELETE FROM " & Target & " "
			Query = Query & " WHERE カテゴリID = " & UpdCat & " "
			If UpdSubCat <> "" Then
				Query = Query & " 	AND サブカテゴリID = " & UpdSubCat & " "
			End If
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		End If
'Response.Write(Query)
'Exit Sub
	End If

	Response.Redirect("syscategory.asp?Cat=" & Cat)

End Sub
%>