%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim MailCD
MailCD = Request("MailCD")
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = Request("PageType")
Dim Mode
If Request("Mode") <> "" Then
Mode = Request("Mode")
Else
Mode = Request.Cookies("JHBRecvMode")
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 OldParamJ
Dim OldParamH
OldParamJ = Request.Cookies("JHBOldParamJ")
OldParamH = Request.Cookies("JHBOldParamH")
Dim ShowDel
If Request("ShowDel") <> "" Then
ShowDel = Request("ShowDel")
Else
ShowDel = Request.Cookies("JHBShowDel")
End If
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
%>
<% = AppTitle %>
<% = HtmlFooter %>
<%
End Sub
%>
%>