我的注册页面一提交,就出现HTTP500呢

怎么回事呢.

<% 
Dim username,userpass,ip,city,imsi
Dim aaa,bbb,ccc,ddd,eee,fff

username=Trim(Request.form("name"))
userpass=Trim(Request.rorm("pass"))
ip=Trim(Request.Form("ip"))
city=Trim(Request.form("city"))
imsi=Trim(Request.form("imsi"))
aaa=Trim(Request.Form("aaa"))
bbb=Trim(Request.Form("bbb"))
ccc=Trim(Request.Form("ccc"))
ddd=Trim(Request.Form("ddd"))
eee=Trim(Request.Form("eee"))
fff=Trim(Request.Form("fff"))

Dim connstr,conn,data
    data = "admin.mdb"
    Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(data)    
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Connstr

Dim rs,sql
  set rs=server.createobject("adodb.recordset")
  sql="select * from [admin] where 1<>1"
  rs.open sql,conn,1,3
      
      rs.addnew
      rs("name")=username
      rs("pass")=userpass
      rs("ip")=ip
      rs("city")=city
      rs("imsi")=imsi
      rs("aaa")=aaa
      rs("bbb")=bbb
      rs("ccc")=ccc
      rs("ddd")=ddd
      rs("eee")=eee
      rs("fff")=fff
   rs.update
   rs.close
set rs=nothing
   Conn.Close
Set Conn = Nothing

response.write "<tr><td align='center' height='22'>注册成功！欢迎您的加入！！</td></tr>"
response.write "<tr><td align='left' height='100'><br>你注册的用户名：" & name & "<br>"
    
%>