Login...

Nu har jeg snart prøvet alle de scripts jeg har, også et meget simpelt et, men ligemeget, den bliver ved med at give samme fejl... Den velkendte:

Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e10\'

[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.

/default2.asp, linje 64


min kode ser sådan ud (ganske enkel):

<%
  AUTHDB_DSN = \"MS Access-database\"
  If Session(\"UserID\") <> \"Authorized\" Then
  If Request.Form(\"login\") = \"\" Then
%>

<HTML>
<Body>

<CENTER>
<H1></H1>
<H3></H3>

<HR>

<form action=\"default2.asp\" method=\"POST\" >
<input type=\"hidden\" name=\"login\" value=\"true\">
    <table>
        <tr>
            <td>
                <b>Name:</b>
            </td>
            <td>
                <b>Password:</b>
            </td>
        </tr>

        <tr>
            <td>
                <input type=\"text\" size=\"15\" name=\"Brugernavn\">
            </td>
            <td>
                <input type=\"text\" size=\"15\" name=\"adgangskode\">
            </td>
        </tr>
    </table>

<BR>
<hr width=\"30%\">

    <table>
        <tr>
            <td>
                <input type=\"submit\" value=\"SUBMIT\">
            </td>
            <td>
                <input type=reset name=reset value=RESET>
            </td>
        </tr>
    </table>
</center>

</FORM>
</BODY>
</HTML>

<%
  response.end
  else if Request.Form(\"login\") = \"true\" then
  Set authConn = server.CreateObject(\"ADODB.connection\")
  authConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/db/login_2000.mdb\")

  sqlString = \"Select * from Users where Username = \'\" & request.form(\"Brugernavn\") & \"\'\"
  Set authRs = authConn.execute(sqlString)
  if authRs.BOF then
%>

<html>
  <center><h1>Login Failure</h1>
  The User ID does not exist</center>
</html>

<%
  response.end
  Else
      If request.Form(\"adgangskode\") = authRs(\"Password\") Then
      Session(\"UserID\") = \"Authorized\"
  else
%>

<html>
  <center><h1>Login Failure</h1>
  You have entered an Incorrect Password</center>
</html>

<%
  response.end
      End If
  End If
  Else
      response.redirect \"default2.asp\"
      response.end
      end if
  end if
end if
%>