<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName, EnshuID, EnshuPassword
Dim ErrMsg
Dim Query
Dim Content
EnshuCD = Request("EnshuCD")
Dim HanbaiShuruiSeigen
Dim HanbaiSuryoSeigen
Dim HanbaiTankaKijun
Dim SeitoSu1
Dim SeitoSu2
Dim SeitoSu3
Dim SeitoSu4
Dim SeitoSu5
Dim KakeritsuTop1
Dim KakeritsuTop2
Dim KakeritsuTop3
Dim KakeritsuTop4
Dim KakeritsuTop5
Dim KakeritsuBot1
Dim KakeritsuBot2
Dim KakeritsuBot3
Dim KakeritsuBot4
Dim KakeritsuBot5
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
End If
Query = "exec SPM演習取得_小売販売 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HanbaiShuruiSeigen = Content.Fields("販売種類制限")
HanbaiSuryoSeigen = Content.Fields("販売数量制限")
HanbaiTankaKijun = Content.Fields("販売単価算出基準")
SeitoSu1 = Content.Fields("生徒数1")
SeitoSu2 = Content.Fields("生徒数2")
SeitoSu3 = Content.Fields("生徒数3")
SeitoSu4 = Content.Fields("生徒数4")
SeitoSu5 = Content.Fields("生徒数5")
KakeritsuTop1 = Content.Fields("掛け率上限1")
KakeritsuTop2 = Content.Fields("掛け率上限2")
KakeritsuTop3 = Content.Fields("掛け率上限3")
KakeritsuTop4 = Content.Fields("掛け率上限4")
KakeritsuTop5 = Content.Fields("掛け率上限5")
KakeritsuBot1 = Content.Fields("掛け率下限1")
KakeritsuBot2 = Content.Fields("掛け率下限2")
KakeritsuBot3 = Content.Fields("掛け率下限3")
KakeritsuBot4 = Content.Fields("掛け率下限4")
KakeritsuBot5 = Content.Fields("掛け率下限5")
End If
Else
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>