Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Subscription_List Member Link

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Andy Humm 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 & _<
7   L A T E S T    R E P L I E S    (Newest First)
Andy Humm 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<
Carefree 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 & _
<
Andy Humm Posted - 23 June 2008 : 07:06:12
That's right HuwR, the subMemberName 'linked back to the member's profile page' if possible
<
HuwR 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<
Carefree 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.<
Andy Humm 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 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
<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.02 seconds. Powered By: Snitz Forums 2000 Version 3.4.07