<%
'
'
%>
<%
main()
Sub main()
Dim SakuseiKaisyaCD '作成会社CD
Dim BunsyoSyuruiCD '文書種類CD
Dim BunsyoNaiyoCD '文書内容CD
Dim SenpoBunsyoSyuruiCD '先方文書種類CD
Dim SenpoBunsyoNaiyoCD '先方文書内容CD
Dim SojyushinKubun '送受信区分
Dim PageType
Dim RouteType
Dim SenpoFlg
Dim BinType
Dim Kaishibi
Dim Syuryobi
Dim KaisyaCD1
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
SakuseiKaisyaCD = Request("SakuseiKaisyaCD") '作成会社CD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '文書内容CD
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") '先方文書種類CD
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") '先方文書内容CD
SojyushinKubun = Request("SojyushinKubun") '送受信区分
PageType = Request("PageType")
RouteType = Request("RouteType")
SenpoFlg = Request("SenpoFlg")
BinType = Request("BinType")
KaisyaCD1 = Request("KaisyaCD1")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>