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

Session("name")
Session("office")
Session("email")
Session("callalert")
Session("phone")
em = Session("email")
u = Session("user")
p = Session("pass")
gt = int(Session("gotoit"))
action = Request.Querystring("action")

	source = "D:\\Inetpub\WWWroot\jacobsandassocs.com\data\personel.xml"


If gt = 0 then 
	 Response.ReDirect "login.htm"
Else
	If Session("pageTitle") = "" Then
	 Area = Area & "<div class='menutitlea'><strong>Profile Manager Tools Center</strong></div>" & b
	Else
	 Area = Area & "<div class='menutitlea'><strong>" & Session("pageTitle") & "</strong></div>" & b
	End If
  	Area = Area & "<table width='99%' height='225px' border='0' cellspacing='0' cellpadding='5'><tr><td valign='top'>"
  	Area = Area & "<p>Change Your User Settings, update your contact information, including your call alert address!"
	Area = Area & " You can also update your photo and agent profile text. You may begin to update your profile.</p>"

	Select Case action
	Case "admin", "contact"
	set xml = Server.CreateObject("Microsoft.XMLDOM")
	xml.ValidateOnParse=True
	xml.load(source)
	set root = xml.documentElement
	For e = 0 To root.childNodes.length - 1	
	 agentName = root.childNodes.item(e).getAttribute("un")
	 agentID = root.childNodes.item(e).getAttribute("pz")	
	 agentOffice = root.childNodes.item(e).getAttribute("office")
	 agentFull = root.childNodes.item(e).getAttribute("name")
	 agentEmail = root.childNodes.item(e).getAttribute("email")
	 agentCallAlert = root.childNodes.item(e).getAttribute("callalert")
	 agentPhone = root.childNodes.item(e).getAttribute("phone")
	 If u = agentName AND p = agentID Then
	  If action = "admin" Then
		Line = Line & "<form method='post' action='profile_admin.asp?action=passChange' style='margin:0px;padding:0px;'>" & b
		Line = Line & "<div class='title'>Update Your Username and Password</div><div class='add'>"
		Line = Line & "   <table width='99%' border='0' cellpadding='5'>" & b
		Line = Line & "   <tr><td width='35%'><strong>1) User Name:</strong></td>"
		Line = Line & "<td width='65%'><input type='text' name='un' style='width:100%;' value='" & agentName & "'></td></tr>" & b
		Line = Line & "   <tr><td colspan='2'><hr size='1'></td></tr>" & b
		Line = Line & "   <tr><td colspan='2'>Please be sure that when updating your password in the first field that you also update in the field labeld " & q
		Line = Line & "Re-Type Password:" & q & "</td></tr>" & b
		Line = Line & "   <tr><td colspan='2'><hr size='1'></td></tr>" & b
		Line = Line & "   <tr><td valign='top'><strong>2) Password:</strong></td>"
		Line = Line & "<td><input type='text' name='pz' style='width:100%' value='" & agentID & "'></td></tr>" & b
		Line = Line & "   <tr><td valign='top'><strong>3) Re-Type Password:</strong></td>"
		Line = Line & "<td><input type='text' name='pz2' style='width:100%' value='" & agentID & "'></td></tr>" & b
		Line = Line & "   <tr><td> </td><td><input type='hidden' name='origun' value='" & agentName & "'>"
		Line = Line & "<input type='hidden' name='origpz' value='" & agentID & "'><input type='submit' value='update my user settings' class='submit'></td></tr>" & b
		Line = Line & "</table>"
		Line = Line & "</div></form>" & b
	  Else
		Line = Line & "<form method='post' action='profile_admin.asp?action=contactChange' style='margin:0px;padding:0px;'>" & b
		Line = Line & "<div class='title'>Update Your Contact Information</div><div class='add'>"
		Line = Line & "   <table width='99%' border='0' cellpadding='5'>" & b
		Line = Line & "   <tr><td width='35%'><strong>1) Your Name:</strong></td>"
		Line = Line & "<td width='65%'><input type='text' name='name' style='width:100%;' value='" & agentFull & "'></td></tr>" & b
		Line = Line & "   <tr><td><strong>2) Phone:</strong></td>"
		Line = Line & "<td><input type='text' name='phone' style='width:100%' value='" & agentPhone & "'></td></tr>" & b
		Line = Line & "   <tr><td><strong>3) Email:</strong></td>"
		Line = Line & "<td><input type='text' name='email' style='width:100%' value='" & agentEmail & "'></td></tr>" & b
		Line = Line & "   <tr><td><strong>4) Call Alert:</strong></td>"
		Line = Line & "<td><input type='text' name='callalert' style='width:100%' value='" & agentCallAlert & "'></td></tr>" & b
		Line = Line & "   <tr><td> </td><td><input type='hidden' name='office' value='Jacobs &amp; Associates, Inc.'><input type='submit' value='update my contact information' class='submit'></td></tr>" & b
		Line = Line & "</table>"
		Line = Line & "</div></form>" & b
	  End If
	 End If
	Next
	set root = nothing
	set xml = nothing


	Case "passChange"
	uOrig = request.form("origun")
	pOrig = request.form("origpz")
	pz = request.form("pz")
	pz2 = request.form("pz2")
	un = request.form("un")
	if not(pz = pz2) then
	    Session("pageTitle") = "Please Be Sure To Update Both Password Fields!"
	   Response.Redirect "profile_admin.asp?action=admin"
	end if
	set xml = Server.CreateObject("Microsoft.XMLDOM")
	xml.ValidateOnParse=True
	xml.load(source)
	set root = xml.documentElement
	For e = 0 To root.childNodes.length - 1	
	 agentName = root.childNodes.item(e).getAttribute("un")
	 agentID = root.childNodes.item(e).getAttribute("pz")	
	 agentOffice = root.childNodes.item(e).getAttribute("office")
	 agentFull = root.childNodes.item(e).getAttribute("name")
	 agentEmail = root.childNodes.item(e).getAttribute("email")
	 agentCallAlert = root.childNodes.item(e).getAttribute("callalert")
	 agentPhone = root.childNodes.item(e).getAttribute("phone")
	 If (uOrig = agentName AND pOrig = agentID) Then
	   root.childNodes.item(e).setAttribute "un", request.form("un")
	   root.childNodes.item(e).setAttribute "pz", request.form("pz")
	   root.childNodes.item(e).setAttribute "office", agentOffice
	   root.childNodes.item(e).setAttribute "name", agentFull
	   root.childNodes.item(e).setAttribute "email", agentEmail
	   root.childNodes.item(e).setAttribute "callalert", agentCallAlert
	   root.childNodes.item(e).setAttribute "phone", agentPhone
	   transaction = 1
	 End If
	   If transaction = 1 Then
	    xml.Save(source)
	    Session("pageTitle") = "Your Profile Username and Password Have Been Updated"
	    Session("user") = request.form("un")
	    Session("pass") = request.form("pz")
	   Else
	    Session("pageTitle") = "There appears to be an error, please try again"
	   End If
	 Next
	 set root = nothing
	 set xml = nothing
	 Response.Redirect "profile_admin.asp?action=admin"


	Case "contactChange"
	uName = request.form("name")
	uOffice = request.form("office")
	uPhone = request.form("phone")
	uEmail = request.form("email")
	uCallalert = request.form("callalert")

	set xml = Server.CreateObject("Microsoft.XMLDOM")
	xml.ValidateOnParse=True
	xml.load(source)
	set root = xml.documentElement
	For e = 0 To root.childNodes.length - 1	
	 agentName = root.childNodes.item(e).getAttribute("un")
	 agentID = root.childNodes.item(e).getAttribute("pz")	
	 agentOffice = root.childNodes.item(e).getAttribute("office")
	 agentFull = root.childNodes.item(e).getAttribute("name")
	 agentEmail = root.childNodes.item(e).getAttribute("email")
	 agentCallAlert = root.childNodes.item(e).getAttribute("callalert")
	 agentPhone = root.childNodes.item(e).getAttribute("phone")

	 If (u = agentName AND p = agentID) Then
	   root.childNodes.item(e).setAttribute "un", agentName
	   root.childNodes.item(e).setAttribute "pz", agentID
	   root.childNodes.item(e).setAttribute "office", uOffice
	   root.childNodes.item(e).setAttribute "name", uName
	   root.childNodes.item(e).setAttribute "email", uEmail
	   root.childNodes.item(e).setAttribute "callalert", uCallalert
	   root.childNodes.item(e).setAttribute "phone", uPhone
	   transaction = 1
	 End If
	   If transaction = 1 Then
	    xml.Save(source)
	    Session("pageTitle") = "Your Profile Contact Information Has Been Updated"
	   Else
	    Session("pageTitle") = "There appears to be an error, please try again"
	   End If
	 Next
	 set root = nothing
	 set xml = nothing
	 Response.Redirect "profile_admin.asp?action=contact"

	End Select

End If
Area = Area & Line
Area = Area & "</td></tr></table>"
Response.Write(ServiceitSml("profile"))
Session("pageTitle") = ""

%>