<!--#include file="scripts/admin_funct.inc"-->
<%

u = Session("user")
p = Session("pass")

action = Request.Querystring("action")

	set xmlDEF = Server.CreateObject("Microsoft.XMLDOM")
	xmlDEF.ValidateOnParse=True
	sourceDEF = "D:\\Inetpub\WWWroot\jacobsandassocs.com\data\personel.xml"

	xmlDEF.load(sourceDEF)
	set rootDEF = xmlDEF.documentElement
	For e = 0 To rootDEF.childNodes.length - 1	
	 agentName = rootDEF.childNodes.item(e).getAttribute("un")
	 agentID = rootDEF.childNodes.item(e).getAttribute("pz")
	 agentFull = rootDEF.childNodes.item(e).getAttribute("name")
	 agentOffice = rootDEF.childNodes.item(e).getAttribute("office")
	 agentEmail = rootDEF.childNodes.item(e).getAttribute("email")
	 agentCallAlert = rootDEF.childNodes.item(e).getAttribute("callalert")
	 agentPhone = rootDEF.childNodes.item(e).getAttribute("phone")


	 If u = agentName AND p = agentID Then
	  gotoit = 1
	  Session("user") = agentName
	  Session("pass") = agentID
	  Session("name") = agentFull
	  Session("office") = agentOffice
	  Session("email") = agentEmail
	  Session("callalert") = agentCallAlert
	  Session("phone") = agentPhone
	 Else
	   gotoit = int(gotoit) + 0
	 End If
	Next
	set xmlDEF = nothing


If int(gotoit) = 0 then 
	 Response.ReDirect "login.htm"
Else
 Session("gotoit") = int(gotoit)
 Select Case action
 Case "webtools"
  Area = Area & "<div class='menutitlea'><strong>Web Tools: Webware For Beginners</strong></div>" & b
  Area = Area & "<table width='99%' height='225px' border='0' cellspacing='0' cellpadding='5'><tr><td valign='top'>"
  Area = Area & "Welcome to the Web Tools Administrative Center. This is your access point for utilizing all web tools integrated into the Administrative Center."
  Area = Area & " Listed below are the web tools you may use.<br><br><hr size='1'>"
  Area = Area & "<a href='Ticker.asp' class='button'>Manage Jacobs &amp; Associates, Inc Web Ticker</a>"
  Area = Area & "</td></tr></table>"
  Response.Write(Serviceit(action))
 Case "message"
  Area = Area & "<div class='menutitlea'><strong>Message Center: Look Who's Talking</strong></div>" & b
  Area = Area & "<table width='99%' height='225px' border='0' cellspacing='0' cellpadding='5'><tr><td valign='top'>"
  Area = Area & "Welcome to the Message Center. This is your access point for utilizing email tools provided for you by your employer."
  Area = Area & " Listed below are the available features for your use.<br><br><br><hr size='1'>"
  Area = Area & "<a href='message_admin.asp?action=manage' class='button'>Manage Jacobs & Associates, Inc Email Listings</a>"
  Area = Area & "<a href='message_admin.asp?action=add' class='button'>Add Jacobs & Associates, Inc Email Listing</a>"
  Area = Area & "<a href='message_admin.asp?action=emailALL' class='button'>Send Mass Email To Everyone On Email List</a>"
  Area = Area & "</td></tr></table>"
  Response.Write(Serviceit(action))
 Case "profile"
  Area = Area & "<div class='menutitlea'><strong>Profile Manager: Who You Are In The Virtual Scheme Of Things</strong></div>" & b
  Area = Area & "<table width='99%' height='225px' border='0' cellspacing='0' cellpadding='5'><tr><td valign='top'>"
	  Area = Area & "Welcome to Profile Manager. This is your portal for updating your personal settings."
	  Area = Area & " Listed below are the tools you can use.<br><br><hr size='1'>"
	  Area = Area & "<a href='profile_admin.asp?action=admin' class='button'>Change Your Administrative Settings</a>"
	  Area = Area & "<a href='profile_admin.asp?action=contact' class='button'>Change Your Contact Information</a>"
  Area = Area & "</td></tr></table>"
  Response.Write(Serviceit(action))
 Case ""
  Response.Write(Doit())
 End Select
End If

%>