谁帮我看下这代码错在那

<%
sub sedit()
dim id
id=request("id")

Title =trim(request.form("biaoti"))
guanjian =trim(request.form("guanjian"))
Content =request.form("Content")
Images =trim(request.form("Images"))
classid =trim(request.form("select3"))
zileibei =trim(request.form("select2"))
if len(Content)>1600 then
Call Alert ("你输入的内容超过1600个字符！","-1")
end if

set rs2 = server.CreateObject ("adodb.recordset")
sq1="select * from hfkj_Article where id="& id &""
rs2.open sq1,conn,1,3

if not(rs2.eof and rs2.bof) then
rs2.AddNew

rs2("Title") =Title
rs2("guanjian") =guanjian
rs2("Content") =Content
rs2("Images") =Images
rs2("classid")

帮我看下这代码错在哪? 帮我看看这段asp代码错在那了 大家帮我看看这段代码错在那了 帮我看这段代码错在哪？？ 帮我看下这代码 帮我看下VB代码错在哪里 帮我看看代码错在哪里JAVA 请帮我看看这些asp代码错在哪里？ 帮我看看这段JAVA代码错在哪里 帮我看一下代码错在那儿了?