谁给我看看这段代码有什么问题？
我这段代码作用是要将一 个会员注册的数据写入到数据库
<% 
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 conn,rs,sql,data

data ="data.mdb"
set conn = Server.CreateObject("adodb.connection")
conn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(data)
conn.open

sql = "select * form admin where name='"& username & "'"

set rs = Server.CreateObject("adodb.recordest")
rs.open sql, conn,1,1

if rs.eof then
   if userclass="2" then
      rs.addnew array("name","pass","ip","city","IMSI","aaa","bbb","ccc","ddd","eee","fff"),_array(username,userpass,ip,city,IMSI,aaa,bbb,ccc,ddd,eee,fff,2)
else        
  rs.addnew array("name","pass","ip","city","IMSI","aaa","bbb","ccc","ddd","eee","fff"),_array(username,userpass,ip,city,IMSI,aaa,bbb,ccc,ddd,eee,fff)            
end if
  
rs.updata

rs.close

rs.open sql,conn,1,1

if session("Ispass")<>true then
     session("id")=cstr(rs.fields("id"))    
     session("name") = username
     session("Ispass) = true 
     
if userclass="2" then
   session("Isadmin") = true
   session("class")="2"
else
   session("Isadmin") = false
   session("class") ="9"  
  end if
end if   

rs.close
set rs=nothing
conn.close
set conn=nothing

response.Redirect("index2.asp")
response.End()      
%>