<%@ 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 "" Response.Write "" Response.End end if if IsNull(objRecordSet("M1_MADORIFILE")) or trim(objRecordSet("M1_MADORIFILE")) = "" then '間取り図がない場合 PLAYER_WIDTH = 472 PLAYER_HEIGHT = 215 PLAYER_PATH = USERSCRIPTS_URL_PATH & "pcplayer2/" else '間取り図がある場合 PLAYER_WIDTH = 472 PLAYER_HEIGHT = 460 PLAYER_PATH = USERSCRIPTS_URL_PATH & "pcplayer/" end if '加盟店の名前も取得 dim username,userid,iLen userid = bukkenid iLen = Instr(userid, "_") userid = Left(userid,iLen-1) strSQL = "Select * from pano_m_user where M3_USERID ='" & userid & "'" Set objRecordSet2 = adoConn.execute(strSQL) if (objRecordSet2.EOF) then username = "" postalcode = "" address1 = "" address2 = "" phone = "" email = "" else username = objRecordSet2("M3_USERNAME") postalcode = objRecordSet2("M3_POSTALCODE") address1 = objRecordSet2("M3_ADDRESS1") address2 = objRecordSet2("M3_ADDRESS2") phone = objRecordSet2("M3_PHONE") email = objRecordSet2("M3_EMAIL") end if project = IMAGES_URL_PATH & userid & "/" & bukkenid & "/pcproject.prj" text = objRecordSet("M1_TEXT") text = replace(text,vbcrlf,"
") %>
物件コード:<%=objRecordSet("M1_CODE")%>
登録日付:<%=objRecordSet("M1_REGDATE")%>
物件名: <%=text%>

<%=username%>
〒<%=postalcode%> <%=address1%>
<%=address2%>
TEL:<%=phone%> E-Mail:)"><%=email%>
<% DisconnectDB() %>