<%
'If this is the agent home page get the agent info
if agentNum = "" then
agentNum = request.querystring("agentNum")
end if
if agentNum <> "" then
'Use a session variable to indicate whether the user entered from the agent home page
'or the normal home page when the user goes to other pages
Session("agentNum") = agentNum
Session.TimeOut = 60
set cmcdb = CreateObject("Commence.DB")
set curPerson = cmcdb.GetCursor(0, "Person", 0)
curPerson.SetFilter "[ViewFilter(1,F,,MLSPersonNum,equal to," & agentNum & ",)]",0
curPerson.SetColumn 0,"WorkPhone",0
curPerson.SetColumn 1,"WorkFax",0
curPerson.SetColumn 2,"DirectPhone",0
curPerson.SetColumn 3,"Email",0
curPerson.SetColumn 4,"FirstName",0
curPerson.SetColumn 5,"LastName",0
set qrsPerson = curPerson.GetQueryRowSet(1,0)
if qrsPerson.RowCount() > 0 then
companyPhone = qrsPerson.GetRowValue(0,0,0)
companyFax = qrsPerson.GetRowValue(0,1,0)
directPhone = qrsPerson.GetRowValue(0,2,0)
email = qrsPerson.GetRowValue(0,3,0)
agentFirst = qrsPerson.GetRowValue(0,4,0)
agentLast = qrsPerson.GetRowValue(0,5,0)
end if
%>
GATEWAY-GMAC Real Estate
