'Name Date Change
'===== ==== ===========================================================
'GSD 2/3/04 SCCS #36296 - Initial version
'ECK 4/13/04 SCCS #41395 - Allow Vignette V6 content to be served when using 2000 test VIPS
'NA 5/24/04 sccs #41870 - adding keywords to META content
'gwb 7/12/04 sccs #42446 - update navigation
'al 12/10/2004 Lights On - add FinPro section
'JIM 12/14/04 SCCS #44481 - replace Prepare with Learn
'DHK 04/28/2005 SCCS #46121 - text changes.
'JCH 10/02/2006 SCCS #51127 - Switch the order of the right hand content.
'GSD 5/22/06 V7 static file changes
'GOM 11/06/2006 SCCs #51500 - Change link for 'For Financial Professionals' link
'JimF 10/13/2009 NO SCCS# - Change links from Journey/login.asp to login.aspx to accomodate Sccs62245 internal search server upgrade
On Error Resume Next
dim CommentaryLink, PerformLink, FinProBar, SpotlightBar, AwardContent, surl
surl = "/retire/public/commentarylink.html"
CommentaryLink = GetHTML(surl)
surl = "/retire/public/performLink.html"
PerformLink = GetHTML(surl)
surl = "/retire/public/financialpro.html"
FinProBar = GetHTML(surl)
surl = "/retire/public/spotlight.html"
SpotlightBar = GetHTML(surl)
surl = "/retire/public/awards.html"
AwardContent = GetHTML(surl)
on error Resume Next
Dim objHTTP, HTMLResponseString, ssurl
'urlencoding does not work with this connect object, so do some custom encoding
ssurl = replace(url," ","+")
ssurl = replace(ssurl,"'","@27;") 'single quote needs to be specially handled
ssurl = "http://" & request("SERVER_NAME") & ssurl
set objHTTP = RSCreateObject("MSXML2.ServerXMLHTTP",false)
objHTTP.Open "GET", ssurl, false
HTMLResponseString = objHTTP.responseText
if err.number = 0 and instr(HTMLResponseString, "mmrscontent") then
'we are good to go
HTMLResponseString = ""
Set objHTTP = Nothing
GetHTML = HTMLResponseString
It All Comes Together in a Total Retirement Experience
MassMutual has been an innovator in meeting the changing needs of plan sponsors and participants for more than half a century. We offer the successful fusion of technology, products, investments, and highly personalized service