<% @ Language=VBScript CodePage=65001%>
<% Session.CodePage = 65001
response.charset="utf-8"%>
<%
Place_Name=reqdata2(request("Subject")) '抓取摩天樓來源
if Place_Name = "" then
response.Write("顯示錯誤!來源不明")
end if
subject=Place_Name&"+"
sql_banner8 = "SELECT * FROM Index_Banner WHERE Category = 8 AND Index_Banner.Show = 'Y' AND SDate < SYSDATE() AND EDate > (DATE_ADD(SYSDATE(), INTERVAL -1 DAY)) AND Subject LIKE '%" & subject & "%' ORDER BY RAND() LIMIT 1"
Set rs_banner8 = conn.Execute( sql_banner8 )
if not(rs_banner8.bof and rs_banner8.eof) then%>
" alt="<%=replace(rs_banner8("Subject"),subject,"")%>" width="120" height="500" border="0" />