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

<%
'<!--
'################################################
'	 名称	：学生情報追加処理
'	 作成日：2002/8/22
'	 作成者：山崎
'	 目的　：学生Mに追加する
'	 概要	：
'		<<表示>>
'	・なし
'################################################
'-->
'
'
%>


<%
main()
Sub main()

	Dim Query
	Dim Content
	Dim SystemCD

	SystemCD = Request("SystemCD")

	Query = "exec SPMシステム情報デフォルト更新 '" & SystemCD & "'"
	Set Content = OpenQuery(Query)

%>
	更新しました。
	<a href="system.asp">戻る</a>
<%


End Sub
%>