<%@ 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_MESSAGE 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_MESSAGE = Request.Form("MESSAGE") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %> お問合せ|クロスユーアイエス
株式会社クロスユーアイエス


 商品ソリューション/WebNESTEE
[お問合せ]
>
<% 'エラーチェック If repage <> "" Then ' #会社名未入力 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 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 "
" Response.Write "

印の項目は必ずご記入ください。

" Else Response.Write "以下の内容で送信します。" End if %>
イラスト
" Else Response.Write r_MAIL Response.Write "" End if %>
お問合せ内容をお書き下さい <% If inputFlg = "True" Then Response.Write "" Else 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)
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" End if %> " End if %>
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "
入力いただきました個人情報は皆様が希望された申込への回答(案内)、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。