哪位大侠帮忙将这个添加页面修改为编辑页面？！谢谢

<%
set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,3
title=request.form("title")
url=request.form("url")
keywords=request.form("keywords")
description=request.form("description")
body=request.form("body")
img=request.form("img")
ly=request.form("ly")
zz=request.form("zz")
color=request.form("color")
ssfl=request.form("ssfl")
tuijian=request.form("tuijian")
rs.addnew
rs("title")=title
rs("url")=url
rs("body")=body
rs("img")=img
rs("ly")=ly
rs("zz")=zz
rs("color")=color
rs("keywords")=keywords
rs("description")=description
rs("ssfl")=ssfl
rs("tuijian")=tuijian
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('新闻增加成功，点击继续增加！');window.location.href='add_news.asp';</script>" 
%>

VBScript code

id = request.querystring("id")'你必须用唯一字段确定要修改哪条记录
set rs=server.createobject("adodb.recordset")
sql="select * from news where id ="&id
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
title=request.form("title")
url=request.form("url")
keywords=request.form("keywords")
description=request.form("description")
body=request.form("body")
img=request.form("img")
ly=request.form("ly")
zz=request.form("zz")
color=request.form("color")
ssfl=request.form("ssfl")
tuijian=request.form("tuijian")
rs("title")=title
rs("url")=url
rs("body")=body
rs("img")=img
rs("ly")=ly
rs("zz")=zz
rs("color")=color
rs("keywords")=keywords
rs("description")=description
rs("ssfl")=ssfl
rs("tuijian")=tuijian
rs.update
end if
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('新闻修改成功，点击继续增加！');window.location.href='add_news.asp';</script>"