set conn=server.createobject("ADODB.CONNECTION")
dbpath=server.mappath("数据库的相对路径")
conn.open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath&";"
set rs=server.createobject("adodb.recordset")
rs.open "留言",conn,2,3
rs.addnew
rs("姓名")=request.Form("name")
rs("电话")=request.Form("tel")
rs.update
rs.close