怎么能在ASP里 一次 写入多个数据记录

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
 
<body><%
 SUB writeData()
    dim recCnt,i
    dim fieldName1,fieldName2,fieldName3
    dim conn
    dim sqlStr,connStr
   dim db
db="data/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr

 recCnt=request.form("stu_num").count   
 For i = 1 to reccnt
        fieldName1=trim(request.form("fieldName1")(i))
        sqlStr="insert into Productnumber(fieldName1) values('"
        sqlStr=sqlStr & fieldName1 & "')"
        'response.write sqlStr
        conn.execute(sqlStr)

  next
END SUB SUB InputData()
 %>
<form name="bathInputData" action="" method="post">
<% 
recCnt=cint(request.form("recCnt"))
for i=1 to recCnt
%>
<%response.write "<input type='text' name='file'+&cint<%i%>+''>"%>
<%
next
%>
<br>
<input type="submit" name="action" value="提交">
</form>
<%
END SUB SUB assignHowMuch()
%><!------指定要录入多少条记录-------------->
<form name="form1" action="" method="post">
您要录入的记录的条数：<input type="text" name="recCnt">
<input type="submit" name="action" value="下一步>>">
</form>
<%
END SUBif request.form("action")="下一步>>" then
   Call InputData()  '显示成批录入界面
elseif request.form("action")="提交" then Call writeData()  '向数据库批量写入数据
else
   Call assignHowMuch()  '显示指定录入多少条记录的界面
end if
   
%>
 </body>
</html>
附上源码......各位高手请帮个忙..谢了...