<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
' If Not(VisitorCheck()) Then
' Exit Sub
' End If
'Response.Write("ビジターログイン画面")
'Response.Write(GB_VisitorID)
'Exit Sub
%>
<%
Dim Mail
Mail = Request("Mail")
Dim Query
Dim Content
Dim Content2
Query = ""
Query = Query & " "
Query = Query & " SELECT * "
Query = Query & " FROM TM演習 "
Query = Query & " WHERE 有効 = '1' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Content.BOF Or Content.EOF Then
'If Not(Content.BOF Or Content.EOF) Then
'演習が存在しない場合
If LCase(GB_UserID) = LCase(SysAdminID) Or LCase(GB_Password) = LCase(SysAdminPass) Then
Response.Redirect("" & HomeAliasSL & "sysadminmenu.asp")
Else
Response.Redirect("" & HomeAliasSL & "visitor.asp?ErrFlg=99&Mode=" & Mode & "&Mail=" & Mail)
End If
Exit Sub
End If
'セッションクリア（テスト用）
' Session("ECMallUserID") = ""
' GB_UserID = Session("ECMallUserID")
If Mode = "" Then
Mode = "1"
End If
'最終選択演習の取得
Dim PrePracticeCD
Query = ""
Query = Query & " "
Query = Query & " SELECT * "
Query = Query & " FROM TMビジター "
Query = Query & " WHERE ログインID = '" & GB_UserID & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
PrePracticeCD = "" & Content.Fields("最終演習CD")
' Exit Sub
End If
%>
<%
End Sub
%>