<!-- #include file="../../../include.asp" -->

<%
'################################################
'	名称	:ポータルサイト(会社サイト更新)
'	作成日	:2008/08/25
'	作成者	:小野
'	目的	:会社サイトの更新処理
'	概要	:
'	修正変更:
'################################################
'-->

main()

Sub main()

	Dim Query
	Dim Content

	Dim Midashi
	Dim Banner
	Dim OldBanner
	Dim Shokai
	Dim ShelfHyoji
	Dim ShelfZaiko
	Dim ContentsHyoji
	Dim ContentsTitle
	Dim ContentsValue
	Dim OldContentsValue
	Dim LinkHyoji
	Dim LinkTitle
	Dim LinkValue
	Dim BannerHenkoFlg
	Dim ShijoCD

	Dim BinData
	Dim ObjBASP
	Dim ObjFS


	On Error Resume Next
		Err.Clear()
		BinData = Request.BinaryRead(Request.TotalBytes)
		If Err.Description <> "" Then
			Response.Write("エラーが発生しました。<br>ファイルサイズが大きすぎる可能性があります。<br><br>")
			Response.Write("エラーコード:")
			Response.Write(Err.Description)
			Response.Write("<br><br>")
			Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
			Exit Sub
		End If
	On Error Goto 0


	Set ObjBASP = Server.CreateObject("basp21")

	'ファイルフォームのファイル名を取得(この時点ではフルパス名)
	Banner = ObjBASP.FormFileName(BinData, "Banner")
	ContentsValue = ObjBASP.FormFileName(BinData, "ContentsValue")

	'テキストフォームを取得
	Midashi = ObjBASP.Form(BinData, "Midashi")
	OldBanner = ObjBASP.Form(BinData, "OldBanner")
	Shokai = ObjBASP.Form(BinData, "Shokai")
	ShelfHyoji = ObjBASP.Form(BinData, "ShelfHyoji")
	ShelfZaiko = ObjBASP.Form(BinData, "ShelfZaiko")
	ContentsHyoji = ObjBASP.Form(BinData, "ContentsHyoji")
	ContentsTitle = ObjBASP.Form(BinData, "ContentsTitle")
	OldContentsValue = ObjBASP.Form(BinData, "OldContentsValue")
	LinkHyoji = ObjBASP.Form(BinData, "LinkHyoji")
	LinkTitle = ObjBASP.Form(BinData, "LinkTitle")
	LinkValue = ObjBASP.Form(BinData, "LinkValue")
	BannerHenkoFlg = ObjBASP.Form(BinData, "BannerHenkoFlg")
	ShijoCD = ObjBASP.Form(BinData, "ShijoCD")
'Response.Write(Banner)
'Exit Sub

	Shokai = Replace(Shokai, vbCrLf, "<BR>")

	If Banner <> "" And BannerHenkoFlg = "1" Then
		'フルパス名からファイル名を取り出す
		Banner = Mid(Banner, InstrRev(Banner, "\") + 1)
		Set ObjFS = CreateObject("Scripting.FileSystemObject")
		'演習フォルダ作成
		If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD)) Then
			ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD)
		End If
		'会社フォルダ作成
		If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)) Then
			ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)
		End If
		'バナー保存
		ObjBASP.FormSaveAs BinData, "Banner", Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD & "/" & Banner
	Else
		Banner = OldBanner
	End If

	If ContentsValue <> "" Then
		'フルパス名からファイル名を取り出す
		ContentsValue = Mid(ContentsValue, InstrRev(ContentsValue, "\") + 1)
		Set ObjFS = CreateObject("Scripting.FileSystemObject")
		'演習フォルダ作成
		If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD)) Then
			ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD)
		End If
		'会社フォルダ作成
		If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)) Then
			ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)
		End If
		'バナー保存
		ObjBASP.FormSaveAs BinData, "ContentsValue", Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD & "/" & ContentsValue
	Else
		ContentsValue = OldContentsValue
	End If


	Query = "exec SPPポータル会社更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
	Query = Query & ",'" & Midashi & "'"
	Query = Query & ",'" & Banner & "'"
	Query = Query & ",'" & Shokai & "'"
	Query = Query & ",'" & ShelfHyoji & "'"
	Query = Query & ",'" & ShelfZaiko & "'"
	Query = Query & ",'" & ContentsHyoji & "'"
	Query = Query & ",'" & ContentsTitle & "'"
	Query = Query & ",'" & ContentsValue & "'"
	Query = Query & ",'" & LinkHyoji & "'"
	Query = Query & ",'" & LinkTitle & "'"
	Query = Query & ",'" & LinkValue & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	Response.Redirect("portal_kaisha_result.asp?ShijoCD=" & ShijoCD)


End Sub
%>