Check out my forums, the code is (roughly this). All changes to topic.asp:
Find the line that contains this text:
Reply_MemberPosts & " Posts
I can't remember exactly how much I chopped on that line but mine is this :
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts<br><nobr>joined " & Replace(Replace(ChkDate(Join_Date, " : " ,false), " 20", " "), " "," ") & "</nobr></small></font></p></td>" & vbNewLine & _
This also requires changes of ...
Find this line :
Reply_Date = arrReplyData(rR_DATE, iForum)
and insert this after it :
Join_Date = arrReplyData(rM_MDATE, iForum)
Find this line :
rR_DATE = 23
Insert this line below :
rM_MDATE = 24
and make sure that all your numbers are consecutive
and then add the M_DATE to this line :
strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE, M.M_DATE"
That fixes all the replies, to change the initial post ...
Around line 99 there is a line like this (this one is mine with M_DATE in it
strSql = "SELECT M.M_NAME, M.M_DATE, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" & _
only a few lines down from there is this line .. .
Member_Name = rsTopic("M_NAME")
Add this line under it :
Member_JoinDate = rsTopic("M_DATE")
then WAY down in sub GetFirst is a similar line to our first change, but mine looks like this now :
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts<br><nobr>joined " & Replace(ChkDate(Member_JoinDate, " : " ,false), " 20", " ") & "</nobr></small></font></p></td>" & vbNewLine & _
Topic Locked
Posted - 01 January 2004 : 11:50:44
