<%@ 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") '画面のモード（入力可能な状態の場合（１回目か、もしくは２回目以降　かつ　エラーがある場合）はTrue） Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %> お申し込みフォーム｜クロスユーアイエス
株式会社クロスユーアイエス


 お申し込みフォーム
 業務現場におけるデータ活用スタイルご紹介セミナー
> <% 'エラーチェック If repage <> "" Then ' #ご参加希望日未入力 If r_EVENTDATE = "" Then Response.Write "
ご参加希望日を選択してください
" & RetC noErrFlg = "False" End If ' #会社名未入力 If r_COMPANY = "" Then Response.Write "
会社名を記入してください
" & RetC noErrFlg = "False" End If ' #氏名入力 If r_NAME = "" Then Response.Write "
氏名を記入してください
" & RetC noErrFlg = "False" End If '#電話番号 If r_PHONE = "" Then Response.Write "
電話番号を記入してください
" & RetC noErrFlg = "False" End If '#e-mailアドレス If r_MAIL = "" Then Response.Write "
E-mailアドレスを記入してください
" & RetC noErrFlg = "False" End If '#e-mailアドレス If r_MAIL <> r_MAILVERI Then Response.Write "
E-mailアドレスとE-mailアドレス(確認用)が異なります。同じメールアドレスを記入してください
" & RetC noErrFlg = "False" End If End if If noErrFlg = "True" and repage = "True" Then inputFlg = "False" Response.Write "" Else inputFlg = "True" Response.Write "" End if %> <% If inputFlg = "True" Then Response.Write "

" Response.Write "※印の項目は必ずご記入ください。
" Response.Write "項目記入の際には、「半角カナ文字」は使わないでください。

" Else Response.Write "以下の内容で送信します。" End if %>
" Else Response.Write r_MAIL Response.Write "" End if %> " Else Response.Write r_MAILVERI Response.Write "" End if %>
ご参加希望日※ <% If inputFlg = "True" Then Response.Write "［大阪］　" Response.Write " 2/26（火）　　" Response.Write "
" Response.Write "
" Response.Write "［東京］　" Response.Write " 2/28（木）　　" Response.Write "
" Else Response.Write r_EVENTDATE Response.Write "" End if %>
会社名※ <% If inputFlg = "True" Then Response.Write "" Else Response.Write r_COMPANY Response.Write "" End if %>
業種 <% If inputFlg = "True" Then Response.Write "" Else Response.Write r_CATEGORY Response.Write "" End if %>
所属 <% If inputFlg = "True" Then Response.Write "" Else Response.Write r_SECTION Response.Write "" End if %>
役職 <% If inputFlg = "True" Then Response.Write "" Else Response.Write r_TITLE Response.Write "" End if %>
氏名※ （漢字）　　 <% If inputFlg = "True" Then Response.Write "" Response.Write "［全角20文字以内］" Else Response.Write r_NAME Response.Write "" End if %>
（フリガナ） <% If inputFlg = "True" Then Response.Write "" Response.Write "［全角20文字以内］" Else Response.Write r_KANA Response.Write "" End if %>
住所 <% If inputFlg = "True" Then Response.Write "（郵便番号） " End if %> <% If inputFlg = "True" Then Response.Write "" Response.Write " ［半角数字］
" Response.Write "
" Response.Write "（例/ 5001234）
" Response.Write "
" Else Response.Write r_YUBIN Response.Write "" End if If inputFlg = "True" Then Response.Write "（都道府県名）" Response.Write "" Response.Write "
" Else Response.Write r_TODOFUKEN Response.Write "" End if %>
<% If inputFlg = "True" Then Response.Write "（住所）" Response.Write "" Else Response.Write r_ADDRESS Response.Write "" End if If inputFlg = "True" Then Response.Write "［全角］" End if %>
電話番号※ <% If inputFlg = "True" Then Response.Write "" Response.Write " ［半角数字］
" Response.Write "（例/ 0612345678）" Else Response.Write r_PHONE Response.Write "" End if %>
FAX番号 <% If inputFlg = "True" Then Response.Write "" Response.Write " ［半角数字］
" Response.Write "（例/ 0612345678）" Else Response.Write r_FAX Response.Write "" End if %>
E-mailアドレス※ <% If inputFlg = "True" Then Response.Write "" Response.Write "［半角英数字］
" Response.Write "
" Response.Write "（例/xxxxx@xxx.co.jp）
E-mailアドレス
(確認用)※		 <% If inputFlg = "True" Then Response.Write "" Response.Write "［半角英数字］
" Response.Write "
" Response.Write "
このセミナーをお知りになったきっかけは何ですか？（複数選択可）
<% If inputFlg = "True" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else If r_ANWEB = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_ANSEMI = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_ANMAIL = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_ANSALES = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" If r_ANETC = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" End if %>
弊社ＷＥＢサイトに直接アクセスして
展示会・セミナーで
メールニュースで
弊社営業から" Response.Write "
その他" Response.Write "
弊社ＷＥＢサイトに直接アクセスして
展示会セミナーで
メールニュースで
弊社営業から　" & r_ANSALESNAME & "
その他　" & r_ANETCMSG & "
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" End if %> " End if %>
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "
入力いただきました個人情報は皆様が希望された申込への回答（案内）、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。