Fejl i koden??

Når jeg forsøger at få vist min side (gennem(?) IIS) får jeg en fejlmelding (se nederst). Det har virket at jeg uploadede siden til en server på internettet, men nu virker det pludselig heller ikke.
Nogen der har en forklaring (og helst også en løsning)?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/kale.mdb")
strSQL = "select * from kalender where Dato >= date() AND Dato <= date()+100 Order By Dato"
Set rs = Conn.Execute(strSQL)
%>

      <b><%= rs("Overskrift") %></b><br><img src="img/dot.gif" width="1" height="2"><br>
    <%= rs("Korttekst") %>
    <br><img src="img/dot.gif" width="1" height="4"><br>

<%
rs.MoveNext
%>

      <b><%= rs("Overskrift") %></b><br><img src="img/dot.gif" width="1" height="2"><br>
    <%= rs("Korttekst") %>
    <br><img src="img/dot.gif" width="1" height="4"><br>

<%
rs.Close
Conn.Close
Set Conn = nothing
Set strSQL = nothing
%>

------------------

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xb04 Thread 0xe20 DBC 0x2080064 Jet'.
/past/default.asp, line 88