[求助]请大家帮改一个循环语句

[dippergao]

<%
1, sql1 = "SELECT id,title,addtime,image FROM news WHERE special=1 ORDER BY addtime DESC"
2, rs1.open sql1, conn, 1, 1
3, if err.number <> 0 then
4, response.write "数据库出错"
5, else
6, if rs1.bof and rs1.eof then
7, rs1.close
8, response.write "没有内容"
9, else
10, for i = 1 to infor
11, response.write "<li><span class=p10>" + rs1("title") + "</span><font size=1 color=0000ff>(" + cstr(rs1("addtime")) + ")"
12, if rs1("image")<>"" then response.write " 图 "
13, response.Write "<IMG src='images/new.gif'><br>"
14, rs1.movenext
15, if rs1.eof then exit for
16, next
17, rs1.close
18, end if
19, end if
%>
第10行的infor是定义的一个变量，表示最多输出多少条纪录,在前面可以赋值。
我想要实现在前四条记录（语句在11获12行）的后面分别加上第13行的图片，请问语句如何改动？
先谢谢帮忙。

[rexsp]

if rs1("image")<>"" and i<5 then

[KUMOZAKI]

用前四个记录的id号或都recordcount来判定