Fejl i ASP kode, men hvor?

Sidder i forbindelse med et it projekt og laver et e-handelssystem i ASP, og har fået en underlig fejl, som jeg ikke selv kan se i mit script...

Fejlen er:
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 0x3a8 Thread 0x720 DBC 0x4b785ec Jet'.

/it_projekt/produktet/Profile.asp, line 75


Og her kommer scriptet så lige:
<!-- Minus AutoDato -->
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
If Not Session("login") > 0 Then Response.Redirect("Profile.asp?mode=Error")
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database/database.mdb")
strSQL = "SELECT * FROM Brugere WHERE Kunde_nr='"& login &"'"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.Write "Der er opstået problemer med Deres login."
else
Do Until rs.EOF
%>
<p>Velkommen <%=RS("Navn")%>.</p>
<p>De er nu logget ind på systemet, og kan frit foretage ændringer i Deres
profil eller ordrer.</p>
<%
RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database/database.mdb")
strSQL = "SELECT * FROM Mailbox WHERE Ny ='Ja' AND Kunde_nr='"& login &"'"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.Write ""
else
Response.Write "<p>De har én eller flere ulæste nyheder i Deres <a href=""Mailbox.asp"" target=""Main"">mailbox</a>.</p>"
%>
<%
RS.MoveNext
end if
Conn.Close
Set Conn = Nothing
end if
%>

<% if mode = "Error" then %>
<form method="POST" action="Profile.asp?mode=Login">
  <table border="0" width="250">
    <tr>
      <td>Brugernavn:</td>
      <td><input type="text" name="Username" size="20"></td>
    </tr>
    <tr>
      <td>Password:</td>
      <td><input type="password" name="Password" size="20"></td>
    </tr>
    <tr>
      <td colspan="2"><input type="Submit" value="Log ind" name="Login">&nbsp;&nbsp; <input type="reset" value="Nulstil" name="Reset"></td>
    </tr>
  </table>
</form>
<% end if %>

<% if mode = "Login" then %>
<%
Session("Brugernavn") = request.form("Brugernavn")
Session("Password") = request.form("Password")
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath("database/database.mdb") &"/database.mdb; DefaultDir=DBQ="& Server.MapPath("database/database.mdb") &";Driver={Microsoft Access Driver (*.mdb)};"

Response.Buffer = True

Function checklogin(Brugernavn,Password)
    set tjek = Conn.Execute("SELECT * FROM Brugere WHERE Brugernavn = '"& Brugernavn &"' AND Password = '"& Password &"'")
    If tjek.EOF THEN
        Response.Write "<center><FONT FACE=Verdana SIZE=4 COLOR=#FF0000><B>Forkert brugernavn eller password.<br><br> Tjek at de indtastede oplysninger er korrekte og prøv igen.<br>Hvis De ikke er en registreret bruger, kan De oprette Dem <a href=""Profile.asp?mode=New"" target=""Main"">her</a></B></FONT></center>"
    Else
        Session("login") = tjek("Kunde_Nr")
        Response.Redirect("Profile.asp?mode=")
    End If
End Function

Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
End Function
REM Diverse funktioner slut
%>

<% end if %>

Håber der er nogle friske hoveder derude som kan hjælpe...

S.R.