<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
	if Request.cookies(Forcast_SN)("reglevel")=3 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=2 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=1 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
end if
else
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1

if showyear=1 then
newsurl="rnplay.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>[" & year(rs3("UpdateTimeGS"))  &"Äê"& Month(rs3("UpdateTimeGS"))  &"ÔÂ"& Day(rs3("UpdateTimeGS")) &"ÈÕ]</font>"
else
newsurl="rnplay.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>["& Month(rs3("UpdateTimeGS"))  &"ÔÂ"& Day(rs3("UpdateTimeGS")) &"ÈÕ]</font>"
end if

%>
                              