<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Cnt
Dim EnshuName
Dim UserID , UserName , GroupCD
Dim RouteType
Dim DataCnt
Dim SiteiYMD
SiteiYMD = Request("SiteiYMD")
If SiteiYMD = "" Then
SiteiYMD = Date()
End If
Dim Query
Dim Content
UserID = Request("UserID")
UserName = Request("UserName")
GroupCD = Request("GroupCD")
RouteType = Request("RouteType")
Dim Message
Message = Request("Message")
If Message = "" Then
Message = "生徒の選択会社を設定します。"
End If
'演習名称ＧＥＴ
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
End If
'選択可能会社配列作成
Dim KaishaCD
Dim KaishaMei
ReDim KaishaCD(0)
ReDim KaishaMei(0)
Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '1'" '1で全て取得
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'学生番号がNULL若しくは生徒の自社設定会社なら表示する。
If "" & Content.Fields("学生番号") = "" Or "" & Content.Fields("自社フラグ") = "1" Then
ReDim PreServe KaishaCD(UBound(KaishaCD) + 1) '配列+1
ReDim PreServe KaishaMei(UBound(KaishaCD))
KaishaCD(UBound(KaishaCD)) = Content.Fields("会社CD")
KaishaMei(UBound(KaishaCD)) = Content.Fields("会社名称")
End If
Content.MoveNext
Loop
'未選択項目に表示する文字列
Dim KaishaMisentaku
KaishaMisentaku = "＜＜＜会社は選択されていません＞＞＞"
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<% If GB_IEmode <> "1" Then %>
<% Else 'IEモード %>
<% End If %>
<%
End Sub
%>