我写的这段代码为什么写不进数据库里啊
<!-- #include file="ADOFunctions.inc" -->
<%
'读取用来输入新留言的表单字段数据
sgdw = Request("sgdw")
ggxh = Request("ggxh")
sl = Request("sl")
je = Request("je")
zsx = Request("zsx")

'从数据表中读取记录并存放在Recordset对象中
sqll="select * from xiaoshou"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open sqll,objConn,adOpenDynamic, adLockOptimistic

'新增记录

objRS.AddNew Array("所供单位","规格型号","数量","金额","占需求的所需%"), _
Array(sgdw,ggxh,sl,je,zsx)
objRS.Update
objRS.close

'将网页重新导入
Response.Redirect "GuestBook.asp"

'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>

请给我指点

你的conn在哪里?

ADOFunctions.inc

在这里

[CODE]
<!-- #include file="adovbs.inc" -->
<%
Dim objConn
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("zhanglipeng.MDB")
'p="driver={microsoft access driver (*.mdb)};DBQ="&FilePath
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
objConn.Open p

'从数据表中读取记录并存放在Recordset对象中
'sqll="select * from xiaoshou"
' Set objRS = Server.CreateObject("ADODB.Recordset")
'objRS.open sqll,objConn,adOpenDynamic, adLockOptimistic
%>

[/CODE]

怎么？？
没有人回答吗？？

你是在写ASP吗???

有什么不对吗？

错误类型：
Microsoft JET Database Engine (0x80040E21)
由于其 Required 属性设置为真(True)，字段 'xiaoshou.所供单位' 不能包含 Null 值。在此字段中输入一个数值。
/zhengzai/Post.asp, 第 20 行
是什么意思啊

错误类型：
Microsoft JET Database Engine (0x80040E21)
由于其 Required 属性设置为真(True)，字段 'xiaoshou.所供单位' 不能包含 Null 值。在此字段中输入一个数值。
/zhengzai/Post.asp, 第 20 行
是什么意思啊

Post.asp
这个文件的代码帖出来