Has anyone used the code above with success?

Based on the idea by "MadDog" at:
http://b2.iportalx.net/forum_posts.asp?TID=88&PID=797 - http://b2.iportalx.net/forum_posts.asp?TID=88&PID=797
- - - - - - - - - - - - - - -

To display the last xx posts on any page within the website outside the forum.
I tried other mods but some could not be placed on ANY page within the site and/or would show last 10 posts OK but if the last 10 were within the same topic then I got 10 lines all pointing to the same topic!
NOTE: code is for MS Access. See page above for other databases.

"last_ten_posts.asp" placed in the forum directory

<%
' to be used as an include on another page, like
' <!--#include virtual = "/forum/last_ten_posts.asp" -->
%>
<p style="text-align : left; font-size : 80%;color:#800000;">
 Latest 10 Forum Posts
<br />
<%
Dim strLastestPostsModForumPath
Dim intLastestPostsTotal
Dim intCharacters
Dim strLastestPostsModCon
Dim adoCon
Dim rsAll
Dim strSQL
Dim intLoopCounter
Dim strTID
Dim strSubject
Dim strPID

'The absolute path to the forum
strLastestPostsModForumPath = "/forum/"

'How many new topics to show
intLastestPostsTotal = 10

'How many characters to show from the Topic title?
intCharacters = 18

'Database connection
'Default connection - adjust to suit
strLastestPostsModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/forum/database/wwForum.mdb")

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open strLastestPostsModCon

Set rsAll = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT TOP " & intLastestPostsTotal & " "
strSQL = strSQL & " Topic_ID, Subject, Last_thread_ID "
strSQL = strSQL & " FROM tblTopic "
strSQL = strSQL & "ORDER BY Last_Thread_ID DESC;"

'open the connection
rsAll.Open strSQL, adoCon

'if there are records put into an array then close the connection
If NOT rsAll.EOF Then strArrayAll = rsAll.getRows()
rsAll.Close
Set rsAll = Nothing
adoCon.Close
Set adoCon = Nothing

'Loop through the array of forum posts
For intLoopCounter = 0 TO UBound(strArrayAll, 2)
  'strArrayAll array lookup table
  '0 = Topic_ID
  '1 = Subject
  '2 = Last_thread_ID
  strTID = strArrayAll(0, intLoopCounter)
  strSubject = strArrayAll(1, intLoopCounter)
  strPID = strArrayAll(2, intLoopCounter)

  Response.Write "<a href=""" & strLastestPostsModForumPath & "forum_posts.asp?TID=" & strTID & "&" & "PID=" & strPID & "#" & strPID & """>" & strSubject & "</a><br />" & vbcrlf

  Next
%>
</p>

<%
 NumberOfPosts = 0

 Set rsLatestPosts = Server.CreateObject("ADODB.Recordset")
 strSQL = "SELECT tblTopic.Topic_ID, tblTopic.Subject, tblTopic.Last_entry_date, tblForum.Forum_ID, tblForum.Forum_name, tblForum.[Read] FROM (tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID) WHERE ((tblForum.Password) Is Null) ORDER BY tblTopic.Last_entry_date DESC;"

 rsLatestPosts.Open strSQL, adoCon

  Response.Write "<table cellpadding=""0"" cellspacing=""0"" width=""100%"">"

 If rsLatestPosts.EOF Then
  Response.Write "<tr><td class=""smText"">No Forum Posts Made</td></tr>"  'English
  'Response.Write "<tr><td class=""smText"">Forumda yeni mesaj yok</td></tr>" ' Turkish
 Else

  Do while NOT rsLatestPosts.EOF And NumberOfPosts < 20
   intForumID = CInt(rsLatestPosts("Forum_ID"))
   intForumReadRights = CInt(rsLatestPosts("Read"))
   Call forumPermisisons(intForumID, intGroupID, intForumReadRights, 0, 0, 0, 0, 0, 0, 0, 0, 0)

If rowType = strTableOddRowColour Then
rowType = strTableEvenRowColour
Else
rowType = strTableOddRowColour
end if

   'If the user has no read rights then skip the post
   If blnRead = True Then

    If len(rsLatestPosts("Subject"))>40 then
     strTopicSubject = left(rsLatestPosts("Subject"),40) & "..."
    Else
     strTopicSubject = rsLatestPosts("Subject")
  strFirstPostMsg = removeHTML(strFirstPostMsg)
  strFirstPostMsg  = Mid(Trim(strFirstPostMsg), 1, 250)

    End If
    NumberOfPosts = NumberOfPosts + 1

 LastLatestPostsDateTime = rsLatestPosts("Last_entry_date")
 LastLatestPostsDate = DateFormat(LastLatestPostsDateTime, saryDateTimeData)
 LastLatestPostsTime = TimeFormat(LastLatestPostsDateTime, saryDateTimeData)

 Set rsLatestPosts2 = Server.CreateObject("ADODB.Recordset")
 sql2 = "SELECT tblThread.Thread_ID, tblThread.Topic_ID, tblAuthor.Username, tblAuthor.Author_ID FROM (tblAuthor INNER JOIN tblThread ON tblAuthor.Author_ID = tblThread.Author_ID) WHERE Topic_ID= "&rsLatestPosts("Topic_ID")&" order by Message_date desc"
 rsLatestPosts2.Open sql2, adoCon

 Response.Write("<tr bgcolor="""&rowType&"""><td class=""Text""><a href=""forum_posts.asp?TID=" & rsLatestPosts("Topic_ID") & "&get=last#"&rsLatestPosts2("Thread_ID")&""" target=""_blank"" class=""smLink"" title=""" & strFirstPostMsg & """ - ("&rsLatestPosts("Forum_name")&")"">" & strTopicSubject & "</a></td><td class=""smText"" >"&rsLatestPosts2("Username") &"</td><td class=""Text"" align=""right"" >" & LastLatestPostsDate & "-" & LastLatestPostsTime & "</td>")

   End If
  
  rsLatestPosts.MoveNext
  If blnRead = True Then
   If NOT rsLatestPosts.EOF Then Response.Write("</tr>")
  End If
  Loop

  If NumberOfPosts = 0 Then
   Response.Write "<tr><td class=""smText"">No Sufficient Permission to View Latest Forum Posts</td></tr>" 'English
   'Response.Write "<tr><td class=""smText"">Son mesajlar‎ gِrme yetkiniz yok</td></tr>" ' Turkish
  End If
 End If

  Response.Write "</table>"

 rsLatestPosts2.Close
 Set rsLatestPosts2 = Nothing
 rsLatestPosts.Close
 Set rsLatestPosts = Nothing
%>

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 0x1b64 Thread 0x1bbc DBC 0x2db8c094 Jet'.