修改不了数据库

为什么我的代码修改不了数据库的数据啊，纳闷，求大侠帮忙！
<!--#include file="conn.asp"-->
<%
dim rs,tsql
dim reid
dim rst
'修改此栏目编号的栏目名称
set rst=server.createobject("adodb.recordset")
sql1="select * from type where typeid="&request("ID")
rs1.open sql1,conn,1,3
   rst("type")=request("ItemName")
   rst.Update
rst.close
response.redirect "change.asp"
%>