<%
Dim strShainCode, strPassword

'---- パラメータを取得する ----
strShainCode = Request.Form("ShainCode")
strPassword = Request.Form("Password")

'---- パラメータがなければクッキーを取得する ----
If strShainCode = "" Then
    strShainCode = Request.Cookies("kenshu")("CODE")
End If

'---- クエリー ----
strSQL = "SELECT パスワード, 組織コード FROM 社員マスタ " & _
        "WHERE 社員コード = '" & strShainCode & "'"
objRec.Open strSQL, objDBCon

If objRec.EOF And objRec.BOF Then
    '---- レコードが存在しなければ認証エラー画面を表示する ----
    Call DispError (strShainCode, strPassword)
Else
    If Request.Form("ShainCode") <> "" And objRec.Fields("パスワード").Value <> strPassword Then
        '---- パスワードが一致しなければ認証エラー画面を表示する ----
        Call DispError (strShainCode, strPassword)
    Else
        '---- クッキーをセットする ----
        If Request.Cookies("kenshu")("CODE") = "" Then
            Response.Cookies("kenshu")("CODE") = strShainCode
        End If

        '---- 共通ヘッダ表示 ----
        Call DispHeader ("研修システム　メニュー画面", "")

        '---- 直前に認証された場合は表示 ----
        If strPassword <> "" Then
            Response.Write "<P>社員番号 " & strShainCode & "で認証されました。</P>"
        End If

        '---- メニューの表示 ----
%>        <TABLE bgcolor=<%=PRPL%> cellpadding="10">
        <TR><TD>
            <FORM action="kenshu02.asp" method="post">
            <INPUT type="hidden" name="ShoriCode" value="1">
            <P><INPUT type="submit" value="新規申し込み"><BR>
            ・新しく研修の申し込みを行います。</P>
            </FORM>
        </TD></TR>

        <TR><TD>
            <FORM action="kenshu02.asp" method="post">
            <INPUT type="hidden" name="ShoriCode" value="2">
            <P><INPUT type="submit" value="申し込み履歴"><BR>
            ・申し込み履歴を参照します。<BR>
            ・研修の取り消し、キャンセルもここからできます。</P>
            </FORM>
        </TD></TR>
<%
        '---- 研修部のみ ----
        If objRec.Fields("組織コード").Value = "1109" Then
%>
            <TR><TD>
                <FORM action="kenshu02.asp" method="post">
                <INPUT type="hidden" name="ShoriCode" value="3">
                <P><INPUT type="submit" value="受講可否決定、研修内容の登録・変更"><BR>
                ・申込者の受講可否を決定し登録します。<BR>
                ・研修内容の新規登録・変更を行います。</P>
                </FORM>
            </TD></TR>
<%        End If
%>        </TABLE>
<%
        '---- 共通フッタ表示 ----
        Call DispFooter("1")
    End If
End If
objRec.Close
%>