The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
In the subscriptions_list.asp, the members who have subscribed to a topic have their Member name listed and I was wondering if this name could be linked back to the member's profile page.
I am sure it could be possible, line 263 has the following:
Response.Write CellFont & subMemberName & "</font></td>" & vbNewLine & _<
I am sure it could be possible, line 263 has the following:
Response.Write CellFont & subMemberName & "</font></td>" & vbNewLine & _<
Posted
In inc_profile.asp (appx lines: 602-610)
Look for this:
Insert this afterward:
<
Look for this:
Code:
if strYAHOO = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>YAHOO IM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Insert this afterward:
Code:
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Extras</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if (strSubscription > 0) then
if MySubCount > 0 then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <a href=""subscription_list.asp""" & dWStatus("See all of your subscriptions") & " tabindex=""-1""><acronym title=""See all of your subscriptions"">My Subscriptions</acronym></a></font></td></tr>" & vbNewline
end if
end if
Posted
Carefree I have added the provided code and the members name is still not a link. We have made no alterations to subMemberName from subscriptions_list.asp<
Posted
Huh? You asked for a link to member's subscriptions ... oh I see, I gave you a link that would add a link to your subscriptions within your profile. You want one that will show all members who have subscribed to a particular topic? That could potentially be very large, depending on the popularity of the topic and the number of users.
I'll see if I can write something later today - have to go to another doctor's appt.<
I'll see if I can write something later today - have to go to another doctor's appt.<
Posted
there is already a link that does that carefree, what Andy_humm wants is the list to link to a members profile rather than just displaying the members name<
Posted
That's right HuwR, the subMemberName 'linked back to the member's profile page' if possible
<
<
Posted
In subscriptions_list.asp, appx line 201, look for:
Change that to say:
<
Code:
Response.Write CellFont & SubMemberName & "</font></td>" & vbNewLine & _
Change that to say:
Code:
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & subMemberID & """" & dWStatus("View " & ChkString(subMemberName,"display") & "'s Profile") & ">"
else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & subMemberID & "')""" & dWStatus("View " & ChkString(subMemberName,"display") & "'s Profile") & ">"
end if
Response.Write subMemberName & "</a>" & vbNewLine & _
"</font></td>" & vbNewLine & _
Last edited by Carefree on 23 June 2008, 07:26
Posted
Spot on and thank you, I added "& CellFont &" to bring the size of the link to coincide with the strDefaultFontSize
I thank you for your help.
Andy<
Code:
if strUseExtendedProfile then
Response.Write " "& CellFont &"<a href=""pop_profile.asp?mode=display&id=" & subMemberID & """" & dWStatus("View " & ChkString(subMemberName,"display") & "'s Profile") & ">"
else
Response.Write " "& CellFont &"<a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & subMemberID & "')""" & dWStatus("View " & ChkString(subMemberName,"display") & "'s Profile") & ">"
end if
Response.Write subMemberName & "</a>" & vbNewLine & _
"</font></td>" & vbNewLine & _
I thank you for your help.
Andy<
Email Member
Message Member
Post Moderation
FileUpload
If you're having problems uploading, try choosing a smaller image.
Preview post
Send Topic
Loading...