|
|
|
|
|
|
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 10 Subject,CreateDate,ID,Type from tbNoticeBoard Where Mark=0 and type=3 and expiredate > getdate() order by CreateDate desc"
rs.open sql,conn,3,2
while not rs.eof
if len(rs("Subject")) > 27 then
Subject = left(rs("Subject"),27) & "...."
else
Subject = rs("Subject")
end if
i = i + 1
if i mod 2 = 1 then
color = "#FFDAAB"
else
color = "#f7ecdd"
end if
select case rs("Type")
case "1"
SubjectType="消費資(警)訊"
case "3"
SubjectType="新聞稿"
case "4"
SubjectType="本會公告"
end select
%>
| ><%=rs("createdate")%> |
>"
href="http://www.cpc.gov.tw/detail.asp?id=<%=rs("ID")%>"><%=rs("Subject")%> |
<%
rs.movenext
wend
rs.close
%>
|
more... | | |
|
|
| 2010/2/10 |
消費者保護研究第十六輯 徵稿啟事 |
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 6 Subject,CreateDate,ID,Type from tbNoticeBoard Where Mark=0 and type=4 and ID<>1413 and expiredate > getdate() order by CreateDate desc"
rs.open sql,conn,3,2
while not rs.eof
if len(rs("Subject")) > 27 then
Subject = left(rs("Subject"),27) & "...."
else
Subject = rs("Subject")
end if
i = i + 1
i = i
if i mod 2 = 1 then
color = "#FFB7EF"
else
color = "#f7ddf1"
end if
select case rs("Type")
case "1"
SubjectType="消費資(警)訊"
case "3"
SubjectType="新聞稿"
case "4"
SubjectType="本會公告"
end select
%>
| ><%=rs("createdate")%> |
>"
href="http://www.cpc.gov.tw/detail.asp?id=<%=rs("ID")%>"><%=rs("Subject")%> |
<%
rs.movenext
wend
rs.close
%>
|
more... | | |
|
|
| 查閱國內商品召回訊息,請點選下方商品安全資訊專區 |
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 6 CHARINDEX('消費警訊', subject) AS k1, CHARINDEX('消費資訊',subject) AS k2,Subject,CreateDate,ID,Type from tbNoticeBoard Where Mark=0 and (note=1 or type=1) and expiredate > getdate() order by CreateDate desc"
rs.open sql,conn,3,2
while not rs.eof
if len(rs("Subject")) > 27 then
Subject = left(rs("Subject"),27) & "...."
else
Subject = rs("Subject")
end if
color ="#666666"
if rs("k1")>0 then
color="#CC3366"
elseif rs("k2") > 0 then
color="green"
end if
i = i + 1
if i mod 2 = 1 then
color1 = "#dfe0f4"
else
color1 = "#B5B8E8"
end if
select case rs("Type")
case "1"
SubjectType="消費資(警)訊"
case "3"
SubjectType="新聞稿"
case "4"
SubjectType="本會公告"
end select
%>
| ><%=rs("createdate")%> |
>"
href="http://www.cpc.gov.tw/detail.asp?id=<%=rs("ID")%>">><%=rs("Subject")%> |
<%
rs.movenext
wend
rs.close
%>
|
more... | | |
|
|
|
|
|