<%@ Language=VBScript %>
静岡市 駿河不動産 (株) 駿河区 不動産 賃貸 /サイトマップ
<% ' VI 6.0スクリプティング オブジェクト モデル使用可能 %>
<% if StartPageProcessing() Then Response.End() %>
<%
'更新年月日をupdate.txt から取得
dim fs,f,ts
dim updatetxt
dim bukenNO
set fs=CreateObject("Scripting.FileSystemObject")
on error resume next
set f =fs.getfile ("e:\webroot\localuser\suruga-f2.jp\web\update.txt")
if f=empty then
updatetxt=""
else
set ts=f.openAsTextStream(1,0)
updatetxt=ts.readline
end if
on error goto 0
function RETVAL(RET)
IF (RET="") OR ISNULL(RET) THEN
RETVAL=Server.HTMLEncode(" ")
ELSE
RETVAL=Server.HTMLEncode(trim(RET))
END IF
END FUNCTION
SQLSET="SELECT [web_imp].* FROM [web_imp]"
rs1.close
rs1.setSQLText (SQLSET)
rs1.open
SQLSET="SELECT [T_賃貸空物件情報].* FROM [T_賃貸空物件情報] WHERE [KEY]='" & rs1.fields.getValue ("Osusume1") & "'"
rs2.close
rs2.setSQLText (SQLSET)
rs2.open
SQLSET="SELECT [T_賃貸空物件情報].* FROM [T_賃貸空物件情報] WHERE [KEY]='" & rs1.fields.getValue ("Osusume2") & "'"
rs3.close
rs3.setSQLText (SQLSET)
rs3.open
SQLSET="SELECT [T_賃貸空物件情報].* FROM [T_賃貸空物件情報] WHERE [KEY]='" & rs1.fields.getValue ("Osusume3") & "'"
rs4.close
rs4.setSQLText (SQLSET)
rs4.open
SQLSET="SELECT [T_賃貸空物件情報].* FROM [T_賃貸空物件情報] WHERE [KEY]='" & rs1.fields.getValue ("Osusume4") & "'"
rs5.close
rs5.setSQLText (SQLSET)
rs5.open
SQLSET="SELECT [T_賃貸空物件情報].* FROM [T_賃貸空物件情報] WHERE [KEY]='" & rs1.fields.getValue ("Osusume5") & "'"
rs6.close
rs6.setSQLText (SQLSET)
rs6.open
SQLSET="SELECT MAX(DATE_TIME) AS D_TIME FROM T_LOG"
rs7.close
rs7.setSQLText (SQLSET)
rs7.open
%>
