<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :勘定科目マスター一覧表示の親ウィンドウ ' 作成日:2002/9/17 ' 作成者:徳田 ' 目的 :勘定科目マスター一覧表示のための親ウィンドウ ' 概要 : '################################################ '--> %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim KanriKubun Dim GyoshuKubun Dim SaimokuKubun Dim HyojiFlg SaimokuKubun = Request("SaimokuKubun") GyoshuKubun = Request("GyoshuKubun") KanriKubun = Request("KanriKubun") HyojiFlg = Request("HyojiFlg") Dim RouteType RouteType = Request("RouteType") Dim KamokuCD KamokuCD = Request("KamokuCD") Dim HyojiFlg2 HyojiFlg2 = Request("HyojiFlg2") %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <frameset rows="*,0" framespacing="0" border="0" frameborder="0"> <frame name="main" src="fm_kamoku_ichiran_main.asp?KanriKubun=<% = KanriKubun %>&EnshuCD=<% = EnshuCD %>&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = SaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&HyojiFlg=<% = HyojiFlg %>&HyojiFlg2=<% = HyojiFlg2 %>&<% = TimeUniq() %>" scrolling="no" noresize> <frame name="printout" id="fm_kamoku_ichiran_print.asp?KanriKubun=<% = KanriKubun %>&EnshuCD=<% = EnshuCD %>&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = SaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&HyojiFlg=<% = HyojiFlg %>&HyojiFlg2=<% = HyojiFlg2 %>&<% = TimeUniq() %>"> <noframes> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> </noframes> </frameset> </html> <% End Sub %>