Subscription_List Member Link

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/67321?pagenum=1
05 November 2025, 01:59

Topic

Andy Humm
Subscription_List Member Link
22 June 2008, 19:06


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 & _<

 

Replies ...

Carefree
23 June 2008, 05:28


In inc_profile.asp (appx lines: 602-610)

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
<
Andy Humm
23 June 2008, 05:52


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<
Carefree
23 June 2008, 06:37


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.<
HuwR
23 June 2008, 06:49


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<
Andy Humm
23 June 2008, 07:06


That's right HuwR, the subMemberName 'linked back to the member's profile page' if possible
<
Carefree
23 June 2008, 07:23


In subscriptions_list.asp, appx line 201, look for:

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 & _
<
Andy Humm
23 June 2008, 08:30


Spot on and thank you, I added "& CellFont &" to bring the size of the link to coincide with the strDefaultFontSize
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<
© 2000-2021 Snitz™ Communications