如何给前三条最新信息旁边加上一个红旗

有时为了突出最新信息，可以在最新信息前几条定义为小红旗，但是asp中俺不会写这样的语句，不知有办法吗
我的代码如下：要求在新闻资讯版块中的前三条右边前上小红旗，以表明这三条是最新发的信息。

Sub kyl_syxwzx(classname,num)

		if classname="新闻资讯" then

		LinkUrl = "kyl_xwzx_zzy.asp"

		elseif classname="项目动态" then

		LinkUrl = "kyl_mtbd_zzy.asp"

		end if

'	response.Write classname

'	response.End()

	dim rs,imgs

    set rs=Server.CreateObject("ADODB.recordset")

	rs.open"select classid,classname from articleclass where classname='" & classname & "'",conn,1,1

	csid=rs("Classid")

	rs.close

    rs.open "select ArticleID,title,classid,Deleted,updatetime,updatetime,CopyFrom,Author,Hits,Hot from Article where classid="&csid&" and Deleted=false order by updatetime desc ",conn,1,1

	if rs.bof and rs.eof then

		response.write "<div align='center' style='color:#464646'>资料整理中...</div>"

	else

'	response.Write rs.recordcount

'	response.End()

rs.PageSize =1 '这里设定每页显示的记录数

pre = true

last = true

page = trim(Request.QueryString("page"))

 if len(page) = 0 then

    intpage = 1

    pre = false

 else

    if cint(page) =< 1 then

       intpage = 1

       pre = false

    else

        if cint(page)>=rs.PageCount then

        intpage = rs.PageCount

        last = false

        else

        intpage = cint(page)

     end if

   end if

end if

   if not rs.eof then

         rs.AbsolutePage = intpage

   end if



		for n=1 to num

			if not rs.eof then 

		mt=month(rs("updatetime"))

		if len(mt)<2 then

		mt=0&mt

		end if 

		dt=day(rs("updatetime"))

		if len(dt)<2 then

		dt=0&dt

		end if

				tt=replace(rs("title"),"&nbsp;"," ")

		ids=(rs("ArticleID"))

		froms=(rs("CopyFrom"))	

		zuozhe=(rs("Author"))	

		hitss=(rs("Hits"))

		hot=(rs("Hot"))

if len(tt)>18then

				tt=left(tt,19) & "..."

			else             

				tt=rs("title")

			end If



	'ttt=replace(rs("Title"),"&nbsp;"," ")

	

%>              

   

  <div class="syxw_03">

  <div class="syxw_bt"><a href="<%=linkurl%>?id=<%=ids%>" target="_blank"><%=tt%> </a></div>

  <div class="syxw_time"><%=mt%>/<%=dt%></div>

 </div>

       

<%   

	rs.movenext

	else

	end if

	next

	%>



	<%

	end If

	rs.close

	set rs=nothing

End Sub