<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and newslevel=0 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from it_News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%><%end if%>
