这段asp代码为什么运行不了

<%
set rst=Server.CreateObject("ADODB.recordset")
rst.open "select * from user where u_user='"&request.form("u_user")&"'",conn,1,1
if rst.recordcount > 0 then
response.Write("用户名:"& request.form("u_user") &"已经存在，请返回重新注册，谢谢")
rst.close
set rst=nothing
conn.close
set coon=nothing
response.end
else
rst.close
rst.open "user",conn,1,3
rst.addnew
rst("u_user")=request.form("u_user")
rst("u_code")=request.form("u_code")
rst.update
rst.close
set rst1=conn.execute("select @@identity as uid")
uid=rst1("uid") '这是31行
rst.open "info",conn,1,3
rst.addnew
rst("i_id")=uid
rst("i_name")=request.form("name")
st("i_age")=request.form("age")
rst.update
rst.close
end if
%>
<%
set rst=nothing
conn.close
set coon=nothing
%>
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
/fif/cl.asp, 第 31 行

答案：
最好能把你的设计思想大概说一下：用户注册时，判断是否有重复用户名，如果没有就将用户名、密码插入user表；姓名、年龄插入info是吗？如是，最好将表结构说明一下
<%
user=trim(request.form("u_user"))
code=trim(request.form("u_code"))
name=trim(request.form("name"))
age=trim(request.form("age"))
sql="select * from user where u_user='"&user&"'"
set rst=Server.CreateObject("ADODB.recordset")
rst.open sql,conn,1,1
if rst.recordcount > 0 then
response.Write("用户名:"&user&"已经存在，请返回重新注册，谢谢")
rst.close
set rst=nothing
conn.close
set coon=nothing
response.end
else
rst.close
rst.open sql,conn,1,3
rst.addnew
rst("u_user")=user
rst("u_code")=code
rst.update
uid=rst("uid")
sql="insert into info (i_id,i_name,i_age) values ('"&uid&"','"&name&"','"&age&"')"
conn.execture sql
rst.close
end if

set rst=nothing
conn.close
set coon=nothing
%>