HTTP Error 401

401.2 Unauthorized: Logon Failed due to server configuration

This error indicates that the credentials passed to the server do not match the credentials required to log on to the server. This is usually caused by not sending the proper WWW-Authenticate header field.

Please contact the Web server's administrator to verify that you have permission to access to requested resource.

" Response.Write strTemp end function sub initdb() connection = "CenBen" dataconn.Open Application(connection & "_ConnectionString"),Application(connection & "_RuntimeUserName"),Application(connection & "_RuntimePassword") end sub function formatdate4( d ) dim mon, dy if not isdate( d ) then exit function mon=datepart( "m", d ) if len(mon)<2 then mon = "0" & mon dy = datepart( "d", d ) if len(dy)<2 then dy = "0" & dy formatdate4 = mon & "/" & dy & "/" & datepart( "yyyy", d ) end function function propercap ( object ) if object = "" then exit function Response.Write mid(ucase(object),1,1) & mid(object,2) end function function ifblank( str ) if str = "" then ifblank = 0 else ifblank = 1 end function function ValidEmail( strEmailAddress ) Dim a, d, l, c l = Len(strEmailAddress) ValidEmail = False a = InStr(strEmailAddress, "@") If a < 2 Or a = l Then Exit Function If InStr(a + 1, strEmailAddress, "@") > 0 Then Exit Function If InStr(a + 1, strEmailAddress, "..") > 0 Then Exit Function d = InStr(a, strEmailAddress, ".") If d = 0 Or d = l Or d = (a + 1) Then Exit Function For d = 1 To a - 1 c = Asc(Mid(strEmailAddress, d, 1)) If Not ((c >= 65 And c <= 90) Or (c >= 97 And c <= 122) Or (c >= 48 And c <= 57) Or c = 45 Or c = 46 Or c = 33 Or c = 37 Or c = 38 Or c = 39 Or c = 95) Then Exit Function Next For d = a + 1 To l c = Asc(Mid(strEmailAddress, d, 1)) If Not ((c >= 65 And c <= 90) Or (c >= 97 And c <= 122) Or (c >= 48 And c <= 57) Or c = 45 Or c = 46) Then Exit Function Next ValidEmail = True end function function Check( chk ) if chk then Check = " checked " else Check = " " end function function Selected( chk ) if chk then Selected = " selected " else Selected = " " end function %><% '------------------------------------------ ' Ryan Sherrer | ryan@digiknow.com ' Portions Copyright 2000-2001 DigiKnow LLC ' Copyright 2001 '------------------------------------------ methpost = ( Request.ServerVariables( "REQUEST_METHOD" ) = "POST" ) set rs = server.CreateObject("ADODB.RecordSet") set dataconn = server.CreateObject("ADODB.Connection") call initdb rs.Open "select vchrHeadline, vchrPublication, vchrURL, vchrParagraph from tblNews order by vchrHeadline", dataconn, 1, 2 if not rs.EOF then aryNews = rs.GetRows rs.Close rs.Open "select vchrSiteName, vchrURL from tblWhatsNew order by vchrSiteName", dataconn, 1, 2 if not rs.EOF then arySites = rs.GetRows rs.Close set rs = nothing set dataconn = nothing %>

It doesn't matter if you're a member of the media or if you just want the latest news information, you've come to the right place. Click into our virtual newsroom for current Central Benefits news releases, the latest in industry news, media contacts and other essential resources. Press Releases In the News Industry News Media Contacts In The News Clicking on the headlines listed below will take you to the Internet site of a publication that has written an article about Central Benefits. <% if isarray(aryNews) then for i = 0 to ubound(aryNews,2) %> <%=aryNews(0,i)%> <%=aryNews(3,i)%> <%=aryNews(1,i)%> <% next end if %> Back to the top Industry News: Click these links to industry web sites. Get the most up-to-date information from insurance industry experts. <% if isarray(arySites) then for i = 0 to ubound(arySites,2) %> <% next else %> <% end if %> <%=arySites(0,i)%> <%=mid(arySites(1,i),8)%> There are no links. Back to the top

Home Employers | Participants | Agents | Providers | Products | Welcome Center | Newsroom | Careers | Health Tips & Links | Privacy Policy Copyright © 2005 Central Benefits Mutual Insurance Company Should you have questions or comments on the web site, contact the Webmaster or call us toll-free at 1-800-234-8234