<% Option Explicit %> <% ' ' NOTE: The
in this page is designed to post back to itself. ' Dim ErrStr, UserId, Password, xmlResp, xmlNode ' ' Scrub posted form parms... ' ErrStr = "" UserId = Trim(Replace(Request.Form("UserId"), """", "")) Password = Trim(Replace(Request.Form("Password"), """", "")) ' ' If we have all required form parms, then process request... ' if (UserId <> "") and (Password <> "") then ' ' Load xmlResp of the following schema with response from gee.ValidateUserLoginAreas: ' ' ' - Contains "0" if no error, error code otherwise ' - Blank if no error, otherwise contains error message ' - User Id of authenticated user ' - User name of authenticated user ' - Company name of authenticated user ' - Email address of authenticated user ' ' - Web Area Number setup in "Content Manager -> Define Protected Areas" ' - Web Area Number setup in "Content Manager -> Define Protected Areas" ' - Contains optional URL of page to redirect in script after login ' - Contains -1 if error or user not validated, ' Contains 0 if user setup for "No Access", ' Contains 1 if user setup for "Full Access", ' Contains 2 if user setup for "Limited Access" ' - Contains descriptive text for AccessLevel ' ' ' ' ' If user is validated, the following session variables are set: ' ' Session("Validated_UserId") - user id (login) ' Session("Validated_UserName") - full user name ' Session("Validated_UserCompany") - user company name ' Session("Validated_UserEmail") - user email address ' Session("Validated_WebArea1_AccessLevel") - access level of this user for Web Area #1 ' Session("Validated_WebArea1_StartPage") - URL set by developer as start page for this web area ' Session("Validated_WebArea2_AccessLevel") - access level of this user for Web Area #2 ' Session("Validated_WebArea2_StartPage") - URL set by developer as start page for this web area ' Session("Validated_UserId") = "" Session("Validated_UserName") = "" Session("Validated_UserCompany") = "" Session("Validated_UserEmail") = "" Session("Validated_WebArea1_AccessLevel") = 0 Session("Validated_WebArea1_StartPage") = "" Session("Validated_WebArea2_AccessLevel") = 0 Session("Validated_WebArea2_StartPage") = "" Session("Validated_WebArea3_AccessLevel") = 0 Session("Validated_WebArea3_StartPage") = "" Session("Validated_WebArea4_AccessLevel") = 0 Session("Validated_WebArea4_StartPage") = "" Session("Validated_WebArea5_AccessLevel") = 0 Session("Validated_WebArea5_StartPage") = "" Session("Validated_WebArea6_AccessLevel") = 0 Session("Validated_WebArea6_StartPage") = "" Session("Validated_WebArea7_AccessLevel") = 0 Session("Validated_WebArea7_StartPage") = "" Session("Validated_WebArea8_AccessLevel") = 0 Session("Validated_WebArea8_StartPage") = "" Session("Validated_WebArea9_AccessLevel") = 0 Session("Validated_WebArea9_StartPage") = "" Session("Validated_WebArea10_AccessLevel") = 0 Session("Validated_WebArea10_StartPage") = "" Session("Validated_WebArea11_AccessLevel") = 0 Session("Validated_WebArea11_StartPage") = "" Session("Validated_WebArea12_AccessLevel") = 0 Session("Validated_WebArea12_StartPage") = "" Session("Validated_WebArea13_AccessLevel") = 0 Session("Validated_WebArea13_StartPage") = "" Session("Validated_WebArea14_AccessLevel") = 0 Session("Validated_WebArea14_StartPage") = "" Session("Validated_WebArea15_AccessLevel") = 0 Session("Validated_WebArea15_StartPage") = "" Session("Validated_WebArea16_AccessLevel") = 0 Session("Validated_WebArea16_StartPage") = "" Session("Validated_WebArea17_AccessLevel") = 0 Session("Validated_WebArea17_StartPage") = "" Session("Validated_WebArea18_AccessLevel") = 0 Session("Validated_WebArea18_StartPage") = "" Session("Validated_WebArea19_AccessLevel") = 0 Session("Validated_WebArea19_StartPage") = "" Session("Validated_WebArea20_AccessLevel") = 0 Session("Validated_WebArea20_StartPage") = "" Session("Validated_WebArea21_AccessLevel") = 0 Session("Validated_WebArea22_StartPage") = "" Session("Validated_WebArea23_AccessLevel") = 0 Session("Validated_WebArea23_StartPage") = "" Session("Validated_WebArea24_AccessLevel") = 0 Session("Validated_WebArea24_StartPage") = "" Session("Validated_WebArea25_AccessLevel") = 0 Session("Validated_WebArea25_StartPage") = "" Set xmlResp = Server.CreateObject("Microsoft.XMLDOM") 'xmlResp.LoadXml(gee.ValidateUserLogin(AccountID, WebAreaNum, UserId, Password)) xmlResp.LoadXml(gee.ValidateUserLoginAreas(527437, UserId, Password)) ' ' Check for error returned in XML data... ' Set xmlNode = xmlResp.SelectSingleNode("*/Err") if (xmlNode is Nothing) then ErrStr = "Error processing XML response (Err)" elseif (xmlNode.text <> 0) then Set xmlNode = xmlResp.SelectSingleNode("*/ErrDescription") ErrStr = xmlNode.text end if if (ErrStr = "") then Set xmlNode = xmlResp.SelectSingleNode("*/UserId") if not (xmlNode is Nothing) then Session("Validated_UserId") = xmlNode.text Set xmlNode = xmlResp.SelectSingleNode("*/UserName") if not (xmlNode is Nothing) then Session("Validated_UserName") = xmlNode.text Set xmlNode = xmlResp.SelectSingleNode("*/UserCompany") if not (xmlNode is Nothing) then Session("Validated_UserCompany") = xmlNode.text Set xmlNode = xmlResp.SelectSingleNode("*/UserEmail") if not (xmlNode is Nothing) then Session("Validated_UserEmail") = xmlNode.text Dim xmlNodes, xmlWebArea, WebAreaNum, WebAreaDescription, WebAreaStartPage, AccessLevel, AccessLevelDescription Set xmlNodes = xmlResp.SelectNodes("*/WebArea") for each xmlWebArea in xmlNodes Set xmlNode = xmlWebArea.SelectSingleNode("WebAreaNum") if not (xmlNode is Nothing) then WebAreaNum = xmlNode.text Set xmlNode = xmlWebArea.SelectSingleNode("WebAreaDescription") if not (xmlNode is Nothing) then WebAreaDescription = xmlNode.text Set xmlNode = xmlWebArea.SelectSingleNode("WebAreaStartPage") if not (xmlNode is Nothing) then WebAreaStartPage = xmlNode.text Set xmlNode = xmlWebArea.SelectSingleNode("AccessLevel") if not (xmlNode is Nothing) then AccessLevel = xmlNode.text Set xmlNode = xmlWebArea.SelectSingleNode("AccessLevelDescription") if not (xmlNode is Nothing) then AccessLevelDescription = xmlNode.text select case WebAreaNum case "1" Session("Validated_WebArea1_AccessLevel") = AccessLevel Session("Validated_WebArea1_StartPage") = WebAreaStartPage case "2" Session("Validated_WebArea2_AccessLevel") = AccessLevel Session("Validated_WebArea2_StartPage") = WebAreaStartPage case "3" Session("Validated_WebArea3_AccessLevel") = AccessLevel Session("Validated_WebArea3_StartPage") = WebAreaStartPage case "4" Session("Validated_WebArea4_AccessLevel") = AccessLevel Session("Validated_WebArea4_StartPage") = WebAreaStartPage case "5" Session("Validated_WebArea5_AccessLevel") = AccessLevel Session("Validated_WebArea5_StartPage") = WebAreaStartPage case "6" Session("Validated_WebArea6_AccessLevel") = AccessLevel Session("Validated_WebArea6_StartPage") = WebAreaStartPage case "7" Session("Validated_WebArea7_AccessLevel") = AccessLevel Session("Validated_WebArea7_StartPage") = WebAreaStartPage case "8" Session("Validated_WebArea8_AccessLevel") = AccessLevel Session("Validated_WebArea8_StartPage") = WebAreaStartPage case "9" Session("Validated_WebArea9_AccessLevel") = AccessLevel Session("Validated_WebArea9_StartPage") = WebAreaStartPage case "10" Session("Validated_WebArea10_AccessLevel") = AccessLevel Session("Validated_WebArea10_StartPage") = WebAreaStartPage case "11" Session("Validated_WebArea11_AccessLevel") = AccessLevel Session("Validated_WebArea11_StartPage") = WebAreaStartPage case "12" Session("Validated_WebArea12_AccessLevel") = AccessLevel Session("Validated_WebArea12_StartPage") = WebAreaStartPage case "13" Session("Validated_WebArea13_AccessLevel") = AccessLevel Session("Validated_WebArea13_StartPage") = WebAreaStartPage case "14" Session("Validated_WebArea14_AccessLevel") = AccessLevel Session("Validated_WebArea14_StartPage") = WebAreaStartPage case "15" Session("Validated_WebArea15_AccessLevel") = AccessLevel Session("Validated_WebArea15_StartPage") = WebAreaStartPage case "16" Session("Validated_WebArea16_AccessLevel") = AccessLevel Session("Validated_WebArea16_StartPage") = WebAreaStartPage case "17" Session("Validated_WebArea17_AccessLevel") = AccessLevel Session("Validated_WebArea17_StartPage") = WebAreaStartPage case "18" Session("Validated_WebArea18_AccessLevel") = AccessLevel Session("Validated_WebArea18_StartPage") = WebAreaStartPage case "19" Session("Validated_WebArea19_AccessLevel") = AccessLevel Session("Validated_WebArea19_StartPage") = WebAreaStartPage case "20" Session("Validated_WebArea20_AccessLevel") = AccessLevel Session("Validated_WebArea20_StartPage") = WebAreaStartPage case "21" Session("Validated_WebArea21_AccessLevel") = AccessLevel Session("Validated_WebArea21_StartPage") = WebAreaStartPage case "22" Session("Validated_WebArea22_AccessLevel") = AccessLevel Session("Validated_WebArea22_StartPage") = WebAreaStartPage case "23" Session("Validated_WebArea23_AccessLevel") = AccessLevel Session("Validated_WebArea23_StartPage") = WebAreaStartPage case "24" Session("Validated_WebArea24_AccessLevel") = AccessLevel Session("Validated_WebArea24_StartPage") = WebAreaStartPage case "25" Session("Validated_WebArea25_AccessLevel") = AccessLevel Session("Validated_WebArea25_StartPage") = WebAreaStartPage end select next If (Session("Validated_WebArea1_AccessLevel") > 0) Then Response.Redirect(Session("Validated_WebArea1_StartPage")) ElseIf WebAreaNum > 0 Then Response.Redirect(WebAreaStartPage) Else Response.Redirect("http://www.johnstonandmatthews.com") End If ' ' Finally, redirect to first page of protected content ' 'Response.Redirect("GeeUserManagerProtectedPage1.asp") end if end if %> Welcome to AMCORPinc.com - employee benefits & technology consultants

 

AMCORP Home The AMCORP AdvantageSM Insurance Benefits Technology Contact Us  

Contact Us
210.490.7700
Log In
Username:
  
Password:
 <% if ErrStr <> "" then Response.Write("

" & ErrStr & "") end if %>

AMCORP | WELCOME

<% gee.ShowPageSection 527437, 101, "" %>

Demo Test

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut id diam. Sed purus risus, dapibus et, ullamcorper eu, mattis quis, velit. Nunc varius tortor non justo. Donec ante justo, dictum.

Get Your Individual Quote Today!
We just made your world a whole lot easier. Get your individual quotes online 24/7. Online enrollment makes acquiring your benefits even more rewarding.
 
       
© 2007 AMCORP, Inc. All rights reserved.
Privacy Statement | Terms of Use Statement | HIPAA Statement