<%@ LANGUAGE="VBScript" %> <% '============================================================================== ' ハウジングこまち 資料請求フォーム修正(表示) 07/01/26 Adachi ' 2012/06/28 Adachi 電話番号設定 ' 2014/04/26 Ogawa 独自ドメイン対応(パス変更) '============================================================================== ' ヘッダ設定 HTML_Head = "" HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & "ハウジングこまち 家づくり失敗談投稿" & VbCrLf HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & "" & VbCrLf HTML_Head = HTML_Head & " " & VbCrLf HTML_Head = HTML_Head & " " & VbCrLf HTML_Head = HTML_Head & " " & VbCrLf HTML_Head = HTML_Head & "
" & VbCrLf ' フッタ設定 HTML_Foot = "" HTML_Foot = HTML_Foot & "" & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & " " & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & "
 Copyright (C) Newsline Co., Ltd. All Rights Reserved.
" & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & "
" & VbCrLf HTML_Foot = HTML_Foot & "" & VbCrLf HTML_Foot = HTML_Foot & "" & VbCrLf '-- iniファイル情報取得処理 --------------------------------------------Start-- Dim iniarray() ' iniファイルデータ格納領域 Dim IniFileName ' iniファイル名 Dim CateNm() ' カテゴリ名 Dim JobNm() ' 職業名 Dim AreaNm() ' 都道府県名 IniFileName = "d:\www.housing-komachi.jp\html\hk\toukou.ini" If GetIniFileF(iniarray, IniFileName) <> True Then Response.Write(HTML_Head) Response.Write("

投稿情報がありません。
") Response.Write(HTML_Foot) Response.End End If CsvPath = GetIniFileString(iniarray,"CSV","PATH") ' CSV保存先 CsvName = GetIniFileString(iniarray,"CSV","NAME") ' CSVファイル名 ' カテゴリ CateNum = GetIniFileInt(iniarray, "CATE", "CNT") Redim CateNm(CateNum) For i = 1 To CateNum CateNm(i) = GetIniFileString(iniarray, "CATE", "CATE" & right("00" & i, 2)) Next ' 職業 JobNum = GetIniFileInt(iniarray, "JOB", "CNT") JobSel = GetIniFileString(iniarray, "JOB", "SEL") Redim JobNm(JobNum) For i = 1 To JobNum JobNm(i) = GetIniFileString(iniarray, "JOB", "JOB" & right("00" & i, 2)) Next ' 都道府県 AreaNum = GetIniFileInt(iniarray, "AREA", "CNT") AreaSel = GetIniFileString(iniarray, "AREA", "SEL") Redim AreaNm(AreaNum) For i = 1 To AreaNum AreaNm(i) = GetIniFileString(iniarray, "AREA", "AREA" & right("00" & i, 2)) Next '-- iniファイル情報取得処理 ----------------------------------------------End-- ' 基本項目の取得 toukou = RTrim(Request("toukou")) ' 投稿内容 cate = RTrim(Request("cate")) ' カテゴリ title = RTrim(Request("title")) ' タイトル naiyo = RTrim(Request("naiyo")) ' 内容 nicknm = RTrim(Request("nicknm")) ' ニックネーム name = RTrim(Request("name")) ' 氏名 mail = RTrim(Request("mail")) ' メールアドレス area = RTrim(Request("area")) ' 都道府県 ybin = RTrim(Request("ybin")) ' 郵便番号 adr = RTrim(Request("adr")) ' 住所 age = RTrim(Request("age")) ' 年齢 sex = RTrim(Request("sex")) ' 性別 job = RTrim(Request("job")) ' 職業 marriage = RTrim(Request("marriage")) ' 結婚 telno = RTrim(Request("telno")) ' 電話番号 '-- フォーム出力処理 ---------------------------------------------------Start-- Response.Write(HTML_Head) ' ヘッダ出力 %>

ハウジングこまち 家づくり成功&失敗談投稿キャンペーン


家づくりに関する失敗談を大募集!
家を建てた経験を持つ先輩から、こだわりすぎて予算オーバー…、不自由な間取りで後悔…など、
みんなに知ってもらいたい「家づくり失敗談」の投稿をお待ちしています。

投稿して頂いた方の中から、「最優秀」投稿に『ニンテンドー3DS LL』
また「優秀体験談」には『商品券 2,000円分』
「おもしろ体験談」には、『クオカード 500円分』をプレゼント!




■応募期間
2月28日(土)まで

※入賞した方には、投稿の際にご登録いただいたメールアドレス宛にご連絡させていただきます。
※投稿して頂いた内容は、弊社発刊の雑誌、関連媒体等で掲載させて頂く場合がございますので予めご了承ください。



応募はこちら


● 家づくり失敗談投稿
下記の項目に入力の上、「確認」ボタンをクリックして下さい。
カテゴリを選択 <% For i = 1 To CateNum Response.Write(" " & i & "." & CateNm(i) & "
" & vbcrlf) Next %>
タイトル
内容
ニックネーム
お名前※非公開 (全角)
電話番号※非公開
メールアドレス※非公開 (半角英数)
都道府県名 (都道府県)
郵便番号※非公開 (例:950-8681)
住所※非公開
(例:新潟市中央区女池南3-2-32 こまちハイツ302号)
年齢※非公開 (例:32)
性別※非公開 <% SexFlg = 0 ' 初回チェック無 If sex = "1" Then SexFlg = 1 ' 男性チェック ElseIf sex = "2" Then SexFlg = 2 ' 女性チェック End If If SexFlg = 1 Then Response.Write(" 男性" & vbcrlf) Response.Write(" 女性" & vbcrlf) ElseIf SexFlg = 2 Then Response.Write(" 男性" & vbcrlf) Response.Write(" 女性" & vbcrlf) Else Response.Write(" 男性" & vbcrlf) Response.Write(" 女性" & vbcrlf) End If %>
職業※非公開
結婚※非公開 <% MarFlg = 0 If marriage = "1" Then MarFlg = 1 ElseIf marriage = "2" Then MarFlg = 2 End If If MarFlg = 1 Then Response.Write(" 未婚") Response.Write(" 既婚") ElseIf MarFlg = 2 Then Response.Write(" 未婚") Response.Write(" 既婚") Else Response.Write(" 未婚") Response.Write(" 既婚") End If %>



個人情報の取り扱いについて
※応募の際に、ご入力いただきます個人情報は、抽選、商品の発送、個人を特定しない形での統計情報として利用させていただきます。また、ご本人の同意なく、第三者に提供することはございません。 個人情報の取扱いについての詳細につきましてはこちらをご覧ください。

  <% Response.Write(HTML_Foot) ' フッタ出力 '-- フォーム出力処理 -----------------------------------------------------End-- %>