%@ LANGUAGE=VBScript %> <% Dim repage Dim r_COMPANY Dim r_CATEGORY Dim r_SECTION Dim r_TITLE Dim r_NAME Dim r_KANA Dim r_YUBIN Dim r_TODOFUKEN Dim r_ADDRESS Dim r_PHONE Dim r_FAX Dim r_MAIL Dim r_DEMO Dim r_SETUMEI Dim r_SIRYO Dim r_AS400 Dim r_IBM Dim r_RS600 Dim r_Linux Dim r_DBreport Dim r_dataware Dim r_appli Dim r_iSeries Dim r_zSeries Dim r_pSeries Dim r_Windows Dim r_LINUX2 Dim r_HARDETC Dim r_HARDETCMSG Dim noErrFlg noErrFlg = "True" repage = Request.Form("repage") inputFlg = Request.Form("inputFlg") r_COMPANY = Request.Form("COMPANY") r_CATEGORY = Request.Form("CATEGORY") r_SECTION = Request.Form("SECTION") r_TITLE = Request.Form("TITLE") r_NAME = Request.Form("NAME") r_KANA = Request.Form("KANA") r_YUBIN = Request.Form("YUBIN") r_TODOFUKEN = Request.Form("TODOFUKEN") r_ADDRESS = Request.Form("ADDRESS") r_PHONE = Request.Form("PHONE") r_FAX = Request.Form("FAX") r_MAIL = Request.Form("MAIL") r_DEMO = Request.Form("DEMO") r_SETUMEI = Request.Form("SETUMEI") r_SIRYO = Request.Form("SIRYO") r_AS400 = Request.Form("A400") r_IBM = Request.Form("IBM") r_RS600 = Request.Form("RS600") r_Linux = Request.Form("Linux") r_DBreport = Request.Form("DBreport") r_dataware = Request.Form("dataware") r_appli = Request.Form("appli") r_iSeries = Request.Form("iSeries") r_zSeries = Request.Form("zSeries") r_pSeries = Request.Form("pSeries") r_Windows = Request.Form("Windows") r_LINUX2 = Request.Form("LINUX2") r_HARDETC = Request.Form("HARDETC") r_HARDETCMSG = Request.Form("HARDETCMSG") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %>
![]() |
|
![]() |
![]() |
![]()
|
![]() |
![]() ![]()
|