同一编号为什么会覆盖啊

Question

dim rstTRFormProperty

set rstTRFormProperty = Session("rstTRFormProperty")
set objDB = Server.CreateObject("EF2KPublic.Database")
    set objRE = Server.CreateObject("EF2KEngine.Class1")
    
if Request("UndoApprove") = "Y" then '撤签后,执行本段程序代码. else
'您可以使用 Session("blnCaseClosed") 来判断表单是否已经结案.
if Session("blnCaseClosed") = True then
'    '=======>>已经结案
' '您可以使用 rstTRFormProperty("resda021") 来判断审批的结果
  
   select case rstTRFormProperty("resda021")
case 2 '2=同意
       '单头
       strSQLH="select * from fjyfaq where faq001='"&session("FormID")&"' and faq002='"&session("SheetNO")&"'"
                       set rsH = objDB.CreateRecordset(strSQLH,Session("strProcID"))
   if not rsH.eof then 
           '单身
       strSQLD="select * from fjyfar where far001='"&session("FormID")&"' and far002='"&session("SheetNO")&"' "
                           set rsD = objDB.CreateRecordset(strSQLD,Session("strProcID"))
                           
                           do while not rsD.eof
                              strSQLB="select * from fjybaj where baj001='" & rsD("far004") & "' "
                              set rs2 = objDB.CreateRecordset(strSQLB,Session("strProcID"))
                              if not rs2.eof then
                                 rs2("baj001")= rsD("far004")
             rs2("baj002")= rsD("far005")
             rs2("baj003")= rsD("far003")
             rs2("baj004")= rsD("far012")
             rs2("baj005")= rsD("far013")
             rs2("baj006")= rsD("far014")
             rs2("baj007")= rsD("far015")
             rs2("baj008")= rsD("far016")
             rs2("baj009")= rsD("far017")
             rs2("baj010")= "0"
             rs2("baj011")= ""
             rs2("baj902")=Session("strUserID")
             rs2("baj903")=objRE.NowDateTime()
          
                              else
                                 '取得区域(部门属性)
                                 strSQL="select resaa001 from resaa inner join resam on resaa001=resam001 where resam002='" & rsH("faq008") & "'"
                                 set rs3 = objDB.CreateRecordset(strSQL,Session("strProcID"))
                                 if rs3.eof then
                                    strqy="ER"  '区域
                                 else
                                    strqy=trim(rs3("resaa001"))  '区域
                                 end if
                                 set rs3 = nothing
                                 
                                 strnf=replace(rsH("faq010"),"-","")  '年月
                                 strCode=strqy & strnf
                            
                                 '计算活动起始编号
                                 strSQL="select baj001 from fjybaj where baj001 like '" & strCode & "%' order by baj001 desc"
                                 set rsMax = objDB.CreateRecordset(strSQL,Session("strProcID"))
                                 if rsMax.eof then
                                    strNum="0"
                                 else
                                    strNum=cint(right(rsMax("baj001"),4))
                                 end if
                                 set rsMax = nothing
                                 
                                 strNum=strNum+1
                                 strNum=objRE.formatSTR(strNum,"0000") 
                             strHDNo=strCode & strNum
                                 rs2.AddNew
                                 rs2("baj001")= rsD("far004")
             rs2("baj002")= rsD("far005")
             rs2("baj003")= rsD("far003")
             rs2("baj004")= rsD("far012")
             rs2("baj005")= rsD("far013")
             rs2("baj006")= rsD("far014")
             rs2("baj007")= rsD("far015")
             rs2("baj008")= rsD("far016")
             rs2("baj009")= rsD("far017")
             rs2("baj010")= "0"
             rs2("baj011")= ""
             rs2("baj902")=Session("strUserID")
             rs2("baj903")=objRE.NowDateTime()
            
                              end if
                               
                              set rs2 = objDB.UpdateRecordset(rs2,Session("strProcID"))
          set rs2 = nothing
                                 
                              rsD.movenext
                           loop
                          
                           set rsD = nothing   
                       end if

                       set rsH = nothing