<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/hakushityohyo/rn_unsohoken_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：白紙帳票-見積依頼書の照会
' 作成日：2002/9/21
' 作成者：川崎
' 目的 ：白紙帳票-見積依頼書の照会画面を表示する。
' 概要 ：
' <<表示>>
' ・見積依頼書の照会
'################################################
'-->
'
'
%>
<%
main()
Sub main()
Dim BunsyoSyuruiCD, SyoruiMei, SyoriMongon
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim RouteType
RouteType = Request("RouteType")
Dim Title
Title = Request("Title")
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
' Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", Title, "", "", "", "", ""))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "白紙帳票", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4(SyoruiMei , ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="680" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:680px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = Unsohoken(BunsyoSyuruiCD, SyoruiMei, SyoriMongon, AutoFlg, 0) %>
</DIV>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</div>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>