<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="index.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 rs_documents Dim rs_documents_numRows Set rs_documents = Server.CreateObject("ADODB.Recordset") rs_documents.ActiveConnection = MM_conRemax_STRING rs_documents.Source = "SELECT * FROM intra_documents ORDER BY DocumentDateSort DESC" rs_documents.CursorType = 0 rs_documents.CursorLocation = 2 rs_documents.LockType = 1 rs_documents.Open() rs_documents_numRows = 0 %> <% Dim rs_vacation__MMColParam rs_vacation__MMColParam = "Vacation" If (Request("MM_EmptyValue") <> "") Then rs_vacation__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_vacation Dim rs_vacation_numRows Set rs_vacation = Server.CreateObject("ADODB.Recordset") rs_vacation.ActiveConnection = MM_conRemax_STRING rs_vacation.Source = "SELECT * FROM intra_calendar WHERE CalendarType = '" + Replace(rs_vacation__MMColParam, "'", "''") + "' ORDER BY CalendarEventDate ASC" rs_vacation.CursorType = 0 rs_vacation.CursorLocation = 2 rs_vacation.LockType = 1 rs_vacation.Open() rs_vacation_numRows = 0 %> <% Dim rs_upcoming__MMColParam rs_upcoming__MMColParam = "Upcoming Events & Reminders" If (Request("MM_EmptyValue") <> "") Then rs_upcoming__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_upcoming Dim rs_upcoming_numRows Set rs_upcoming = Server.CreateObject("ADODB.Recordset") rs_upcoming.ActiveConnection = MM_conRemax_STRING rs_upcoming.Source = "SELECT * FROM intra_calendar WHERE CalendarType = '" + Replace(rs_upcoming__MMColParam, "'", "''") + "' ORDER BY CalendarEventDate ASC" rs_upcoming.CursorType = 0 rs_upcoming.CursorLocation = 2 rs_upcoming.LockType = 1 rs_upcoming.Open() rs_upcoming_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 rs_documents_numRows = rs_documents_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_upcoming_numRows = rs_upcoming_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_vacation_numRows = rs_vacation_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 a-b realty ltd. Intranet

Welcome to the Remax a-b realty ltd. Intranet

<% While ((Repeat1__numRows <> 0) AND (NOT rs_vacation.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_vacation.MoveNext() Wend %>
Vacation Summary
Date
Agent
Details
<%= DoDateTime((rs_vacation.Fields.Item("CalendarEventDate").Value), 1, -1) %> <%=(rs_vacation.Fields.Item("CalendarAgent").Value)%>
<%=(rs_vacation.Fields.Item("CalendarEvent").Value)%>

<% While ((Repeat2__numRows <> 0) AND (NOT rs_upcoming.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_upcoming.MoveNext() Wend %>
Upcoming Events & Reminders
Date
Event or Reminder
<%= DoDateTime((rs_upcoming.Fields.Item("CalendarEventDate").Value), 1, -1) %>
<%=(rs_upcoming.Fields.Item("CalendarEvent").Value)%>

<% While ((Repeat3__numRows <> 0) AND (NOT rs_documents.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs_documents.MoveNext() Wend %>
Documentation Summary (last 5 entered or updated documents)
Date
Type
Descripton
<%= DoDateTime((rs_documents.Fields.Item("DocumentDateSort").Value), 1, -1) %> <%=(rs_documents.Fields.Item("DocumentType").Value)%> <%=(rs_documents.Fields.Item("DocumentDescription").Value)%>

 

Site Design By

<% rs_documents.Close() Set rs_documents = Nothing %> <% rs_vacation.Close() Set rs_vacation = Nothing %> <% rs_upcoming.Close() Set rs_upcoming = Nothing %>