 |
活動訊息 |
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open application("Conn")
sql = "select top 3 * from ACTION order by ONDATE desc"
rs.Open sql, conn, 1, 1
do while not rs.eof
if rs("detail")<>"" then
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
elseif rs("url")<>"" then
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
else
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
end if
rs.movenext
loop
rs.close
%>
|
|
看更多
|
 |
媒體報導 |
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open application("Conn")
sql = "select top 3 * from MEDIA order by ONDATE desc"
rs.Open sql, conn, 1, 1
do while not rs.eof
if rs("detail")<>"" then
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
elseif rs("url")<>"" then
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
else
response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf
end if
rs.movenext
loop
rs.close
%>
|
|
看更多
|
 |
特約廠商 |
|
凡明曜百貨卡友、遠雄人壽加值服務網會員、Cosco 好市多會員……,可享試做與入會費優惠折扣
|
|
看更多
|
|