% ' %> <% 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("") %>
<% End Sub %>