sub GetFirst()

	'## Forum_SQL - Get Origional Posting
	strSql = "SELECT FORUM_MEMBERS.M_NAME, FORUM_MEMBERS.M_ICQ, " 
	strSql = strSql & "FORUM_MEMBERS.M_YAHOO, FORUM_MEMBERS.M_AIM, " 
	strSql = strSql & "FORUM_MEMBERS.M_TITLE, FORUM_MEMBERS.M_HOMEPAGE, " 
	strSql = strSql & "FORUM_MEMBERS.MEMBER_ID, FORUM_MEMBERS.M_LEVEL, " 
	strSql = strSql & "FORUM_MEMBERS.M_POSTS, FORUM_MEMBERS.M_COUNTRY, " 
	strSql = strSql & "FORUM_MEMBERS.M_CITY, FORUM_MEMBERS.M_STATE, "
	strSql = strSql & "FORUM_MEMBERS.M_DATE, FORUM_MEMBERS.M_PMRECEIVE, "
	strSql = strSql & "FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_AUTHOR, " 
	strSql = strSql & "FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_MSGICON, FORUM_TOPICS.T_MESSAGE "
	strSql = strSql & " FROM FORUM_MEMBERS, FORUM_TOPICS "
	strSql = strSql & " WHERE FORUM_MEMBERS.MEMBER_ID = FORUM_TOPICS.T_AUTHOR "
	strSql = strSql & " AND FORUM_TOPICS.TOPIC_ID = " &  Request.QueryString("TOPIC_ID") 

**<490>**	set rs = my_Conn.Execute (strSql)

' (some more code here)

function ChkDatec(fDate)
	if fDate = "" then
		exit function
	end if
	ChkDatec = Monthname(Mid(fDate,5,2),1) & " " & _
        Mid(fDate,1,4)
end function

quote:

---

Do you have the Message Icons MOD and the Private Messages MOD installed?

If not, you'll need to either install them, or remove:

FORUM_MEMBERS.M_PMRECEIVE and FORUM_TOPICS.T_MSGICON

from both this select statement, and the one that is further up in topic.asp

You'll also need to remove the code that shows the Message Icon and the code that displays the link to send someone a private message. ( both show up twice also)

There is also code in that topic.asp file that requires the Active Users MOD be installed.

And, you'll also need to add the following function to inc_functions.asp :

function ChkDatec(fDate)
	if fDate = "" then
		exit function
	end if
	ChkDatec = Monthname(Mid(fDate,5,2),1) & " " & _
        Mid(fDate,1,4)
end function

---