shoshan

							'---- WWH 1.21 ----
'							strSQL = "SELECT Top 1 " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject, " & strDbTable & "Topic.Last_entry_date, " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Author_ID, " & strDbTable & "Author.Username "
'							strSQL = strSQL & "FROM " & strDbTable & "Topic, " & strDbTable & "Thread, " & strDbTable & "Author "
'							strSQL = strSQL & "WHERE " & strDbTable & "Topic.Forum_ID=" & intForumID & " AND " & strDbTable & "Thread.Message_date=" & strDbTable & "Topic.Last_entry_date AND " & strDbTable & "Author.Author_ID=" & strDbTable & "Thread.Author_ID "
'							strSQL = strSQL & "ORDER BY " & strDbTable & "Topic.Last_entry_date DESC;"
							'------------------
							'---- MOD BY SHOSHAN COHEN 0.01 ----
							strSQL = "SELECT TOP 1 " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject, " & strDbTable & "Topic.Last_entry_date FROM " & strDbTable & "Topic WHERE " & strDbTable & "Topic.Forum_ID=" & intForumID & _
										" ORDER BY " & strDbTable & "Topic.Last_entry_date DESC;"
							rsCommon.Open strSQL, adoCon
							lngLastEntryTopicID = -1
							If NOT rsCommon.EOF Then
								lngLastEntryTopicID = CLng(rsCommon("Topic_ID"))
								lngLastEntryTopicID = CLng(rsCommon("Topic_ID"))
								dtmLastEntryDate = CDate(rsCommon("Last_entry_date"))
								MessageContent = rsCommon("Subject")
								strSQL = "SELECT Top 1 " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Author_ID, " & strDbTable & "Author.Username "
								strSQL = strSQL & "FROM " & strDbTable & "Thread, " & strDbTable & "Author "
								strSQL = strSQL & "WHERE " & strDbTable & "Thread.Topic_ID=" & lngLastEntryTopicID & " AND " & strDbTable & "Author.Author_ID=" & strDbTable & "Thread.Author_ID "
								strSQL = strSQL & "ORDER BY " & strDbTable & "Thread.Message_date DESC;"
							End If
							rsCommon.Close
							'------------------