<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim EnshuCD EnshuCD = Request("EnshuCD") Session(HomeAlias & "EnshuCD") = EnshuCD Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD) Session(HomeAlias & "EnshuKubun") = ConvEnshuKubun(EnshuCD) Dim AutoLogin AutoLogin = Request("AutoLogin") 'コントロールパネル(071225小野) If AutoLogin = "Control" Then Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD) End If 'オートログイン(071106小野) If AutoLogin = "AutoLogin" Then Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshukaishalogin.asp?EnshuCD=" & EnshuCD) End If Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD) End Sub %>