<% ' %> <% main() Sub main() Dim KaisyaCD,Amend,DenpyoNo KaisyaCD = Request("KaisyaCD") Amend = Request("amend") DenpyoNo = Request("DenpyoNo") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim ShijoCD ShijoCD = Request("ShijoCD") '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim AutoPrint AutoPrint = Request("AutoPrint") %> <% = HtmlHeader("") %> &AutoPrint=<% = AutoPrint %>&<% = TimeUniq() %>" scrolling="no" noresize> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> <% End Sub %>