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


 資料請求
> <% 'エラーチェック 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 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" or r_DK = "YES" or r_NOA = "YES" or r_DIRECTDATA = "YES" or r_DIRECTMESSAGE = "YES" or r_OSSISOP = "YES" or r_PLUTO = "YES" or r_DIRECTGHS = "YES" then Response.Write "" End if %>
商品ソリューション
<% 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else If r_DK = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_NOA = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_DIRECTDATA = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_DIRECTMESSAGE = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_OSSISOP = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_PLUTO = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if If r_NESTEE = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if End if %>
" Response.Write "Data Knowledge
" Response.Write "OSS/NOA
DIRECT-EA/Dataエージェント
DIRECT-EA/メッセージエージェント
OSSISOP
PLUTO　for　Web
WebNESTEE
Data Knowledge
OSS/NOA
DIRECT-EA/Dataエージェント
DIRECT-EA/メッセージエージェント
OSSISOP
PLUTO　for　Web
WebNESTEE
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" Response.Write "" End if %>
" Response.Write "" Response.Write " 業務ソリューション" Response.Write "" If r_office = "YES" Then Response.Write " 業務ソリューション" End if Response.Write "
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" End if %> " End if %>
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "
入力いただきました個人情報は皆様が希望された申込への回答（案内）、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。