<!-- #include file="../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習選択
' 作成日：2002/8/9
' 作成者：山崎
' 目的 ：演習を選択する。
' 概要 ：
' <<表示>>
' ・演習の一覧が表示されている
' 修正:2002/9/27:山崎:選択されているかどうかチェックをするように変更
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
EnshuMeisyo = ""
Session(HomeAlias & "GyosyuKubun") = "S"
Session(HomeAlias & "GyosyuColor") = "#33CC99"
Session(HomeAlias & "GyosyuColorObj") = "g"
Session(HomeAlias & "GyosyuKubun") = "B"
Session(HomeAlias & "GyosyuColor") = "#7499E5"
Session(HomeAlias & "GyosyuColorObj") = "w"
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="default_bin.asp">
<%
Response.Write(HtmlDesign(8))
Response.Write(HttpL1(0))
Response.Write(HttpL2("" ,"", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table bgcolor="#8D9BCC" width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle" align="center">
<table width="1004" height="592" border="0" cellpadding="0" cellspacing="0" bgcolor="#8D9BCC" style="background-image: url('/<% = HomeAlias %>/images/bkimg_crse.jpg?<% = GB_STU %>'); background-repeat: no-repeat; background-attachment: scroll; background-position: 0% 50%">
<tr>
<td width="949" height="592" align="left" valign="bottom">
<table width="936" height="322" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td rowspan="3" width="10"><br></td>
<td height="22" colspan="3" valign="middle" class="tx1820">演習を選択して下さい</td>
</tr>
<tr>
<td width="1" height="220" align="left" valign="bottom">
<table width="300" height="210" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="190" valign="bottom">
<select name="EnshuCD" size="14" style="<% If GB_IEmode <> "1" Then %>height:254px;padding:3px;<% End If %><% If GB_CSS <> "EC" Then %>font-family:'ＭＳ Ｐゴシック';<% End If %>width:459px;font-size:12pt;cursor:pointer;">
<%
Dim Query
Dim Content
Dim i
Dim KanjyoMeisai
KanjyoMeisai = Request("kanjyomeisai")
Query = "exec SPM演習詳細一覧 '" & GB_SystemCD & "','" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'パッケージモードトグル
If PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """>" & Content.Fields("演習名称") & "</option>" & vbCrLf)
ElseIf PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA" Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """>" & Content.Fields("演習区分名称") & " - " & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td height="11" align="center" valign="middle"><% = Spacer(1,15) %></td>
</tr>
</table>
</td>
<td width="210" height="220" align="left" valign="middle">
<table width="100" height="40" border="0" cellpadding="0" cellspacing="0" style="cursor:pointer;">
<tr>
<td width="7"><br></td>
<td class="tbtn4" onClick="SubmitCheck()"><% = Spacer(8,1) %><span id="sentaku" style="color:#000000;">演習開始</span></td>
</tr>
</table>
</td>
<td width="195" height="220" align="left" valign="bottom">
<!--
<table width="145" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="145" height="35" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/bkimg_bmbt.gif?<% = GB_STU %>">
<tr>
<td width="145" height="30" class="tbtn3" onClick="tblbtn( '/<% = HomeAlias %>/user/manner/default.asp')"> ビジネスマナー演習</td>
</tr>
<tr>
<td width="145" height="5"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="145" height="5"></td>
</tr>
</table>
</td>
</tr>
</table>
-->
</td>
</tr>
<tr>
<td height="10" colspan="3" class="tx1416" style="color:#FFFFFF"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="100" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
if(form1.EnshuCD.value == "")
{
alert("演習が選択されていません");
return false;
}
SubmitReal(form1);
return true;
}
//ページ表示後に演習開始ボタンを描画する
sentaku.innerHTML = "演習開始";
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>