%@ 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_riyochu Dim r_yotei Dim r_mitei Dim r_kojo Dim r_jimusyo Dim r_syogyo Dim r_hyoujietc Dim r_hyoujietcname Dim r_Windows Dim r_WindowsNAME Dim r_Linux Dim r_LinuxNAME Dim r_Unix Dim r_UnixNAME Dim r_ofcon Dim r_ofconNAME Dim r_general Dim r_generalNAME Dim r_HARDETC Dim r_HARDETCNAME 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_riyochu = Request.Form("riyochu") r_yotei = Request.Form("yotei") r_mitei = Request.Form("mitei") r_kojo = Request.Form("kojo") r_jimusyo = Request.Form("jimusyo") r_syogyo = Request.Form("syogyo") r_hyoujietc = Request.Form("hyoujietc") r_hyoujietcname = Request.Form("hyoujietcname") r_Windows = Request.Form("Windows") r_WindowsNAME = Request.Form("WindowsNAME") r_Linux = Request.Form("Linux") r_LinuxNAME = Request.Form("LinuxNAME") r_Unix = Request.Form("Unix") r_UnixNAME = Request.Form("UnixNAME") r_ofcon = Request.Form("ofcon") r_ofconNAME = Request.Form("ofconNAME") r_general = Request.Form("general") r_generalNAME = Request.Form("generalNAME") r_HARDETC = Request.Form("HARDETC") r_HARDETCNAME = Request.Form("HARDETCNAME") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %>
![]() |
|
![]() |
![]() |
![]()
|
![]() |
![]() ![]()
|