用asp如何同时向ACCESS数据库中添加多条记录

Sub WriteData()
Dim recCnt,i
Dim UserID,UserName,Score
Dim SqlStr
//用于动态取得需要录入多少条记录
recCnt=cint(request.form("recCnt"))
//批量录入数据
for i=1 to recCnt
UserID=trim(request.form("UserID")(i))
UserName=trim(request.form("UserName")(i))
score=trim(request.form("score")(i))
sqlStr="insert into Users(UserID,UserName,score)value(
'"sqlStr=sqlStr&UserID&"',
'"sqlStr=sqlStr&UserName&"',
'"sqlStr=sqlStr&UserName&"')"
Response.Write sqlStr
conn.execute(sqlStr)
next
conn.close
response.write"数据成功录入"
End SUB

rs("a")=aa
rs("b")=bb
rs("c")=cc
rs("d")=dd
rs.update

多条记录？多个insert语句么？用循环啦
比如：
dim i
i=0
do while i<10
conn.execute("insert into .