这asp代码出错，哪位大神帮我看看

[azz8041]

<%
id=request("id")
userurl=request("userurl")
if request("on")="modi" then
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where id="&id
rs.open sql,conn,1,3
if not rs.eof then
if userurl<>"" then rs("userurl")=(userurl)
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect("tips.asp")
Response.End
end if
end if
%>
<!--查询开始-->
<% 'On Error Resume Next
'''查询显示参数id的修改新闻
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where id="&id
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("数据出错,该记录可能已被删除!")
else
'content=rs("content")
'content=replace(replace(replace(content,"<br>",vbcrlf)," "," "),"  ","　")
%>
<div class="line1">
<form name="form1" action="xg.asp?on=modi&id=<%=id%>" method="post" onSubmit="return CheckForm();">
二级域名：<%=rs("qzdoamin")%>.<%=rs("hzdoamin")%><br/>

域名转向：<input name="userurl" type="userurl" value="<%=rs("userurl")%>" class="tiankong" id="userurl" maxlength="100" style="width: 140px;">



<input onClick="" type="submit" value="修改域名" color="#2b73df">

<% End If
rs.close
set rs=nothing
%>

</form>


错误提示：
Microsoft JET Database Engine ???? '80040e14'
?????? (?????????) ????????? 'id=' ?С?
/yuming/dns/xg.asp???? 65