| Author |
 Topic  |
|
Ryan
Average Member
USA
858 Posts |
 Posted - 15 January 2004 : 19:01:12
|
This MOD adds a member's joined date to posts. I did some poking around in the search for a MOD like this but couldn't find any so I made this one for (and by) myself. I am sharing it with you all just in case you want it.
Picture of what it adds to your forum:
(Of course, the arrow is only to direct your attention to the joined date and will not actually appear on your forum)
All you need to change is your topic.asp file.
Step 1.
Find this:
", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY" & _
Change this to:
", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M_DATE" & _
Step 2.
Find this:
Member_Country = rsTopic("M_COUNTRY")
Below that add:
Member_Date = rsTopic("M_DATE")
Step 3.
Find this:
strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY"
Change it to this:
strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_DATE"
Step 4.
Find this:
rM_COUNTRY = 11
Below that add:
rM_DATE = 12
NOTE: You will need to make sure that the numbers that appear after the = sign on that list are in a consecutive increasing order. For example 11, 12, 13, 14, etc... Your number that needs to go at the end may very depending on what MODs you have added.
Step 5.
Find this:
Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Below that add:
Reply_MemberDate = arrReplyData(rM_DATE, iForum)
Step 6.
Find this:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font></p></td>" & vbNewLine & _
Change this to:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine
Below that line add:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><br><small>Joined on: " & ChkDate(Reply_MemberDate, " " ,false) & "</small></font></p></td>" & vbNewLine & _
Step 7.
Find this:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></p></td>" & vbNewLine & _
Change this to:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font><br />" & vbNewLine
Below that add:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><br><small>Joined on: " & ChkDate(Member_Date, " " ,false) & "</small></font></p></td>" & vbNewLine & _
Please note: On step 6 and 7 you add 2 lines of code total. In that code you will see the command false change that to true if you would like not only the date but the actual time that the member joined.
Save and upload to your forum directory.
I hope you enjoy this MOD as much as I enjoyed making it!  Let me know what you think about it.
|
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help |
Edited by - Ryan on 15 January 2004 19:02:16 |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 16 January 2004 : 03:06:48
|
| I thought I published this some time ago, but obviously not. Personally in Steps 6 & 7 I would be closing the font and small tags just to open them again in the next line. |
 |
|
|
master of puppets
Junior Member
Canada
117 Posts |
Posted - 16 January 2004 : 13:17:19
|
Thanks, I wondered if that was possible awhile back, asked at onewaymule's site but no avail.
Thanks man. |
"It's not how far you go, it's how go you far"
- Guy in Ski School |
|
|
|
Ryan
Average Member
USA
858 Posts |
Posted - 16 January 2004 : 13:51:56
|
| I searched for this MOD but I couldnt find anything like it. It is possible, of course, that someone did release something like this. |
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 16 January 2004 : 15:02:12
|
no probs Ryan, it's all good  |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 17 January 2004 : 08:08:39
|
| Question: In steps 6 & 7, where in the code would the bold tags be inserted to have the date show up bold? |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 17 January 2004 : 08:55:29
|
richfed,
- where you see <small> add a <b> after
- where you see </small> add a </b> before.
|
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 17 January 2004 : 09:14:56
|
| ... but I don't want the "Joined on" to be bold - only the called date. |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 17 January 2004 : 09:51:22
|
step 6
Instead of
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><br><small>Joined on: " & ChkDate(Reply_MemberDate, " " ,false) & "</small></font></p></td>" & vbNewLine & _
It should be
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><br><small>Joined on: " & ChkDate(Member_Date, " " ,false) & "</small></font></p></td>" & vbNewLine & _
I did it your way and got just some funky text like h/t/tp and ar/sr/ar and so on, changed it to that and it worked Thanks for the mod, something I have been looking for a while now :)
WWS |
coaster crazy |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 17 January 2004 : 15:53:47
|
quote:
Originally posted by richfed
... but I don't want the "Joined on" to be bold - only the called date.
So move the bold tags a bit  |
|
|
|
richfed
Average Member
United States
999 Posts |
|
|
Ryan
Average Member
USA
858 Posts |
Posted - 17 January 2004 : 17:20:26
|
| hmm thats interesting weeweeslap. The pic you see in the first post has the Reply_MemberDate command. Thanks for the change though. I will test it on my site. |
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 17 January 2004 : 18:33:03
|
ok, no prob, dunno if it has anything to do with the db type ( ms sql server) or just the code. All good though, I got it working for me. Thanks again  |
coaster crazy |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 17 January 2004 : 20:47:35
|
| I also use MS-SQL. The code worked fine for me as is. |
|
|
|
Ryan
Average Member
USA
858 Posts |
Posted - 19 January 2004 : 11:14:51
|
I copied the line that showed the Joined Date for all replies. Here it is: Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><br><small>Joined on: " & Reply_MemberDate & "</small></font><br>" & vbNewLine
I guess I will just leave it as is and if it doesnt work for some people then they can try yours. |
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help |
|
|
|
Reeco
Starting Member
12 Posts |
Posted - 06 February 2004 : 01:31:08
|
| Great little mod... easy to put in... thanks Ryan |
http://www.chatterslounge.com Where friends can be friends! |
|
|
|
Topic |
|
Topic Locked
