asp access insert update delete 使用

Function add_del_update(tablename,str,id)
Select Case str
 Case "insert":
   sql="select * from ["&tablename&"] where id=null"
   rs.open sql,conn,1,3
   rs.addnew
   For Each key In request.Form
     ' response.write "rs("&CStr(key)&")="&request(key)&"<br>"
      rs(CStr(key))=request(key)
   Next
   rs.update
   rs.close
 Case "update":  
   sql="select * from ["&tablename&"] where id="&id
   rs.open sql,conn,1,3 
   For Each key In request.Form
      if key<>"id" then
        rs(CStr(key))=request(key)
      end if
   Next
   rs.update
   rs.close
 Case "delete":  
   sql="delete from ["&tablename&"] where id in("&id&")"
   rs.open sql,conn,1,3
 Case ""
 End Select
 End Function
%>

<%
' 向table1表中添加一條記錄
 'call add_del_update("table1","insert","")
' 修改table1表中的id=5(id放在上一頁action中,也可以是隱藏表單)的記錄 
  'id=request("id")
  'call add_del_update("table1","update",id)
' 刪除table1表中的一些記錄,id是上一頁action中，也可以是某一表單
 ' id=request("id")
 ' call add_del_update("table1","delete",id)
%>