请教各位大哥，我已经把会员中心，图片投稿简化成这样，
现在投稿保存的话，上面4个图片会在一组图片下，请教能改成这4张图片分成4个独立的稿件，TITLE就是图片标题？
下面是保存图片的程序，实在不知道如何循环添加，请各位前辈指引方向懂得修改的帮忙修改留下微信或QQ，万分感谢

If RSObj.Eof Then

  RSObj.AddNew

  RSObj("Inputer")=KSUser.UserName

  RSObj("Hits")=0

  RSObj("TemplateID")=TemplateID

  RSObj("WapTemplateID")=WapTemplateID

  RSObj("Fname")=FName

  RSObj("PostTable")= LFCls.GetCommentTable()

  RSObj("OrderID")     = KS.ChkClng(Conn.Execute("Select Max(OrderID) From " & KS.C_S(ChannelID,2) & " Where Tid='" & ClassID &"'")(0))+1

End If

  If isDate(KS.S("AddDate")) Then

  RSObj("Adddate")=KS.S("AddDate")

  ElseIf KS.ChkClng(KS.S("ID"))=0 Then

  RSObj("Adddate")=Now

  End If

  RSObj("ModifyDate")=Now

  RSObj("Title")=Title

  RSObj("Tid")=ClassID

  RSObj("oTid")=KS.S("oTid")

  RSObj("oId")=KS.ChkClng(KS.S("OID"))

  RSObj("PhotoUrl")=PhotoUrl

  RSObj("PicUrls")=PicUrls

  RSObj("PicNum") = Ubound(split(PicUrls,"|||"))+1

  RSObj("Province")=Province

  RSObj("City")=City

  RSObj("County")=County

  RSObj("KeyWords")=KeyWords

  RSObj("Author")=Author

  RSObj("Origin")=Origin

  RSObj("ShowStyle")=ShowStyle

  RSObj("PageNum")=PageNum

  RSObj("PictureContent")=Content

  RSObj("Verific")=Verific

  RSObj("Comment")=1

  If FieldXML.DocumentElement.selectsinglenode("fielditem[@fieldname='map']/showonuserform").text="1" Then
RSObj("MapMarker")=KS.S("MapMark")

  If FieldXML.DocumentElement.selectsinglenode("fielditem[@fieldname='chargeoption']/showonuserform").text="1" Then

   RSObj("ReadPoint")=KS.ChkClng(KS.S("ReadPoint"))

  End If

   Call KSUser.AddDiyFieldValue(RSObj,FieldXML)

RSObj.Update

RSObj.MoveLast