HOME ＞ 買いたい人のシュミレーション 　買いたい人のシュミレーション ■都道府県から検索 都道府県を指定して送信ボタンをクリックしてください。 <% Set DBref = Server.CreateObject("ADODB.Connection") DBref.Open "DSN=bukken" SQL = "SELECT BukkenDB.Data_Syurui as 種別 FROM BukkenDB where Bukken_Syumoku_ID > 20 And Bukken_Syumoku_ID < 30 GROUP BY BukkenDB.Data_Syurui ORDER BY BukkenDB.Data_Syurui DESC" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL,DBref,1,1 syumoku_SQL = "SELECT BukkenDB.Bukken_Syubetsu as 種目 FROM BukkenDB where Bukken_Syumoku_ID > 20 And Bukken_Syumoku_ID < 30 GROUP BY BukkenDB.Bukken_Syubetsu ORDER BY BukkenDB.Bukken_Syubetsu DESC" Set syumoku_RS = Server.CreateObject("ADODB.Recordset") syumoku_RS.Open syumoku_SQL,DBref,1,1 Todo_SQL = "SELECT Todoufuken_Master.Todoufuken_Mei, Todoufuken_Master.Todoufuken_Code FROM BukkenDB ,Todoufuken_Master where BukkenDB.Todoufuken_Code = Todoufuken_Master.Todoufuken_Code GROUP BY Todoufuken_Master.Todoufuken_Mei, Todoufuken_Master.Todoufuken_Code ORDER BY Todoufuken_Master.Todoufuken_Code" Set Todo_RS = Server.CreateObject("ADODB.Recordset") Todo_RS.Open Todo_SQL,DBref,1,1 heya_SQL = "SELECT 間取タイプ AS h_typpe FROM 間取り一覧" Set heya_RS = Server.CreateObject("ADODB.Recordset") heya_RS.Open heya_SQL,DBref,1,1 %> ■物件種別： <% Do While Not RS.Eof %> "><%= RS("種別") %> <% RS.MoveNext LOOP %> ■都道府県： <% Do While Not Todo_RS.Eof %> "><%= Todo_RS("Todoufuken_Mei") %> <% Todo_RS.MoveNext LOOP %> 上記の条件でする ■条件を絞り込んで検索 物件種目、都道府県、沿線名、駅名、部屋タイプ、部屋数を入力し、送信ボタンをクリックしてください。(*)は必須入力 ■物件種別： <% RS.MoveFirst %> <% Do While Not RS.Eof %> "><%= RS("種別") %> <% RS.MoveNext LOOP %> ■物件種目：* <% Do While Not syumoku_RS.Eof %> "><%= syumoku_RS("種目") %> <% syumoku_RS.MoveNext LOOP %> ■都道府県：* <% Todo_RS.MoveFirst %> <% Do While Not Todo_RS.Eof %> "><%= Todo_RS("Todoufuken_Mei") %> <% Todo_RS.MoveNext LOOP %> ■沿線名： 線 ■駅名： 駅 ■部屋タイプ： <% Do While Not heya_RS.Eof %> "><%= heya_RS("h_typpe") %> <% heya_RS.MoveNext LOOP %> ■部屋数： 　〜　 上記の条件でする このページのTOPへ