Couldn't you just take this query and lose the part in red?
strSql = "SELECT "& strTablePrefix & "Bookmarks.Bookmark_ID, "& strTablePrefix & "Category.Cat_Name, "& strTablePrefix & "Forum.F_SUBJECT, "& strTablePrefix & "Topics.Topic_ID, "& strTablePrefix & "Topics.T_subject, "& strTablePrefix & "Topics.T_Replies, "& strTablePrefix & "Topics.T_date, "& strTablePrefix & "Topics.T_Last_Post,"& strMemberTablePrefix & "MEMBERS.M_NAME "
strSQL = strSQL & "," & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR "
strSql = strSql & "FROM ("& strTablePrefix & "Category INNER JOIN "& strTablePrefix & "Forum ON "& strTablePrefix & "Category.Cat_ID = "& strTablePrefix & "Forum.CAT_ID) INNER JOIN ("& strMemberTablePrefix & "Members INNER JOIN ("& strTablePrefix & "Bookmarks INNER JOIN "& strTablePrefix & "Topics ON "& strTablePrefix & "Bookmarks.B_TopicID = "& strTablePrefix & "Topics.Topic_ID) ON "
strSql = strSql & strMemberTablePrefix & "Members.Member_id = "& strTablePrefix & "Topics.T_AUTHOR) ON "& strTablePrefix & "Forum.Forum_ID = "& strTablePrefix & "Topics.Forum_id "
strSql = strSql & "WHERE ("& strTablePrefix & "Bookmarks.B_MemberID=" & getmemberID(strDBNTUserName) & ")"
if lastDate <> "All" then strsql = strsql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
rs.Open strSQL, my_Conn, 3
@tomic
http://www.skepticfriends.org
Edited by - @tomic on 27 July 2002 14:40:03