<%@ 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_DEMO Dim r_SETUMEI Dim r_SIRYO Dim r_ETC Dim r_ETCMSG Dim r_EXCHANGE Dim r_ENTRY Dim r_PRINTING Dim r_EXCELWORD Dim r_ETC2 Dim r_ETC2MSG Dim r_iSeries Dim r_zSeries Dim r_pSeries Dim r_Windows Dim r_LINUX Dim r_HARDETC Dim r_HARDETCMSG 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_ETC = Request.Form("ETC") r_ETCMSG = Request.Form("ETCMSG") r_EXCHANGE = Request.Form("EXCHANGE") r_ENTRY = Request.Form("ENTRY") r_PRINTING = Request.Form("PRINTING") r_EXCELWORD = Request.Form("EXCELWORD") r_ETC2 = Request.Form("ETC2") r_ETC2MSG = Request.Form("ETC2MSG") r_iSeries = Request.Form("iSeries") r_zSeries = Request.Form("zSeries") r_pSeries = Request.Form("pSeries") r_Windows = Request.Form("Windows") r_LINUX = Request.Form("LINUX") r_HARDETC = Request.Form("HARDETC") r_HARDETCMSG = Request.Form("HARDETCMSG") '画面のモード(入力可能な状態の場合(1回目か、もしくは2回目以降 かつ エラーがある場合)はTrue) Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %> [DIRECT-EA/Data エージェント]資料ダウンロード|クロスユーアイエス
株式会社クロスユーアイエス


 商品ソリューション/DIRECT-EA/Data エージェント
[資料ダウンロード]
> <% 'エラーチェック 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/Dataエージェントについてお聞かせください(複数選択可)
<% 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_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 "" Response.Write "" If r_ETC = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" End if %>
デモンストレーションがみたい
詳しい説明が聞きたい
資料送付を希望する
その他" Response.Write "
デモンストレーションがみたい
詳しい説明が聞きたい
資料送付を希望する
その他 " & r_ETCMSG & "
2. 貴社でのExcelの利用方法として該当するものを全てお選びください(複数選択可)
<% 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 "" Else Response.Write "" If r_EXCHANGE = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_ENTRY = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_PRINTING = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_EXCELWORD = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_ETC2 = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" End if %>
取引先とのデータの受け渡し
業務データの入力
請求書・納品書などの印刷
表計算・ワープロ
その他" Response.Write "
取引先とのデータの受け渡し
業務データの入力
請求書・納品書などの印刷
表計算・ワープロ
その他 " & r_ETC2MSG & "
3. 貴社のサーバー環境について
<% 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 "" Else Response.Write "" If r_iSeries = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_zSeries = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_pSeries = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_Windows = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_LINUX = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" If r_HARDETC = "YES" Then Response.Write "" Response.Write "" Else Response.Write "" End if Response.Write "" Response.Write "" End if %>
IBM eServer iSeries (AS/400)
IBM eServer zSeries (汎用機)
IBM eServer pSeries (RS/6000)
Windows系
Linux系
その他" Response.Write "
IBM eServer iSeries (AS/400)
IBM eServer zSeries (汎用機)
IBM eServer pSeries (RS/6000)
Windows系
Linux系
その他 " & r_HARDETCMSG & "
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "" End if %> " End if %>
<% If inputFlg = "True" Then Response.Write "" Else Response.Write "
入力いただきました個人情報は皆様が希望された申込への回答(案内)、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。