%@ Language="VBScript" %>
パノラマコンテンツ表示
<%
bukkenid = Request.QueryString("Id")
spotNum = Request.QueryString("SpotNum")
'間取り図がある場合
dim PLAYER_WIDTH,PLAYER_HEIGHT,PLAYER_PATH
if (bukkenid = "") then
Response.Write ""
Response.Write "
物件が見つかりません
"
Response.Write "物件IDの確認の上、再度アクセスしてください。"
Response.Write "
"
Response.Write ""
Response.Write ""
Response.End
end if
if (spotNum = "") then
spotNum = 0
end if
ConnectDB()
//To prevent SQL Injection//
Dim regEx
Set regEx = New RegExp
regEx.Global = true
regEx.Pattern = "[^0-9a-zA-Z_-]"
bukkenid = regEx.Replace(bukkenid, "")
strSQL = "Select * from pano_m_bukken where M1_ID ='" & bukkenid & "' and M1_INVALID = 0"
Set objRecordSet = adoConn.execute(strSQL)
if (objRecordSet.EOF) then
Response.Write ""
Response.Write "
物件が見つかりません
"
Response.Write "物件IDを確認の上、再度アクセスしてください。"
Response.Write "
"
Response.Write "