対象演習名
<% If GB_Admin = 2 Then %>
<% = EnshuMeisyo %>
<% Else %>
<< 対象演習を選択して下さい >>
<%
Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("" & Content.Fields("演習名称") & " " & vbCrLf)
Content.MoveNext
Loop
%>
<% End If %>
ログインID
氏名
所属グループ名称
最新ログイン日
<%
Dim ii, jj
ii = 0
jj = 0
'If GB_Admin = 1 Or bShow = 1 Then
'If GroupCD = "" Then
If EnshuCD <> "" Then
Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "','" & EnshuCD & "','%','" & UserID & "%','" & Shimei & "%', '" & SiteiYMD & "'"
Else
Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GroupCD & "','" & UserID & "%','" & Shimei & "%', '" & SiteiYMD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("" & Content.Fields("学生番号") & " " & vbCrLf)
Response.Write("" & Content.Fields("氏名") & " " & vbCrLf)
Response.Write("" & Content.Fields("グループ名称") & " " & vbCrLf)
Response.Write("" & Content.Fields("最新ログイン日") & " " & vbCrLf)
ii = ii + 1
Response.Write(" ")
Content.MoveNext
Loop
'End If
DataCnt = ii
For jj = ii To 12
Response.Write("" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" ")
Next
%>