<%@ Language=VBScript %> <% Option Explicit %> <% '******************************************************* ' 初期値設定 '******************************************************* Dim n Dim a_trg_mny Dim a_jko_mny Dim a_bns_mny Dim a_bns_mode_v1 Dim a_bns_mode_v2 Dim a_usr_age Dim a_kinri Dim a_pay_year Dim err_msg Dim rst_msg(6) Dim sg_msg Dim com_err Dim com_rst Dim fst_ok_msg Dim cell_col(6) ' ------------------------------------------------------- a_trg_mny = "" If Request("trg_mny") <> "" Then a_trg_mny = Request("trg_mny") End If a_jko_mny = "" If Request("jko_mny") <> "" Then a_jko_mny = Request("jko_mny") End If a_bns_mode_v1 = "" a_bns_mode_v2 = "" If Request("bns_mode") = "V1" Then a_bns_mode_v1 = "checked" ElseIf Request("bns_mode") = "V2" Then a_bns_mode_v2 = "checked" End If If a_bns_mode_v1 = "" AND a_bns_mode_v2 = "" Then a_bns_mode_v2 = "checked" End If a_bns_mny = "" If Request("bns_mny") <> "" Then a_bns_mny = Request("bns_mny") End If a_usr_age = "" If Request("usr_age") <> "" Then a_usr_age = Request("usr_age") End If a_kinri = Cst_KINRI If Request("kinri") <> "" Then a_kinri = Request("kinri") End If a_pay_year = "" If Request("pay_year") <> "" Then a_pay_year = Request("pay_year") End If ' ------------------------------------------------------- For n = 0 To 5 cell_col(n) = "cell_bgcol_ok" Next com_err = 1 ' 初期表示はコメント(エラー表示) com_rst = 1 ' 初期表示はコメント(結果表示) err_msg = "" For n = 0 To 5 rst_msg(n) = "" Next sg_msg = "" fst_ok_msg = "" ' 計算結果の戻りから If Request("d_mode") = "2" Then If Request("ret_mode") = "1" Then ' 入力エラー com_err = 0 ' エラー表示を有効にする For n = 0 To 5 If Request("errm" & n) <> "" Then If err_msg <> "" Then err_msg = err_msg & "
" End If err_msg = err_msg & Request("errm" & n) End If If Request("errf" & n) = "1" Then cell_col(n) = "cell_bgcol_ng" End If Next Else com_rst = 0 ' 結果表示を有効にする fst_ok_msg = "設定を変更して続けてシミュレーションが可能です。" For n = 0 To 5 rst_msg(n) = Request("rest" & n) Next If Cst_ShisyaGonyu = 1 Then ' 四捨五入なら sg_msg = "１，０００円単位を四捨五入した結果で表示しています。" End If End If Else fst_ok_msg = "▼ 下記の項目にご入力ください。（※印は必ずご入力ください。）" End If ' ------------------------------------------------------- %> 【公式HP】ヨーロピアンテイストの新築分譲マンション　大和地所レジデンス

大和地所レジデンス

onSubmit="return check_bform1()"> <% ' --------------------------------------------------- ' エラー発生時に有効になる領域（ここから） If com_err = 1 Then ' 初期表示または結果正常の場合は Com_PutCommentStr( 1 ) ' こちらをコメントにする End If ' --------------------------------------------------- %> <% ' --------------------------------------------------- ' エラー発生時に有効になる領域（ここまで） If com_err = 1 Then ' 初期表示または結果正常の場合は Com_PutCommentStr( 0 ) ' コメントにする End If ' --------------------------------------------------- %> <% ' --------------------------------------------------- ' 結果表示時に有効になる領域（ここから） If com_rst = 1 Then ' 初期表示またはパラメータエラーの場合は Com_PutCommentStr( 1 ) ' コメントにする End If ' --------------------------------------------------- %> <% ' --------------------------------------------------- ' 結果表示時に有効になる領域（ここまで） If com_rst = 1 Then ' 初期表示またはパラメータエラーの場合は Com_PutCommentStr( 0 ) ' コメントにする End If ' --------------------------------------------------- %>
物件価格から月々の返済額をシミュレーション
▼ 下記の項目を修正頂き、計算実行ボタンを押してください。
<%=err_msg%>
シミュレーション結果
<%=rst_msg(2)%> <%=rst_msg(3)%>
<%=rst_msg(4)%> <%=rst_msg(5)%>
<%=sg_msg%>
※表示される金額には、諸費用などは含まれておりません。
<%=fst_ok_msg%>
・物件価格　※ 　万円
・自己資金 　万円
（0円から計算可能です。）
※諸費用等は含みません。
・ボーナス時返済 name="bns_mode">　利用する　 name="bns_mode">　利用しない
・ボーナス時加算額 　万円
（ボーナス時返済をする場合のみ、記入してください。）
（0円から計算可能です。）
※諸費用等は含みません。入力された金額に金利が加算されます。
・年齢 　歳
・金利 　％として計算
（ご希望の金利にて計算される場合は、変更可能です。）
（未記入時は、2.625％で計算されます。
※実際には▲1.0％〜1.2％程度優遇される場合があります。）
・ご希望の支払い年数 　年
（最長は35年あるいは年齢が80歳までの完済となります。）
注意事項
●計算方法は、元利金等返済・変動金利にてされます。
●このシミュレーションは、あくまで目安としてご利用頂くもので、
　お借入可能な金額、金利、借入期間などは、金融機関、お客様のご年収、ご職業などで異なります。
●想定されている金利と実際の借り入れ金利は異なります。
●試算結果については、実際と異なる場合がございます。詳しくは当社営業スタッフにご相談ください。

戻る CLOSE

Copyright (C) DAIWA LAND RESIDENCE CO.,LTD. All Rights Reserved.