<%
   if IsEmpty(Session("Passed")) then
        Session("Passed")=False  
    End if
    if Session("Passed")=False then
      username=Trim(Request.Form("username"))
      password=Request.Form("password")
      if username="" or password="" then
           Errmsg="请输入用户名和密码"
    Else
         if not IsNumeric(Request.Form("confirm")) Then
                  Response.Write"<script>alert('你输入的验证码为非数字!');</script>"
                  Response.End
        End if
        if (int(Session("CheckCode")))=int(Request.Form("confirm")) then
                set rs=server.CreateObject("adodb.recordset")
                sql="select * from People where username='"&username& "'"     
                rs.open sql,conn,1,3
                if rs.EOF then
                     Emrrsg="用户不存在"
                     conn.Colse
                     Set conn=nothing
                Else
                     if md5("password")<>rs.Fields("password") then
                        Emrrsg="密码不正确"
                          conn.Close
                         Set conn=nothing
                    Else
                        Emrrsg=""
                        Session("Passed")=True
                        Session("username")=rs.Fields("username")
                        Session("Id")=rs.Fields("Id")
                         end if
                    end if
                else
                      Emrrsg="验证码输入错误！"   
                    end if
                end if
            end if
        if not Session("Passed")  then
%>

错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。

那么应该怎么改呢？谢谢看着学习呢？

错误类型：Microsoft JET Database Engine (0x80040E10)至少一个参数没有被指定值。
 还是这个问题呢？到底是怎么回事呢？谢谢！！