% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim Mode If Request("Mode") <> "" Then Mode = Request("Mode") Else Mode = Request.Cookies("RecvMode") End If If Mode = "" Then Mode = "Midoku" End If Dim Label Dim Label2 If PageType = "Send" Then Label = "送信文書" Label2 = "" Else Label = "受信文書" If Mode = "Midoku" Then Label2 = "未読一覧" Else Label2 = "既読一覧" End If End If Dim ShowDel ShowDel = Request("ShowDel") Dim OldParamJ Dim OldParamH OldParamJ = Request.Cookies("OldParamJ") OldParamH = Request.Cookies("OldParamH") Dim iiDef Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") End If %>