<% 'DB接続////////////////////////////////////////////////////////////// dim iCounter, rs, cn, MDBNM, seieiDB set cn=server.CreateObject("ADODB.connection") set rs=server.CreateObject("ADODB.recordset") MDBNM = Server.MapPath("/DB/redb.mdb") seieiDB = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MDBNM cn.CursorLocation=3 cn.open seieiDB 'strSQL="SELECT * FROM 売買物件テーブル WHERE 物件状況ID IN (1,2,5,8) AND 広告掲載=TRUE " strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE ネット掲載=True AND 物件状況ID IN (1, 2, 5) ORDER BY 物件種別ID, 価格" rs.Open strSQL,cn,adOpenStatic',adLockOptimistic rs.MoveFirst iCounter=rs.RecordCount '//////////////////////////////////////////////////////////////////// %>
不動産
不動産 不動産 不動産 不動産 不動産 不動産 不動産
  これより先は、「広告不可物件」等の一般のメディアからでは手に
入らない売買物件情報をご提供致します。
  上記の物件情報をご覧になって頂くには、売主様のプライバシー
保護に基づき、お客様の本人確認をさせて頂きます。
  氏名・住所・電話番号・メールアドレス等を登録フォームから登録
して頂きました後、こちらからお客様専用ユーザーIDとパスワードを
メールにてご送付させて頂きます。
  上記事項を同意の上、「会員登録」にお進み下さい。

SANTウェブ会員登録


現在登録物件数:<%=iCounter%> 件

近日、会員ページからのご成約が大変多くなっております。
物件をお探しの方は、必ず登録される事をお勧めします!
SANTウェブ会員認証
ユーザーID:
パスワード:
 

Designed by JNT. Privacy & Copyright (c) SANT HOUSING Inc. All Rights Reserved.
<% rs.Close cn.Close set rs=nothing set cn=nothing %>