<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :自社情報照会 ' 作成日:2002/8/30 ' 作成者:山崎 ' 目的 :自社情報を照会する ' 概要 : ' <<表示>> ' ・自社情報を表示 ' 2002/9/30:山崎:修正:会社略名称を追加 '################################################ '--> %> <% main() Sub main() Dim RouteType RouteType = Request("RouteType") %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <frameset rows="*,0" framespacing="0" border="0" frameborder="0"> <frame name="main" src="teikan_main.asp?RouteType=<% = RouteType %>&WBCLB=<% = Request("WBCLB") %>&<% = TimeUniq() %>" scrolling="no" noresize> <frame name="printout" id="teikan_print.asp?RouteType=<% = RouteType %>&WBCLB=<% = Request("WBCLB") %>&<% = TimeUniq() %>"> <noframes> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> </noframes> </frameset> </html> <% End Sub %>