<%
'グループ参加不可能演習一覧表示ロジック
' クエリでJOINしても参加不可能演習は取得出来ないので
' 参加可能演習一覧を配列化し演習一覧に照合する
If Kijun = "Group" Then
Dim OKarray()
ReDim OKarray(0)
Dim ErrFlg
Dim ii
ii = 0
Query = "exec SPMグループ_参加可能演習一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
ii = ii + 1
ReDim Preserve OKarray(ii)
OKarray(ii) = Content.Fields("演習CD")
Content.MoveNext
Loop
Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'マスター演習非表示
If Content.Fields("マスター演習") <> "1" Then
ErrFlg = 0
For ii = 1 To UBound(OKarray)
If OKarray(ii) = Content.Fields("演習CD") Then
ErrFlg = 1
Exit For
End If
Next
If ErrFlg = 0 Then
Response.Write("")
Response.Write(Content.Fields("演習名称"))
Response.Write(" | " & vbCrLf)
End If
End If
Content.MoveNext
Loop
Else
Query = "exec SPM演習_不参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'演習管理者の場合は演習管理者が作成したグループのみ表示
If GB_Admin <> "2" Or (GB_Admin = "2" And Content.Fields("作成者ID") = GB_GakuseiNo) Then
Response.Write("")
Response.Write(Content.Fields("グループ名称"))
Response.Write(" | " & vbCrLf)
End If
Content.MoveNext
Loop
End If
%>
|
<%
If Kijun = "Group" Then
Query = "exec SPMグループ_参加可能演習一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'マスター演習非表示
If Content.Fields("マスター演習") <> "1" Then
Response.Write("")
Response.Write(Content.Fields("演習名称"))
Response.Write(" | " & vbCrLf)
End If
Content.MoveNext
Loop
Else
Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("")
'演習管理者の場合は当該管理者以外が作成したグループを赤色表示
If GB_Admin <> "2" Or (GB_Admin = "2" And Content.Fields("作成者ID") = GB_GakuseiNo) Then
Response.Write(Content.Fields("グループ名称"))
Else
Response.Write("" & Content.Fields("グループ名称") & "")
AkaFlg = 1
End If
Response.Write(" | " & vbCrLf)
Content.MoveNext
Loop
End If
%>
|