| Author |
 Topic  |
|
Alfred
Senior Member
USA
1527 Posts |
 Posted - 08 January 2003 : 13:58:22
|
Around line 400 in members.asp I added (in red):
quote:
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if M_JOIN = "YES" and Trim(Members_MemberJOIN) <> "" then
Response.Write getstrIconJOINED
end if if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & Members_MemberID & """" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & Members_MemberID & "')""" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
end if
I have verified that the field in the database has the "YES" in it, and I have added the icon in inc_iconfiles as this line:
Const strIconJoined = "joined.gif|35|22"
Why does it not show up in the members left column, where the other icons show? |
Alfred
The Battle Group
CREDO
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 08 January 2003 : 18:37:23
|
in order to show an icon you will need to use this code:
Response.Write getCurrentIcon(strIconJoined,"","")
i am assuming that you have the rest of the code working... meaning you have added the M_JOIN to the GetRows query... |
cHosting.nl |
 |
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 08 January 2003 : 22:43:47
|
I have added it in members.asp here (in red): quote:
'New Search Code
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_JOIN, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
' if Request.querystring("link") <> "sort" then
but have no idea whether that is what's needed, or where else it should go... |
Alfred
The Battle Group
CREDO
|
Edited by - Alfred on 09 January 2003 00:05:03 |
|
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
|
Alfred
Senior Member
USA
1527 Posts |
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 09 January 2003 : 17:49:46
|
| you are in good hands with Nikkol... i'll leave you two to it. |
cHosting.nl |
|
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
Posted - 09 January 2003 : 18:08:51
|
| First Alfred, see crash's original reply. I don't believe you made that change. Can you make that change and see if it works? If it doesn't update the text file and let us know. |
Nikkol ~ Help Us Help You | ReadMe | 3.4.03 fixes | security fixes ~ |
|
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 09 January 2003 : 18:18:34
|
Do you mean this part, Nikkol?quote:
Response.Write getCurrentIcon(strIconJoined,"","")
I had done that, but it didn't work either, so I changed it back to: quote:
Response.Write getIconJoined
Isn't the strCurrentIcon only needed for those icons that are changable in the admin options? |
Alfred
The Battle Group
CREDO
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 09 January 2003 : 18:23:17
|
sql to get the member details is at two places you need to add the new column at both places. You also need to assign the value from the database to a variable. Look for this part. As you are inserting the new field in the middle of sql you will need to reset the numbers assigned for each column
mMEMBER_ID = 0
mM_STATUS = 1
mM_NAME = 2
mM_LEVEL = 3
mM_EMAIL = 4
mM_COUNTRY = 5
mM_HOMEPAGE = 6
mM_AIM = 7
mM_ICQ = 8
mM_MSN = 9
mM_YAHOO = 10
mM_TITLE = 11
mM_POSTS = 12
mM_LASTPOSTDATE = 13
mM_LASTHEREDATE = 14
mM_DATE = 15
rec = 1
intI = 0
for iMember = 0 to iMemberCount
if (rec = strPageSize + 1) then exit for
Members_MemberID = arrMemberData(mMEMBER_ID, iMember)
Members_MemberStatus = arrMemberData(mM_STATUS, iMember)
Members_MemberName = arrMemberData(mM_NAME, iMember)
Members_MemberLevel = arrMemberData(mM_LEVEL, iMember)
Members_MemberEMail = arrMemberData(mM_EMAIL, iMember)
Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember)
Members_MemberHomepage = arrMemberData(mM_HOMEPAGE, iMember)
Members_MemberAIM = arrMemberData(mM_AIM, iMember)
Members_MemberICQ = arrMemberData(mM_ICQ, iMember)
Members_MemberMSN = arrMemberData(mM_MSN, iMember)
Members_MemberYAHOO = arrMemberData(mM_YAHOO, iMember)
Members_MemberTitle = arrMemberData(mM_TITLE, iMember)
Members_MemberPosts = arrMemberData(mM_POSTS, iMember)
Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember)
Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember)
Members_MemberDate = arrMemberData(mM_DATE, iMember)
|
|
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 09 January 2003 : 19:21:08
|
I would like the new icon to be the first one on the left, or it could actually be in place of the "Profile" icon, since the name itself has that link in it anyway.
But I don't know what number the new one would have to be to go on the left!
I tried to comment the first one (the "0") and put mine in its place, but that wreaked havoc.
Then I placed it as number 16 at the end of both list, and nothing happened.
Boy, is that puzzling...  |
Alfred
The Battle Group
CREDO
|
Edited by - Alfred on 09 January 2003 19:22:03 |
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 09 January 2003 : 20:36:51
|
Add new column as shown
'New Search Code
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_JOIN "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
' if Request.querystring("link") <> "sort" then
Add new column here also
else
'## Forum_SQL - Get all members
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_JOIN "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
Then modify this part as shown
mMEMBER_ID = 0
mM_STATUS = 1
mM_NAME = 2
mM_LEVEL = 3
mM_EMAIL = 4
mM_COUNTRY = 5
mM_HOMEPAGE = 6
mM_AIM = 7
mM_ICQ = 8
mM_MSN = 9
mM_YAHOO = 10
mM_TITLE = 11
mM_POSTS = 12
mM_LASTPOSTDATE = 13
mM_LASTHEREDATE = 14
mM_DATE = 15
mM_Join = 16
Modify this part as shown
rec = 1
intI = 0
for iMember = 0 to iMemberCount
if (rec = strPageSize + 1) then exit for
Members_MemberID = arrMemberData(mMEMBER_ID, iMember)
Members_MemberStatus = arrMemberData(mM_STATUS, iMember)
Members_MemberName = arrMemberData(mM_NAME, iMember)
Members_MemberLevel = arrMemberData(mM_LEVEL, iMember)
Members_MemberEMail = arrMemberData(mM_EMAIL, iMember)
Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember)
Members_MemberHomepage = arrMemberData(mM_HOMEPAGE, iMember)
Members_MemberAIM = arrMemberData(mM_AIM, iMember)
Members_MemberICQ = arrMemberData(mM_ICQ, iMember)
Members_MemberMSN = arrMemberData(mM_MSN, iMember)
Members_MemberYAHOO = arrMemberData(mM_YAHOO, iMember)
Members_MemberTitle = arrMemberData(mM_TITLE, iMember)
Members_MemberPosts = arrMemberData(mM_POSTS, iMember)
Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember)
Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember)
Members_MemberDate = arrMemberData(mM_DATE, iMember)
Members_MemberJoin = arrMemberData(mM_Join, iMember)
Add the part in red as shown
if intI = 1 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if Members_MemberJoin = "YES" then
Response.Write getCurrentIcon(strIconJoined, "Joined", "align=""absmiddle"" hspace=""0""")
end if
if strUseExtendedProfile then
if Members_MemberJoin = "YES" then
Response.Write getCurrentIcon(strIconJoined,"Joined " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
end if
if Members_MemberStatus = 0 then
Response.Write getCurrentIcon(strIconProfileLocked,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
else
Response.Write getCurrentIcon(strIconProfile,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
end if
<edited to make correction> |
Edited by - GauravBhabu on 09 January 2003 22:22:51 |
|
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 09 January 2003 : 21:48:05
|
Well, I did all twice to be sure, but sadly... no icon is showing.
Is the space after Joined on purpose?: quote:
if Members_MemberJoin = "YES" then
Response.Write getCurrentIcon(strIconJoined,"Joined " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
end if
It made no difference though when I deleted it.
I have updated the file here for you to see: http://ggholiday.com/temporary/members.txt
|
Alfred
The Battle Group
CREDO
|
Edited by - Alfred on 09 January 2003 21:53:40 |
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 09 January 2003 : 22:18:23
|
This is incorrect
if Members_MemberJoin = "YES" then
Response.Write getCurrentIcon(strIconJoined,"Joined" & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
end if
if intI = 1 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if strUseExtendedProfile then
This is how it should look like
if intI = 1 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if Members_MemberJoin = "YES" then
Response.Write getCurrentIcon(strIconJoined, "Joined", "align=""absmiddle"" hspace=""0""")
end if
if strUseExtendedProfile then |
Edited by - GauravBhabu on 09 January 2003 22:19:14 |
|
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 09 January 2003 : 22:29:19
|
| Now the icon made it's first showing, but not in the row of the table - only outside on top left! |
Alfred
The Battle Group
CREDO
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 09 January 2003 : 22:42:47
|
| It is likely that you did not make the changes correctly. |
|
|
|
Topic |
|
|
|
Topic Locked
