这个该怎么修改？

        TempStr = "<?xml version=""1.0"" encoding=""utf-8""?>" & vbcrlf
        TempStr = TempStr & "<data>" & vbcrlf
        TempStr = TempStr & "    <channel>" & vbcrlf
    sqlxml="select * from pic where piccat_id=3 order by customorder asc, pic_id desc"
    set rsxml=server.createobject("adodb.recordset")
    rsxml.open sqlxml,conn,1,1
    do while not rsxml.eof
        TempStr = TempStr & "        <item>" &vbcrlf
        TempStr = TempStr & "            <link>ylhj_content.asp?id=" & rsxml("pic_id") & "</link>" &vbcrlf
        TempStr = TempStr & "            <image>" & rsxml("pic_pic") & "</image>" &vbcrlf
        'TempStr = TempStr & "            <title>" & rsxml("pic_name") & "</title>" &vbcrlf
        TempStr = TempStr & "        </item>" &vbcrlf
    rsxml.movenext
    loop
        TempStr = TempStr & "    </channel>" & VbCrLf
        TempStr = TempStr & "    <config>" & VbCrLf
        'TempStr = TempStr & "        <windowOpen>_blank</windowOpen>" & VbCrLf
        TempStr = TempStr & "        <autoPlayTime>5</autoPlayTime>" & VbCrLf
        TempStr = TempStr & "        <roundCorner>3</roundCorner>" & VbCrLf
        TempStr = TempStr & "        <titleBgColor>#eeeeee</titleBgColor>" & VbCrLf
        TempStr = TempStr & "        <btnDefaultColor>#ffffff</btnDefaultColor>" & VbCrLf
        TempStr = TempStr & "        <btnHoverColor>#000000</btnHoverColor>" & VbCrLf
        TempStr = TempStr & "        <changImageMode>hover</changImageMode>" & VbCrLf
        TempStr = TempStr & "        <transform>alpha</transform>" & VbCrLf
        TempStr = TempStr & "    </config>" & VbCrLf
        TempStr = TempStr & "</data>" & VbCrLf
    ADODB_SaveToFileUTF8 TempStr,"../xml/ylhj.xml"

我需要将这个修改成循环输出前五项，不是将文件全部输出，该怎么修改？