<!-- #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
%>