
<!-- #include file="../../../include.asp" -->

<%
'################################################
'	名称	：ポータルサイト（商品棚更新）
'	作成日	：2008/08/26
'	作成者	：小野
'	目的	：商品棚の更新処理
'	概要	：
'	修正変更：
'################################################
'-->

main()

Sub main()

	Dim Query
	Dim Content

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim Irekae1
	Dim Irekae2
	Irekae1 = Request("Irekae1")
	Irekae2 = Request("Irekae2")

	Dim Delete
	Delete = Request("Delete")
	Dim ShelfCD
	ShelfCD = Request("ShelfCD")

	If Irekae1 <> "" And Irekae2 <> "" Then

		Query = "exec SPPポータル商品表示順更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & Irekae1 & ", " & Irekae2
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)

	ElseIf Delete = "Delete" And ShelfCD <> "" Then

		Query = "exec SPPポータル商品削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & ShelfCD
		Set Content = OpenQuery(Query)
		Query = "exec SPPポータル商品再採番 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)

	End If

	Response.Redirect("portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "&" & TimeUniq())


End Sub
%>