为什么我的这段代码实现不了数据录入?
ID号有增加,"填单日期"也有显示
就是其他数据没有录入 请大家帮忙诊断一下 谢谢~~~~~~
<html>
<head>
<%
if request("b3")="确定" then
dim Conn
set Conn=server.CreateObject ("adodb.connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("customer.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from customer"
rs.Open sqlstr,conn,3,3
rs.addnew
rs("ccompany")=tcompany
rs("cname")=tname
rs("csex")=tsex
rs("ctel")=ttel
rs("cemail")=temail+" "
rs("product")=tproduct
rs("productn")=tproductn
rs("cmemo")=tmemo+" "
rs("交货日期")=tjhrq
rs("填单日期")=date+time
rs.update
rs.close
set rs=nothing
set conn=nothing
response.write "提交成功"
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form method="POST" action="">
<%
tcompany=request("textfield")
tname=request("textfield2")
tsex=request("sex")
ttel=request("textfield3")
temail=request("textfield4")
tproduct=request("textfield5")
tproductn=request("textfield6")
tjhrq=request("textfield7")
tmemo=request("textarea")
%>
<p>您填写的内容是：</p>
<table border="1" width="50%">
<tr>
<td width="50%">公司名称：</td>
<td width="50%"><%=tcompany%> </td>
</tr>
<tr>
<td width="50%">客户姓名：</td>
<td width="50%"><%=tname%> </td>
</tr>
<tr>
<td width="50%">性别：</td>
<td width="50%"><%=tsex%></td>
</tr>
<tr>
<td width="50%">联系电话：</td>
<td width="50%"><%=ttel%></td>
</tr>
<tr>
<td width="50%">E-mail：</td>
<td width="50%"><%=temail%> </td>
</tr>
<tr>
<td width="50%">产品型号：</td>
<td width="50%"><%=tproduct%> </td>
</tr>
<tr>
<td width="50%">定做数量：</td>
<td width="50%"><%=tproductn%></td>
</tr>
<tr>
<td width="50%">交货日期：</td>
<td width="50%"><%=tjhrq%></td>
</tr>
<tr>
<td width="50%">备注：</td>
<td width="50%"><%=tmemo%></td>
</tr>
</table>
<p><input type="submit" value="确定" name="B3" ><input type="button" onclick="window.location.href='wsdd.htm'" value="返回重写" name="B2" ></p>
</form>
</body>
</html>
