求asp插入记录，删除记录，修改记录的代码，要完全正确的，谢谢！

求asp插入记录，删除记录，修改记录的代码，要完全正确的，谢谢！

链接数据库:
<%
dim conn
dim connstr
dim db
db="/DataBase/data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
插入记录:
<%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from [News]"
rs.Open sql,conn,1,3
rs.AddNew
rs("title") = Request("title")
rs("Keywords") = request("Keywords")
rs("Description") = Request("Description")
rs("adddate") = Now()
rs.Update
rs.Close
set rs=nothing
%>
删除记录:
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "delete from [News] where id="&Cint(Request("id"))&""
conn.execute(sql)
set rs=nothing
%>
修改记录:
<%
sql="update [News] set [title]='"&Request("title")&"',[Keywords]='"&Request("Keywords")&"',[Description]='"&Request("Description")&"',adddate=Now() where id="&cint(request("id"))&""
conn.execute(sql)
%>