<%@ 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 %> [DIRECT-EA/メッセージエージェント]資料ダウンロード|クロスユーアイエス
株式会社クロスユーアイエス


 商品ソリューション/DIRECT-EA/メッセージエージェント
[資料ダウンロード]
>
<% 'エラーチェック 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)
[ アンケートにご協力ください。 ]
1. DIRECT-EA/メッセージエージェントに興味はお持ちですか?
<% If inputFlg = "True" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" If r_DEMO = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_SETUMEI = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_SIRYO = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" End if %>
" Response.Write "デモンストレーションがみたい
詳しい説明が聞きたい
資料送付を希望する
デモンストレーションがみたい
詳しい説明が聞きたい
資料送付してほしい
2. LED表示ボード、表示灯はご利用ですか?
<% 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 "" Else Response.Write "" If r_riyochu = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_yotei = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_mitei = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" End if %>
利用中
利用予定
未定
利用中
利用予定
未定
3. LED表示ボード、表示灯のご利用(予定)場所は?
<% 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 "" Else Response.Write "" If r_kojo = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_jimusyo = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_syogyo = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_hyoujietc = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" End if %>
工場
事務所
商業施設
その他
場所:
工場
事務所
商業施設
その他
場所:" & r_hyoujietcname & "
4. 貴社のサーバー環境について
<% 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 "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" If r_Windows = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_Linux = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_Unix = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_ofcon = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_general = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" If r_HARDETC = "YES" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" End if %>
Windows系
機種名:
Linux系
機種名:
Unix系
機種名:
オフコン系
機種名:
汎用系
機種名:
その他
機種名:
Windows系
 機種名:" & r_WindowsNAME & "
Linux系
 機種名:" & r_LinuxNAME & "
Unix系
 機種名:" & r_UnixNAME & "
オフコン系
 機種名:" & r_ofconNAME & "
汎用系
 機種名:" & r_generalNAME & "
その他
 機種名:" & r_HARDETCNAME & "
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" End if %> " End if %>
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "
入力いただきました個人情報は皆様が希望された申込への回答(案内)、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。