
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：演習情報登録処理
'	 作成日：2002/9/4
'	 作成者：徳田
'	 目的　：演習情報の登録処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content, rsts, RouteType
	Dim DbEnshuCD, EnshuCD

	Dim TutyoSyusei
	Dim TegataSyusei


	RouteType = Request("RouteType")
	DbEnshuCD = Request("DbEnshuCD")
	EnshuCD = LCase(Request("EnshuCD"))
	TutyoSyusei = Request("TutyoSyusei")
	TegataSyusei = Request("TegataSyusei")

	Query = "exec SPM演習更新0 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'"
	Query = Query & ",'" & TutyoSyusei	& "'"
	Query = Query & ",'" & TegataSyusei	& "'"
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If


	Session(HomeAlias & "EnshuCD") = EnshuCD
	Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)

	Response.Redirect("fm_enshu0_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
End Sub
%>