<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Session(HomeAlias & "GyosyuKubun") = "S" Session(HomeAlias & "GyosyuColor") = "#33CC99" Session(HomeAlias & "GyosyuColorObj") = "g" Session(HomeAlias & "GyosyuKubun") = "B" Session(HomeAlias & "GyosyuColor") = "#7499E5" Session(HomeAlias & "GyosyuColorObj") = "w" '同時同業で自社設定から飛んだ場合はその会社を選択状態にするよう修正 Dim KaisyaCD KaisyaCD = Request("KaisyaCD") 'If 0=1 Then 'サイバー会計の個人モードでは自社または同時同業生徒自社を自動選択する If PackageMode = 1 And Session(HomeAlias & "EnshuKubun") = "P" Then Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '2'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("自社フラグ") = "1" Or "" & Content.Fields("同時同業生徒自社") = "1" Then Response.Redirect("default_bin.asp?KaisyaCD=" & Content.Fields("会社CD")) Exit Sub End If Content.MoveNext Loop End If 'End If 'サイバー会計のグループモードでは選択済みの会社を自動選択にする If PackageMode = 1 And Session(HomeAlias & "EnshuKubun") = "G" Then Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("学生番号") = GB_GakuseiNo And "" & Content.Fields("選択会社CD") <> "" Then '会社CD=NULLも含めて全生徒が取得される Response.Redirect("default_bin.asp?KaisyaCD=" & Content.Fields("選択会社CD")) Exit Sub End If Content.MoveNext Loop End If Dim MeishiKyuVersionRiyo MeishiKyuVersionRiyo = GetEnshuParam(EnshuCD, "名刺作成旧バージョン利用") %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(9)) Response.Write(HttpL1(0)) Response.Write(HttpL2("会社選択" ,"", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("", "")) %>

　

　

　

会社を選択して下さい

<% Dim Query Dim Content Dim Content2 Dim i Dim KanjyoMeisai KanjyoMeisai = Request("KanjyoMeisai") Dim AllSelect AllSelect = Request("AllSelect") Dim MogiSelected MogiSelected = "0" If AllSelect = "" Then AllSelect = "0" End If Dim MogiSelectedJisya MogiSelectedJisya = "0" Dim SonzaiFlg '会社が存在しない場合の例外対策フラグ SonzaiFlg = 1 Dim KaijoFlg '次演習繰越フラグを強制的に降ろす処理を1回で済ますフラグ KaijoFlg = 0 Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & AllSelect & "'" Response.Write("" & vbCrLf) Set Content = OpenQuery(Query) If (Content.BOF Or Content.EOF) Then SonzaiFlg = 0 End If 'TV電話起動選択チェックボックスの表示フラグ Dim WebCollaboRiyo Dim WebCollaboCheckBox WebCollaboCheckBox = 0 If Tvvariable > 0 And SonzaiFlg = 1 Then If Session(HomeAlias & "EnshuKubun") = "G" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content2 = OpenQuery(Query) If Not(Content2.BOF Or Content2.EOF) Then WebCollaboRiyo = "" & Content2.Fields("WebCollabo利用") End If If "" & WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If If WebCollaboRiyo = "2" Then WebCollaboCheckBox = 1 End If End If End If If SonzaiFlg = 0 Then %>

会社が登録されておりません演習選択に戻る <% Else %>	<% End If %>
<% If WebCollaboCheckBox = 1 Then %> TV電話を起動する場合はチェックしてください ⇒ <% Else %> <% = Spacer(1,15) %> <% End If %>

class="tbtn4" onClick="SubmitCheck()">選択<% Else %>> <% End If %>

<% If (MogiSelected = "0" OR MogiSelectedJisya = "1") Or AllSelect = "1" Then %>

自社設定

<% End If %>

<% IF 0=1 And MeishiKyuVersionRiyo = "1" Then %>

　　　　名刺作成

<% End If %>

<% = HtmlFooter %> <% End Sub %>