%@ LANGUAGE=VBScript %> <% Dim repage Dim r_EVENTDATE 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_MAILVERI Dim r_ANWEB Dim r_ANSEMI Dim r_ANMAIL Dim r_ANSALES Dim r_ANSALESNAME Dim r_ANETC Dim r_ANETCMSG Dim noErrFlg noErrFlg = "True" repage = Request.Form("repage") inputFlg = Request.Form("inputFlg") r_EVENTDATE = Request.Form("EVENTDATE") 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_MAILVERI = Request.Form("MAILVERI") r_ANWEB = Request.Form("ANWEB") r_ANSEMI = Request.Form("ANSEMI") r_ANMAIL = Request.Form("ANMAIL") r_ANSALES = Request.Form("ANSALES") r_ANSALESNAME = Request.Form("ANSALESNAME") r_ANETC = Request.Form("ANETC") r_ANETCMSG = Request.Form("ANETCMSG") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %>
![]() |
|
![]() |
![]() |
![]()
|
![]() |
![]() ![]()
|