<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'サイバートレード存在チェック（電商くんはサイバー会計自動連動のためこの処理は不要）
Dim CT21db
Dim CT21variable
CT21variable = 1
On Error Resume Next
Err.Clear()
Set CT21db = Server.CreateObject("ADODB.Connection")
CT21db.ConnectionTimeout = 60
CT21db.CommandTimeout = 60
CT21db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sfcuser;Password=sfc-5963;Initial Catalog=ct21sqldb;Data Source=" & SQLServer
If Err.Description <> "" Then
CT21variable = 0
End If
On Error Goto 0
Dim Query, Content
Dim EnshuCD
EnshuCD = Request("EnshuCD")
Dim EnshuCnt
EnshuCnt = 0
Dim TmpEnshuCD
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'「SYSCT21：サイバートレード会計演習マスター」は同一環境にサイバートレードが存在する場合のみ表示
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And (UCase(Content.Fields("演習CD")) <> "SYSCT21" Or CT21variable = 1)) Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
If UCase(Content.Fields("演習CD")) = GB_EnshuID Or UCase(Content.Fields("演習管理者ID")) = GB_EnshuID Then
If Content.Fields("演習管理者パスワード") <> "" Then
If UCase(Content.Fields("演習管理者パスワード")) = GB_EnshuPassword Then
EnshuCnt = EnshuCnt + 1
TmpEnshuCD = Content.Fields("演習CD")
End If
End If
End If
End If
Content.MoveNext
Loop
'当該演習管理者の管理演習が１つなら演習管理へ飛ぶ
If EnshuCnt = 1 Then
Response.Redirect("/" & HomeAlias & "/admin/admenu_enshu_sentaku_bin.asp?EnshuCD=" & TmpEnshuCD)
'当該演習管理者の管理演習が２つ以上ならメニュー表示
ElseIf EnshuCnt > 1 Then
Content.MoveFirst
End If
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>