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

<%
'<!--
'################################################
'	 名称	:システム基本情報更新処理
'	 作成日:2002/8/22
'	 作成者:徳田
'	 目的 :システム基本情報の修正処理する。
'	 概要	:
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim UserName, ZipCode, Adress1, Adress2					'ユーザー名、郵便番号、住所1、住所2
	Dim TelNo, FaxNo, KanrishaId, Password					 '電話番号、FAX、管理者ID、パスワード
	Dim KyotsuPath, KojinPath, SystemName, Version, IPAddress, GakkoCD, hoshiki	 '共通データパス、個人データパス、システム名称、バージョン
	Dim WebCollaboPort
	Dim ExtArray
	Dim FAXRiyo
	Dim KoshoninMes

	Dim TopMargin
	Dim LeftMargin


	UserName = Request("UserName")
	ZipCode = Request("ZipCode")
	Adress1 = Request("Adress1")
	Adress2 = Request("Adress2")
	TelNo = Request("TelNo")
	FaxNo = Request("FaxNo")
	KanrishaId = Request("KanrishaId")
	Password = Request("Password")
	KyotsuPath = Request("KyotsuPath")
	KojinPath = Request("KojinPath")
	SystemName = Request("SystemName")
	Version = Request("Version")
	IPAddress = Request("IPAddress")
	GakkoCD = Request("GakkoCD")
	hoshiki = Request("hoshiki")
	ExtArray = Request("ExtArray")
	FAXRiyo = Request("FAXRiyo")
	TopMargin = Request("TopMargin")
	LeftMargin = Request("LeftMargin")
	KoshoninMes = Request("KoshoninMes")
	WebCollaboPort = Request("WebCollaboPort")

	If "" & WebCollaboPort <> "" Then
		IPAddress = IPAddress & ":" & WebCollaboPort
	End If

	ExtArray = Replace(ExtArray, " ", "")
	ExtArray = Replace(ExtArray, " ", "")
	ExtArray = Replace(ExtArray, ";", ",")


	Dim Content , Query
	Dim rsts

	Query = "exec SPMシステム情報更新 '" & GB_SystemCD & "',"
	Query = Query & " '" & UserName	& "'"		'ユーザー名
	Query = Query & ",'" & KanrishaId	& "'"	'管理者コード
	Query = Query & ",'" & Password	& "'"		'パスワード
	Query = Query & ",'" & KyotsuPath	& "'"	'共通データパス
	Query = Query & ",'" & SystemName	& "'"	'システム名
	Query = Query & ",'" & Version	& "'"		'バージョン
	Query = Query & ",'" & IPAddress & "'"	'IPアドレス
	Query = Query & ",'" & GakkoCD & "'"	'学校CD
	Query = Query & ",'" & hoshiki & "'"	'方式
	Query = Query & ",'" & FAXRiyo & "'"	'FAX利用
	Query = Query & ",'" & ExtArray & "'"	'FAX利用可能拡張子
	Query = Query & ",'" & TopMargin & "'"	'名刺印刷余白上
	Query = Query & ",'" & LeftMargin & "'"	'名刺印刷余白左
	Query = Query & ",'" & KoshoninMes & "'"	'会社設立時手数料メッセージ
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If


	If rsts = 0 then
		Response.Redirect("fm_kihon_view.asp")
	Else
		Response.write "更新失敗 sql=" & Query
	End If

End Sub
%>