蓝色狮 小说:循环4个用户一起发帖。

这个是动网论坛里的采集系统，我希望能用4个用户一起循环发帖。
set rs1= Server.CreateObject("adodb.recordset")
sql="select * from dv_topic order by topicid desc"
rs1.open sql,conn2,1,3
if rs1.eof then
id1=1
else
id1=rs1("topicid")+1
end if
rs1.addnew
rs1("title")=title
rs1("boardid")=ChannelID
rs1("PollID")=0
rs1("locktopic")=0
rs1("Child")=0
rs1("PostUsername")="admin"
rs1("PostUserid")=1
rs1("DateAndTime")=UpDateTime
rs1("hits")=Hits
rs1("Expression")="0|face1.gif"
rs1("VoteTotal")=0
rs1("lastpost")="发帖子的$"&announceid&"$"&UpDateTime&"$"&title&"$gif$2$"&id1&"$2"
rs1("LastPostTime")=UpDateTime
rs1("istop")=0
rs1("isvote")=0
rs1("isbest")=0
rs1("PostTable")="dv_bbs1"
rs1("TopicMode")=0
rs1("Mode")=0
rs1("GetMoney")=0
rs1("UseTools")=""
rs1("GetMoneyType")=0
rs1("HideName")=0
rs1.update
rs1.close
set rs1=nothing
rs.addnew
rs("username")="发帖子的"
rs("topic")=title
if right(content,1)<>">" then exit sub
rs("body")=content
rs("DateAndTime")=UpDateTime
rs("boardid")=ChannelID
rs("length")=len(content)
rs("layer")=1
rs("orders")=0
rs("isbest")=0
rs("ip")="0.0.0.0"
'rs("signflay")=1
rs("emailflag")=0
rs("signflag")=1
rs("PostUserID")=1
rs("PostBuyUser")=""
rs("UseTools")=""
rs("isupload")=0
rs("ubblist")=",0,18,39,"
rs("GetMoneyType")=0
rs("expression")="face1.gif"
rs("ParentID")=0
rs("rootid")=id1
rs("locktopic")=0
rs("GetMoney")=0
rs.update
rs.close
set rs=nothing
以上这个“发帖子的”就是现在发帖的用户，请问高手如何修改为4个用户？