connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("count.mdb")
conn.open connStr
sql = "update [date] set [num]=" & Request.Form("表單項目名")
conn.execute(sql)
conn.close()
set conn = nothing