%@ 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_DK Dim r_NOA Dim r_DIRECTDATA Dim r_DIRECTACTA Dim r_DIRECTMESSAGE Dim r_OSSISOP Dim r_PLUTO Dim r_NESTEE Dim r_office Dim r_quality 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_DK = Request.Form("DK") r_NOA = Request.Form("NOA") r_DIRECTDATA = Request.Form("DIRECTDATA") r_DIRECTMESSAGE = Request.Form("DIRECTMESSAGE") r_OSSISOP = Request.Form("OSSISOP") r_PLUTO = Request.Form("PLUTO") r_NESTEE = Request.Form("NESTEE") r_office = Request.Form("office") r_quality = Request.Form("quality") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %>
![]() |
|
![]() |
![]() |
![]()
|
![]() |
![]() ![]()
|