为什么就差这么一点了~？？？快帮帮忙啊~!

[slippers3000]

<%
dim connstr,insstr,conn
connstr="dsn=smoke;uid=sa;pwd=;"
set conn=server.createobject("ADODB.Connection")
i=1
do while i<13
a=request.form("sum_dive"&i)
b=request.form("rot_out"&i)
c=request.form("rag_out"&i)
d=request.form("slice_in"&i)
e=request.form("slice_mix"&i)
f=request.form("sendout"&i)
g=request.form("keep"&i)
h=request.form("nowdate")
conn.open connstr
insstr="insert into month1(sum_dive,rot_out,rag_out,slice_in,slice_mix,sendout,keep,nowdate,plaque) values('"&a&"','"&b&"','"&c&"','"&d&"','"&e&"','"&f&"','"&g&"','"&h&"','1')"
conn.execute insstr
i=i+1
loop
set conn=nothing
%>
上面是我经人指点后修改的程序，我觉得写法应该是没有什么问题了的，但IE总是提示conn.execute insstr这里错误，我想肯定就是说的数据类型有问题把，我想问的是是不是我在SQL SERVER里面给字段设置的数据类型和写入的数据类型不一样阿？我在SQL server数据库中设置的字段是这样的，nowdate是char型、plaque是int型、其他的全部都是float型，我在测试的时候往表单里面填写的全部都是整数，一点击确定后就提示conn.execute insstr这里错误,但我在最开始只往里面写一条记录的时候时可以写入的。
可添加循环后就成这样了
请帮我解答一下，拜托了～！

[cpplus]

a=CSng(request.form("sum_dive"&i))
b=CSng(request.form("rot_out"&i))
c=CSng(request.form("rag_out"&i))
d=CSng(request.form("slice_in"&i))
e=CSng(request.form("slice_mix"&i))
f=CSng(request.form("sendout"&i))
g=CSng(request.form("keep"&i))

[lazywolf]

insstr="insert into month1(sum_dive,rot_out,rag_out,slice_in,slice_mix,sendout,keep,nowdate,plaque) values('"&a&"','"&b&"','"&c&"','"&d&"','"&e&"','"&f&"','"&g&"','"&h&"','1')"
改为
insstr="insert into month1(sum_dive,rot_out,rag_out,slice_in,slice_mix,sendout,keep,nowdate,plaque) values("&a&","&b&","&c&","&d&","&e&","&f&","&g&",'"&h&"',1)"

[free_doctor]

是不是关键字冲突？
表里不允许有两条一样的纪录。

[shq7]

conn.open connstr
这一行有问题。
在打开数据库之前，必须判断一下。
将这一行改成：
If conn.state = 1 Then conn.close
conn.open connstr
试试看。

[shq7]

最好是将
conn.open connstr
移到循环体外面，这样效率太低了。