<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim agents__MMColParam agents__MMColParam = "1" If (Request.QueryString("AgentID") <> "") Then agents__MMColParam = Request.QueryString("AgentID") End If %> <% set agents = Server.CreateObject("ADODB.Recordset") agents.ActiveConnection = MM_conRemax_STRING agents.Source = "SELECT * FROM agents WHERE AgentID = " + Replace(agents__MMColParam, "'", "''") + "" agents.CursorType = 0 agents.CursorLocation = 2 agents.LockType = 3 agents.Open() agents_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Remax - Admin Tool
Agent Information - Display An Agent
First Name
<%=(agents.Fields.Item("AgentName").Value)%>
Awards
Last Name <%=(agents.Fields.Item("AgentSurname").Value)%>
Miracle:
<%=(agents.Fields.Item("AwardMiracle").Value)%>
Designation <%=(agents.Fields.Item("Designation").Value)%>
President:
<%=(agents.Fields.Item("AwardPresident").Value)%>
Agent Since <%=(agents.Fields.Item("AgentYear").Value)%>
Executive:
<%=(agents.Fields.Item("AwardExecutive").Value)%>
Bus Number <%=(agents.Fields.Item("BusNumber").Value)%>
100%:
<%=(agents.Fields.Item("Award100").Value)%>
Fax Number <%=(agents.Fields.Item("FaxNumber").Value)%>
Hall of Fame:
<%=(agents.Fields.Item("AwardFame").Value)%>
E-mail <%=(agents.Fields.Item("EmailAddress").Value)%>
Platinum:
<%=(agents.Fields.Item("AwardPlatinum").Value)%>
Website URL <%=(agents.Fields.Item("WebsiteURL").Value)%>
Lifetime:
<%=(agents.Fields.Item("AwardUltimate").Value)%>
Website URL2 <%=(agents.Fields.Item("WebsiteURL2").Value)%>  
Agent Image <%=(agents.Fields.Item("AgentImage").Value)%>
Districts <%=(agents.Fields.Item("Districts").Value)%>
Specializations <%=(agents.Fields.Item("Specializations").Value)%>
OtherInterest <%=(agents.Fields.Item("OtherInterest").Value)%>
GeneralInfo <%=(agents.Fields.Item("GeneralInfo").Value)%>
Intranet Username <%=(agents.Fields.Item("IntraUsername").Value)%>
Intranet Password <%=(agents.Fields.Item("IntraPassword").Value)%>

 

 

<% agents.Close() %>