JokeSystem

Hejsa
Jeg vil spørge om der er nogen der kan hjælpe med at finde ud af hvad dette script fejler når jeg får denne fejlmeldning!

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 0x1278 Thread 0x112c DBC 0x24663dc Jet\'.

/joke/default.asp, line 23


Dette er så hele scriptet:

<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Joke system.</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</HEAD>
<BODY BGCOLOR=\"#33B0FB\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#808080\" ALINK=\"#C0C0C0\">
<center>
<TABLE WIDTH=\"50%\" BORDER=\"1\" BGCOLOR=\"#FFFFFF\" BORDERCOLOR=\"#000000\">
<TR VALIGN=\"top\">
<TD>
<center><B>Jokes</B><BR>
<A HREF=\"tilfny.asp\" TARGET=\"_top\">Tilføj joke</A></center>
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM joke\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/database.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0
    Response.Write \" <A HREF=\"\"joke.asp?id=\"& rs(\"id\") & \"\"\">\"& rs(\"overskrift\") & \"<br></A>\"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<center>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \">Tilbage</a>\"
Else
  Response.Write \"Tilbage\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"- <a href=default.asp?page=\" & intPage + 1 & \">Næste side</a> \"
Else
  Response.Write \"- Næste side\"
End If
%>
</center>
</center>
</TD>
</TR>
</TABLE>

</BODY>
</HTML>

Please help me!!!
Tak på forhånd

- Thomas