<% ' ' %> <% 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("") %> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> <% ' If InStr(RouteType, "Mail") > 0 And GB_Gyosyu = "U" Then ' Response.Redirect("/" & HomeAlias & "/user/bk/unso/syuko/fu_kitaku_syukko_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&RouteType=" & RouteType & "&PageType=" & PageType) ' End If %> </body> <% End Sub %>