如何最后一条记录特殊显示30分

[cp713]

<%
Set rs= Server.CreateObject("ADODB.recordset") '创建打开对象

rs.open "Select * from 产品中心",lj,1,1



Do until rs.eof
%>
<%Response.Write(rs("mc")) %>
<%
Rs.movenext
Loop
rs.close
set rs=nothing
lj.close
set lj=nothing
%>
比如读取这个表 本来<%Response.Write(rs("mc")) %> 读到最后一条记录的时候 输出<%Response.Write(rs("mc")) %> &"最后一条记录"
怎么写

[lzp4881]

<%
Set rs= Server.CreateObject("ADODB.recordset") '创建打开对象
rs.open "Select * from 产品中心",lj,1,1
Do until rs.eof
mc=rs("mc")
Rs.movenext
if rs.eof then mc=mc&"最后一条记录"
Response.Write mc
Loop
rs.close
set rs=nothing
lj.close
set lj=nothing
%>