%
'
'
%>
<%
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 DousaLabel
If ShowDel = "1" Then
DousaLabel = "復元"
Else
DousaLabel = "削除"
End If
Dim Sort
If Request("Sort") <> "" Then
Sort = Request("Sort")
Session("JuhasshinSort") = Sort
ElseIf "" & Session("JuhasshinSort") <> "" Then
Sort = Session("JuhasshinSort")
Else
Sort = "0"
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
'直前選択行を復元する処理のためパラメータを保持しておく(140624小野)
Dim TmpMailCD
Dim TmpNextUrl
%>
<% = HtmlHeader("") %>