各位大哥，帮忙看一看，我的用户名验证代码有什么问题？

<%
  set cnn=server.createobject（"adodb.connection")  
  set rec=server.createobject（"adodb.recordset")  
  cnn.connectionstring="driver={microsoft access driver（*.mdb)};uid=dwdjq;pwd=789963;dbq="&server.mappath（"xueshengzhuce.mdb")  
  cnn.open 
'response.write cnn,state'看看是否连上数据库 1--是 0--否
  dim sql ,uname,upwd
  uname=trim（request.form（"yonghuming"))
  upwd=trim（request.form（"mima"))

  sql="select * from zhuce where yonghuming='"&uname&"' and mima='"&upwd&"' and yanzheng is not null"  
  rec.open sql,cnn,1,1
  
  if not （rec.rof and rec.bof) then 
      session（"id")="yonghuming"
      rec.close
      set rec=nothing
      cnn.close
      set cnn=nothing
      response.redirect"yinianji.html"
      response.end
    else
      response.write "用户验证失败!"  
    end if 
  else
    response.write "用户验证失败!"   
  end if 
  if rec.state<>0 then rec.close:   set rec=nothing
%>