Siden virker ikke 2. gang den bliver kørt

Hej Eksperter,

Hvorfor virker denne kode ikke anden gang den bliver kørt? Jeg får en fejl i linie 7 \"bookDB.Open (strODBC)\".

/Steven

<%
Dim strODBC

Dim bookDB
set bookDB = Server.CreateObject(\"ADODB.Connection\")
strODBC = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Request.ServerVariables(\"APPL_PHYSICAL_PATH\") & \"db/bookdb.mdb\"
bookDB.Open (strODBC)

IF Request.QueryString(\"logud\") = \"ja\" THEN
    session(\"userID\")=\"\"
END IF

If Request.Form(\"Action\") = \"Login\" Then
    strUID = Trim(Replace(Request.Form(\"brugernavn\"),\"\'\",\"\"))
    strPWD = Trim(Replace(Request.Form(\"adgangskode\"),\"\'\",\"\"))

    If Len(strUID) > 0 And Len(strPWD) > 0 Then
        SQL = \"SELECT laererid, laerernavn FROM laerer WHERE (laererid = \'\" & strUID & \"\') AND (laererkode = \'\" & strPWD & \"\');\"
        Set loginRS = BookDB.Execute(SQL)

        If Not (loginRS.BOF Or loginRS.EOF) Then
            intUID = loginRS(\"laerernavn\")
        Else
            strERR = \"Kombinationen af brugernavn og adgangskode er IKKE korrekt!\"
        End If

        If Len(intUID) Then
            Session(\"UserID\") = intUID
            Response.Redirect(\"lmodul.asp\")
           
        End If
    Else
        strErr = \"Du skal skrive både brugernavn og adgangskode\"
    End If

    If Len(strErr) > 0 Then
        strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
    End If
End If
%>

<html>
    <head>
        <link rel=\"stylesheet\" href=\"ksstyle.css\">
    </head>
    <body style=\"background-image: url(img/baggrund.jpg); background-repeat: no-repeat; background-attachment: fixed; background-position: center\">
        <h1>Login til lærermodulet</h1>
        <%=strErr%>

        <form method=\"POST\" action=\"login.asp\">       
        <table>
            <tr><td>Brugernavn:&nbsp;&nbsp;&nbsp;</td><td><input type=\"text\" name=\"brugernavn\" size=\"20\"></td></tr>
            <tr><td>Kodeord:&nbsp;&nbsp;&nbsp;</td><td><input type=\"password\" name=\"adgangskode\" size=\"20\"></td></tr>
            <tr><td align=\"right\"><input type=\"reset\" value=\"Slet\"></td><td><input type=\"submit\" value=\"Login\" name=\"Action\"></td></tr>
        </table>
        </form>

        <p>Hvis du ønsker at få adgang til lærermodulet, og er ansat på Københavns Sprogcenter, så send en e-mail til webmaster på <a href=\"mailto:webmaster@kbh-sprogcenter?subject:Oprettelse af bruger på skolens hjemmeside\">webmaster@kbh-sprogcenter.dk</a>.</p>
    </body>
</html>

<%
bookDB.Close
Set bookDB = Nothing
%>