写不进数据库……各位大哥帮我看看

非典时期，闲的无聊，用DW随便写了个程序，可它太不给我面子了……555
现将程序(这是服端的)贴上来，请各位大哥帮我看看（有分送喔！！！^_^）：

1 @ language=VBScript

 1   
 2dim conn,rs,strsql   
 3  
 4set conn=server.createobject("adodb.connection")   
 5conn.open"db1"   
 6strsql="select * from Bmb"   
 7set rs=server.createobject("adodb.recordset")   
 8rs.source=strsql   
 9rs.locktype=3   
10rs.activeconnection=conn   
11rs.open

 1   
 2rs.addnew   
 3rs("MinName").value=cstr(server.htmlencode(request.form("textfield")))&" "   
 4rs("XinName").value=cstr(server.htmlencode(request.form("单选按钮组1")))'?   
 5rs("Lian").value=cstr(server.htmlencode(request.form("testfield12")))'?   
 6rs("WeiHua").value=cstr(server.htmlencode(request.form("select4")))'?   
 7rs("MinZhu").value=cstr(server.htmlencode(request.form("testfield2")))   
 8rs("Zhen").value=cstr(server.htmlencode(request.form("tselect5")))'?   
 9rs("JiGuan").value=cstr(server.htmlencode(request.form("testfield3")))   
10rs("JianK").value=cstr(server.htmlencode(request.form("testrjeld4")))   
11rs("JiaT").value=cstr(server.htmlencode(request.form("testfield5")))   
12rs("SFZ").value=cstr(server.htmlencode(request.form("testfield6")))'?   
13rs("EMail").value=cstr(server.htmlencode(request.form("testfield7")))   
14rs("XueXiao").value=cstr(server.htmlencode(request.form("testfield8")))   
15rs("LaoShi").value=cstr(server.htmlencode(request.Form("testfield9")))   
16rs("ShuXue").value=cstr(server.htmlencode(request.form("testfield10")))   
17rs("YuWen").value=cstr(server.htmlencode(request.form("testfield11")))   
18rs("YinYu").value=cstr(server.htmlencode(request.form("testfield15")))   
19rs("Wen").value=cstr(server.htmlencode(request.form("testfeld152")))   
20rs("Li").value=cstr(server.htmlencode(request.form("testfeld153")))   
21rs("Zhong").value=cstr(server.htmlencode(request.form("testfeld154")))   
22rs("YiZ").value=cstr(server.htmlencode(request.form("testfeld16")))   
23rs("ErZ").value=cstr(server.htmlencode(request.form("testfeld162")))   
24rs("SanZ").value=cstr(server.htmlencode(request.form("testfeld163")))   
25rs("TongZhi").value=cstr(server.htmlencode(request.form("testfeld21")))   
26rs("YuoBian").value=cstr(server.htmlencode(request.form("testfeld22")))   
27rs("DianHua").value=cstr(server.htmlencode(request.form("testfeld23")))   
28rs("GuanXi").value=cstr(server.htmlencode(request.form("testfeld24")))   
29  
30rs.update

1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<title>无标题文档</title>
5</head>
6<body>
7</body>
8</html>

错误提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access 驱动程序] 字段 'Bmb.XinName' 不能是零长度的字符串。

/pages/xx/TMPaqlltfaaj6.asp, 行42

---------------------------------------------------------------

rs("XinName").value=cstr(server.htmlencode(request.form("单选按钮组1")))'?

还能这么写？？？
---------------------------------------------------------------

没有写如果为空值时怎么给个值写入数据库
---------------------------------------------------------------

不能是零長度的字符串

所以原因和解決辦法
1.你沒有得到request值你的寫法有問題
2.改變數據庫xinname字段為允許空字符串
---------------------------------------------------------------

1<input name="hid" type="hidden" value="h1"/>

1<input onclick="document.form1.hid.value='h1'" type="radio"/>

1<input onclick="document.form1.hid.value='h2'" type="radio"/>

1=request.form("hid")