 |
活動訊息 |
|
<%
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 好市多會員……，可享試做與入會費優惠折扣 | |
| 看更多 |
Copyright © 2002 - 2008 MOMOSUN Ltd All Rights Reserved.