<% '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 Option Explicit 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) Function GetHTML(url) 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.settimeouts 20000,20000,20000,20000 objHTTP.Open "GET", ssurl, false objHTTP.Send HTMLResponseString = objHTTP.responseText if err.number = 0 and instr(HTMLResponseString, "mmrscontent") then 'we are good to go else err.clear HTMLResponseString = "" end if Set objHTTP = Nothing GetHTML = HTMLResponseString End Function %> MassMutual Retirement Services
home  |  about  |  careers  |  contact  |  site map  | 
MassMutual
retirement services
MassMutual Retirement Services
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
plan sponsor
access
/trc/login.asp">Total Retirement Center
Plan information and services for plan sponsors
/trc/login.asp">Login
spacer spacer spacer
individual account
access
/journey/login.aspx">The Journey
Retirement planning and management for individuals
/journey/login.aspx">Login
spacer spacer spacer
for financial
professionals
Product and service information for financial professionals
More
<%= AwardContent %>
<%= PerformLink %> <%= FinProBar %> <%= CommentaryLink %> <%= SpotlightBar %>
quick links
contact us
directions
retire
retirement services
annuities
income management
contribution protection
required plug-ins
Adobe Acrobat Reader Adobe Acrobat Reader
Windows Media Player Windows Media Player
Real Player Real Player
Flash Player Flash Player
RS01953-02
privacy / legal notice