% ' %> <% main() Sub main() 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 If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") UserName = Request("UserName") GroupCD = Request("GroupCD") RouteType = Request("RouteType") Dim Message Message = Request("Message") If Message = "" Then Message = "生徒の選択会社を設定します。" End If '演習名称GET 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) ReDim PreServe KaishaCD(UBound(KaishaCD) + 1) '配列+1 ReDim PreServe KaishaMei(UBound(KaishaCD)) KaishaCD(UBound(KaishaCD)) = Content.Fields("会社CD") KaishaMei(UBound(KaishaCD)) = Content.Fields("会社名称") Content.MoveNext Loop '未選択項目に表示する文字列 Dim KaishaMisentaku KaishaMisentaku = "<<<会社は選択されていません>>>" %>