<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName, EnshuID, EnshuPassword
Dim TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo
Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
Dim ErrMsg
Dim Query
Dim Content
EnshuCD = Request("EnshuCD")
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
EnshuID = Content.Fields("演習管理者ID")
EnshuPassword = Content.Fields("演習管理者パスワード")
TutyoSyusei = Content.Fields("通帳手動修正")
MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用")
NatsuinRiyo = Content.Fields("捺印利用")
TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
TegataSyusei = Content.Fields("手形修正")
SyohinCheck = Content.Fields("商品チェック表示")
GenbutsuCheck = Content.Fields("現物チェック表示")
UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用")
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
SyohinKaihatukaRiyo = Content.Fields("商品開発課利用")
End If
Else
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>