Snitz Forums 2000 - Subscription

Author

Topic

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 22 June 2008 : 19:06:49

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

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 23 June 2008 : 05:28:02

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

Look for this:


		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:


			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
Average Member

United Kingdom
908 Posts

Posted - 23 June 2008 : 05:52:44

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
Advanced Member

Philippines
4217 Posts

Posted - 23 June 2008 : 06:37:11

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
Forum Admin

United Kingdom
20595 Posts

Posted - 23 June 2008 : 06:49:09

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
Average Member

United Kingdom
908 Posts

Posted - 23 June 2008 : 07:06:12

That's right HuwR, the subMemberName 'linked back to the member's profile page' if possible

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 23 June 2008 : 07:23:12

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


		Response.Write 	CellFont & SubMemberName & "</font></td>" & vbNewLine & _

Change that to say:


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

Edited by - Carefree on 23 June 2008 07:26:34

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 23 June 2008 : 08:30:41

Spot on and thank you, I added "& CellFont &" to bring the size of the link to coincide with the strDefaultFontSize

	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<

Topic