帮见见那里不对

帮看看那里不对
<<<这是conn.asp>>>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="adovbs.inc"-->
<%
dim objconn ,datapatch
datapatch = "\data\switch_db.mdb"
on error resume next
 set objconn=server.createobject("adodb.connection")
objconn.connectionstring ="driver={microsoft access driver (*.mdb)};uid=admin;pwd=zbgdadmin;dbq="&server.mappath(datapatch)
objconn.open
if err then
Session("get_error")=err 
err.clear
objconn.close
set objconn = nothing
response.write ("连接数据库错误")
'server.transfer("conn_error.asp")
Response.Redirect("conn_error.asp")
end if

function close_recordset
objconn.close
set objconn = nothing
getsqlrecordset.close
set getsqlrecordset = nothing
end function
%>
<<<这是login_check.asp>>
<!--#include file="conn.asp" -->
<%   
session.Timeout=30 
dim  objrs 
set objrs=server.createobject("adodb.recordset")
  MM_redirectLoginSuccess="switch.asp"
  MM_redirectLoginFailed="login_error.asp"
MM_valUsername=trim(Request.Form("usernames"))
MM_valpassword=trim(Request.Form("passwords"))
if MM_valUsername<> "" and MM_valpassword <> "" then
  strsql ="select * from tab_login where name='"&MM_valUsername&"'and passwords='"&MM_valpassword&"'"
objrs.open strsql,objconn,1,1

If Not objrs.EOF Or Not objrs.BOF Then
'if  objrs.recordcount>0 then 
   Session("MM_Username") = MM_valUsername

 Response.Redirect(MM_redirectLoginSuccess)
 else
  Response.Redirect(MM_redirectLoginFailed)
 end if
 else
 response.write( "请输入参数 </p>")
 end if
%>

《〈〈〈这是default.html>>>中form

<form id="form1" name="form1" method="post" action="login_check.asp">

我执行时，如果我只输用户中，则会出现转到login_error.asp,但如果用户名和密码都输入了，则成功跳转，但是输入的是随便输入的，表中没有啊，且我的表中只有一条记录 ,这是不对的，