［OSS/NOA-V3］資料ダウンロード｜クロスユーアイエス

<%@ 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_AS400 Dim r_IBM Dim r_RS600 Dim r_Linux Dim r_DBreport Dim r_dataware Dim r_appli Dim r_iSeries Dim r_zSeries Dim r_pSeries Dim r_Windows Dim r_LINUX2 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_AS400 = Request.Form("A400") r_IBM = Request.Form("IBM") r_RS600 = Request.Form("RS600") r_Linux = Request.Form("Linux") r_DBreport = Request.Form("DBreport") r_dataware = Request.Form("dataware") r_appli = Request.Form("appli") r_iSeries = Request.Form("iSeries") r_zSeries = Request.Form("zSeries") r_pSeries = Request.Form("pSeries") r_Windows = Request.Form("Windows") r_LINUX2 = Request.Form("LINUX2") r_HARDETC = Request.Form("HARDETC") r_HARDETCMSG = Request.Form("HARDETCMSG") '画面のモード（入力可能な状態の場合（１回目か、もしくは２回目以降　かつ　エラーがある場合）はTrue） Dim inputFlg If repage <> "True" Then inputFlg = "True" End if %> ［OSS/NOA-V3］資料ダウンロード｜クロスユーアイエス

商品ソリューション／OSS/NOA-V3
［資料ダウンロード］

<% 'エラーチェック 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. OSS/NOA-V3(Web)、 OSS/NOA-V3(Win)に興味はお持ちですか？

" Response.Write "	デモンストレーションがみたい
	詳しい説明が聞きたい
	資料送付してほしい
	AS/400版 " Response.Write " IBM汎用機版 " Response.Write " RS/6000版 " Response.Write " Linux版 " Response.Write "
デモンストレーションがみたい
詳しい説明が聞きたい
資料送付してほしい
	" If r_AS400 = "YES" Then Response.Write " AS/400版 " Response.Write "" Else Response.Write "" End if If r_IBM = "YES" Then Response.Write " IBM汎用機版 " Response.Write "" Else Response.Write "" End if If r_RS600 = "YES" Then Response.Write " RS/6000版 " Response.Write "" Else Response.Write "" End if If r_Linux = "YES" Then Response.Write " Linux版 " Response.Write "" Else Response.Write "" End if End if %>

2. ご興味のある適用範囲はどれですか？

	DBレポーティング
	データウェアハウス
	アプリケーション開発
DBレポーティング
データウェアハウス
アプリケーション開発

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_LINUX2 = "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 "

入力いただきました個人情報は皆様が希望された申込への回答（案内）、および弊社との情報交換に使用させていただきます。またこの他に、弊社の製品やセミナー、イベントなどのご案内に使用させていただくことがあります。