Plutselig fejl ved login

Jeg bruger dette script til at logge ind med:

<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxx.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strUsername = Replace(unQuote(request("username")),"'","''")
        strPassword = Replace(unQuote(request("password")),"'","''")

  Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
Session("login") = "yes mate"
Session("Id") = ez("Id")
hits = ez("hits")
Sql = "Update user Set hits = "&hits&" + 1 Where Id = "&Session("Id")&""
myConn.Execute(Sql)
Response.Redirect "index.asp"
EZ.Close
RS.Close
Conn.Close
  end if
end if
%>

men er begynt at få denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xe10 Thread 0x174c DBC 0x15faa54 Jet'.

/login.asp, line 63


Hvorfor nu det?

/cdc