新概念3课文第二课:asp连接access数据库问题,望高手指点,急,谢谢!

添加部分代码如下:
<% Option Explicit %>
<%
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request.Form("content")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("productsDB.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varData_id,varData_name,varData_Pinpai,varData_only
varData_id=Request.Form("id")
varData_name=Request.Form("data_name")
varData_Pinpai=Request.Form("data_Pinpai")
varData_only=Request.Form("data_only")
StrSql="Insert Into data(id,data_name,data_pinpai,data_only) Values('" & varData_id & "' ,'" & varData_name & "','" & varData_Pinpai & "','" & varData_only & "')"
db.Execute(strSql)

Response.Redirect "index.asp"
Else
Response.Write "请将所有信息填写完整，"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>

然后 输入新内容后主页能显示,但为空,不知道如何解决,望赐教!