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.
This MOD adds a MySpace icon just like AIM.
This is a beta version and my first MOD, so any suggestions would be helpful.
This is version .99b (beta)
Updated version .99-2b (beta)
(Updated on January 27, 2008, thanks to Sean Sounds for bug report)
Click Here to download
Lon<
(Updated on January 27, 2008, thanks to Sean Sounds for bug report)
Click Here to download
Lon<
Posted
Thank you Lon for your contribution!
I am looking forward to seeing how it works!
Cheers,
Etymon
<
I am looking forward to seeing how it works!
Cheers,
Etymon
<
Posted
Hello Lon. Your instructions lists the pop_messengers.asp file as one that needs to be modified but you gave no instructions for this file. Was this file thrown in by accident or should there be instructions. Looking forward to installing this. 
<
<
Posted
Works great.
Installed on Snitz 3.4.03 and 3.4.06 with MSSQL
All Admin section changes working fine
Only one thing I noticed for the topic.asp instructions.
Missing 2 "End If" statements I added below in red.
------------look for this at line 636:
if strYAHOO = "1" then
if Trim(Reply_MemberYAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Reply_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
-----------add this below:
if strMYSPACE = "1" then
if Trim(Reply_MemberMYSPACE) <> "" then
Response.Write " <a href=""JavaScript:var newWin=window.open('http://www.myspace.com/" & Reply_MemberMYSPACE & "')"">" & getCurrentIcon(strIconMYSPACE,"myspace" & "","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
------------look for this at line 844:
if (strYAHOO = "1") then
if Trim(Member_YAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Member_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Member_Name,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
-----------add this below:
if (strMYSPACE = "1") then
if Trim(Member_MYSPACE) <> "" then
Response.Write " <a href=""JavaScript:var newWin=window.open('http://www.myspace.com/" & Member_MYSPACE & "')"">" & getCurrentIcon(strIconMYSPACE,"myspace" & "","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
Great Mod Lon. Create my first MySpace page just last week so this was right on time. Thanks.<
Installed on Snitz 3.4.03 and 3.4.06 with MSSQL
All Admin section changes working fine
- Members Detail Configuration Page ok
- Members List Displays Icon ok
- MySpace Field In User's Profile ok
- MySpace Icon Displays On Posts ok
Only one thing I noticed for the topic.asp instructions.
Missing 2 "End If" statements I added below in red.
------------look for this at line 636:
if strYAHOO = "1" then
if Trim(Reply_MemberYAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Reply_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
-----------add this below:
if strMYSPACE = "1" then
if Trim(Reply_MemberMYSPACE) <> "" then
Response.Write " <a href=""JavaScript:var newWin=window.open('http://www.myspace.com/" & Reply_MemberMYSPACE & "')"">" & getCurrentIcon(strIconMYSPACE,"myspace" & "","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
------------look for this at line 844:
if (strYAHOO = "1") then
if Trim(Member_YAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Member_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Member_Name,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
-----------add this below:
if (strMYSPACE = "1") then
if Trim(Member_MYSPACE) <> "" then
Response.Write " <a href=""JavaScript:var newWin=window.open('http://www.myspace.com/" & Member_MYSPACE & "')"">" & getCurrentIcon(strIconMYSPACE,"myspace" & "","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if
Great Mod Lon. Create my first MySpace page just last week so this was right on time. Thanks.
<
Posted
Thanks Sean Sounds for the great feedback. I have made the changed to the instructions in the download.
If anyone has a clean install, please let me know if the line numbers should be changed.
Lon<
If anyone has a clean install, please let me know if the line numbers should be changed.
Lon<
Posted
Great mod. Just here to point out its further potential though incase anyone else has similar things running in their sites/forums.
When im finished the rest of my site [lot to go lol] members can have their own pages with a lot of their own stuff on and info on all content etc contributed in site. articles, blogs, social networking stuff, etc. Too much to list but a community area really...come their own home page in site.
This mod will work great for linking people straight to their insite space just by changing the urls and icon etc. These links were not going to be half as prominant as they will be using this mod.[^]
<
When im finished the rest of my site [lot to go lol] members can have their own pages with a lot of their own stuff on and info on all content etc contributed in site. articles, blogs, social networking stuff, etc. Too much to list but a community area really...come their own home page in site.
This mod will work great for linking people straight to their insite space just by changing the urls and icon etc. These links were not going to be half as prominant as they will be using this mod.[^]
<