| Author |
 Topic  |
|
dibley
New Member
United Kingdom
91 Posts |
 Posted - 14 September 2003 : 07:40:59
|
Has any done a mod so the location can be modded by the members to anythin up to say 25 characters or so?
Or so they can customise their "member level name" after say 250 posts?
Or they can have a description under their Avatar?
Also is there any stats mods to say who is online browsing the forum now... members and guests?
Any help appreciated....
Dib. |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
Edited by - dibley on 14 September 2003 08:01:34 |
|
|
cripto9t
Average Member
USA
881 Posts |
Posted - 14 September 2003 : 08:25:21
|
quote:
Originally posted by dibley
Also is there any stats mods to say who is online browsing the forum now... members and guests?
This may help, its an add-on for the active users mod heres the link here |
_-/Cripto9t\-_ |
Edited by - cripto9t on 14 September 2003 08:26:28 |
 |
|
|
altisdesign
Junior Member
United Kingdom
357 Posts |
Posted - 14 September 2003 : 08:29:24
|
| The AU Mod that most people use and is compatible with the latest version of Snitz is the Active Users Mod Version 4 written by Nathan. This can be found at the following URL: http://forum.snitz.com/forum/topic.asp?TOPIC_ID=26194 with bugfixes, and a download link. |
Altis Design offers all manner of web design services to a variety of commercial and personal clients |
Edited by - altisdesign on 14 September 2003 08:29:42 |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 14 September 2003 : 08:47:19
|
Thank you guys, I'm on it!
It was just "mashing" my head going thru' all those archived posts! |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 14 September 2003 : 09:42:25
|
right..haven't been brave enought to do the AU mod yet... just went for a simple Country>Location swap in inc_profile.asp
Seems to work!!! My location now is Outer Space! 
Now to try the proper mods! 
See below...
if strFullName = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Firstname: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""FirstName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Surname: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""LastName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strCity = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>City: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""City"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_CITY"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strState = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>State: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""State"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_STATE"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
' if strCountry = "1" then
' Response.Write " <tr>" & vbNewLine & _
' " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Country: </font></b></td>" & vbNewLine & _
' " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
' " <select name=""Country"" size=""1"">" & vbNewLine
' if strMode <> "Register" then
' Response.Write(" <option selected value=""" & rs("M_COUNTRY") & """>" & ChkString(rs("M_COUNTRY"), "display") & "</option>" & vbNewLine)
' else
' Response.Write " <option value=""""></option>" & vbNewLine
' end if
' Response.Write " <option value="""">None</option>" & vbNewLine
' % >
' <!--#INCLUDE FILE="inc_countrylist.asp"-->
' < %
' Response.Write " </select></font></td>" & vbNewLine & _
' " </tr>" & vbNewLine
' end if
'### start dib's location mod ###
if strCountry = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Location: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Country"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_COUNTRY"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
'### end dib's location mod ###
if strAge = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Age: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Age"" size=""5"" maxLength=""3"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AGE"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
|
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 15 September 2003 : 08:02:19
|
The following change will allow admins, moderators and members with 5 stars to change their title by while editing their profile. In inc_profile.asp find the following chunk of code (beginning at line 260) and add the code in green: if strMode = "goModify" or (strMode = "goEdit" and (rs("M_POSTS") >= intRankLevel5 or rs("M_LEVEL") > 1 )) then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Title: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Title"" size=""25"" maxLength=""50"" value=""" & CleanCode(rs("M_TITLE")) & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if |
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 17 September 2003 : 04:52:50
|
Super MeTV! I will be adding that too!!!
Thank you!!! |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 17 September 2003 : 06:11:29
|
Please excuse my asp ignorance, but am I right to assume that if I change intRankLevel5to intRankLevel3 permission will be set for members with only 3 stars? Or is that not how it works?
I would like to give permission with to members with less posts until I get a decent number of members & posts! |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 17 September 2003 : 06:26:12
|
Yeah, you can change intRankLevel5 to intRankLevelX to allow users with X stars to change their title.
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 17 September 2003 : 12:35:37
|
| Thanks, MeTV! |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 17 September 2003 : 12:43:11
|
You're welcome, dibley.
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
Cailean
New Member
Canada
75 Posts |
Posted - 17 September 2003 : 17:09:28
|
quote:
Originally posted by MeTV
(beginning at line 260) and add the code in green: if strMode = "goModify" or (strMode = "goEdit" and (rs("M_POSTS") >= intRankLevel5 or rs("M_LEVEL") > 1 )) then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Title: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Title"" size=""25"" maxLength=""50"" value=""" & CleanCode(rs("M_TITLE")) & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
I wanted to make everyone able to change their title to reflect their position in our organization (very private forum)...
I added the following code (in green) at line 260 in place of MeTV's green code above...
if strMode = "goModify" or (strMode = "goEdit" and (rs("M_LEVEL") >= 1 )) then
The title is now changeable in the profile page but doesn't 'stick'...The title is not actually changed after submitting.
What am I missing? |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 18 September 2003 : 05:21:10
|
 Sorry posted the code above in a rush, forgot to provide the changes for pop_profile.asp to update the title in the database.
in pop_profile.asp beginning at line 1158 find the following:strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
if trim(Request.Form("Password")) <> "" then
strPassword = sha256("" & Request.Form("Password"))
strSql = strSql & " SET M_PASSWORD = '" & ChkString(strPassword,"SQLString") & "', "
else
strSql = strSql & " SET"
end if
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"SQLString") & "', "And add the following code immediately after it:set rs = my_conn.Execute("SELECT M_POSTS FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & ChkString(Request.Form("Name"), "SQLString") & "'")
if rs("M_POSTS") >= intRankLevel5 or mlev > 2 then
strSql = strSql & " M_TITLE = '" & ChkString(Request.Form("Title"),"SQLString") & "', "
end if
rs.Close
set rs = nothingIncidentally, if you want all users to be able to modify their titles, there's no need for the M_LEVEL check in your if statement above:
if strMode = "goModify" or strMode = "goEdit" then
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 18 September 2003 : 06:22:20
|
| errr... my forum got hung up after adding that extra bit!! ??? |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 18 September 2003 : 06:43:03
|
Dibley, what do you mean "hung up"? What error did you get?
Cailean, you will not need the if statement surrounding the sql to update the title as you want all users to be able to change their titles.
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
dibley
New Member
United Kingdom
91 Posts |
Posted - 18 September 2003 : 06:48:24
|
The server wouldnt't load the next page after hitting update.
(I tried it multiple times, in case it was just the server being an arse.)
I took that little extra bit out and it was fine again...
except obviously the title changes back after you log out!
I didn't even notice it stopped working.
ps. what is up with the lond screen size on this topic???!!! |
.:dib:.
www.nightsouls.co.uk - Uk clubber & music forum.
www.animatronica.co.uk - Creators of themepark animatronics. |
Edited by - dibley on 18 September 2003 06:50:25 |
|
|
|
Topic |
|
Topic Locked
