<%@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
%>
<!--#include file="../Connections/conRemax.asp" -->
<%
Dim rs_calendar__MMColParam
rs_calendar__MMColParam = "%"
If (Request.QueryString("sortby") <> "") Then 
  rs_calendar__MMColParam = Request.QueryString("sortby")
End If
%>
<%
Dim rs_calendar__MMColParam2
rs_calendar__MMColParam2 = "%"
If (Request.QueryString("sortby2") <> "") Then 
  rs_calendar__MMColParam2 = Request.QueryString("sortby2")
End If
%>
<%
Dim rs_calendar
Dim rs_calendar_numRows

Set rs_calendar = Server.CreateObject("ADODB.Recordset")
rs_calendar.ActiveConnection = MM_conRemax_STRING
rs_calendar.Source = "SELECT *  FROM intra_calendar  WHERE CalendarAgent LIKE '" + Replace(rs_calendar__MMColParam, "'", "''") + "' AND CalendarType LIKE '" + Replace(rs_calendar__MMColParam2, "'", "''") + "'  ORDER BY CalendarEventDate ASC"
rs_calendar.CursorType = 0
rs_calendar.CursorLocation = 2
rs_calendar.LockType = 1
rs_calendar.Open()

rs_calendar_numRows = 0
%>
<%
Dim rs_agents
Dim rs_agents_numRows

Set rs_agents = Server.CreateObject("ADODB.Recordset")
rs_agents.ActiveConnection = MM_conRemax_STRING
rs_agents.Source = "SELECT DISTINCT CalendarAgent  FROM intra_calendar  ORDER BY CalendarAgent ASC"
rs_agents.CursorType = 0
rs_agents.CursorLocation = 2
rs_agents.LockType = 1
rs_agents.Open()

rs_agents_numRows = 0
%>
<%
Dim rs_type
Dim rs_type_numRows

Set rs_type = Server.CreateObject("ADODB.Recordset")
rs_type.ActiveConnection = MM_conRemax_STRING
rs_type.Source = "SELECT DISTINCT CalendarType  FROM intra_calendar  ORDER BY CalendarType ASC"
rs_type.CursorType = 0
rs_type.CursorLocation = 2
rs_type.LockType = 1
rs_type.Open()

rs_type_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_calendar_numRows = rs_calendar_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
%>
<SCRIPT runat=SERVER language=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>									
<html><!-- InstanceBegin template="/Templates/intranet_blank.dwt" codeOutsideHTMLIsLocked="false" -->

<head>

<!-- InstanceBeginEditable name="doctitle" -->
<title>Remax a-b realty ltd. Intranet</title>
<!-- InstanceEndEditable --><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/remax_intranet.css" rel="stylesheet" type="text/css">
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>


<body bgcolor="#FFFFFF" text="#000000">

<table width="720" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
  <tr>
    <td><img src="images/header_lg.jpg" width="720" height="91"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000066" class="mytext2">
      <tr bgcolor="#FFFFFF">
        <td width="16%" class="mytext2">
          <div align="center"><a href="home.asp">Home</a></div>
        </td>
        <td width="16%" class="mytext2"><div align="center"><a href="contacts.asp">Contacts</a></div></td>
        <td width="16%" class="mytext2"><div align="center"><a href="calendar.asp">Calendar</a></div></td>
        <td width="16%" class="mytext2"><div align="center"><a href="documentation.asp">Documentation</a></div></td>
        <td width="16%" class="mytext2"><div align="center"></div>
          <div align="center"><a href="javascript:history.go(-1);">Previous
          Screen</a></div></td>
        <td width="16%" class="mytext2">
          <div align="center"><a href="logout.asp">Logout</a></div>
        </td>
      </tr>
    </table>
      <!-- InstanceBeginEditable name="body" -->
      <form name="form1" method="get" action="calendar.asp">
        <div align="center" class="mytext">Calendar<br>
            <input name="Submit" type="submit" class="mytext2" value="Click here to sort by">
&nbsp;
    <select name="sortby" class="mytext2" id="sortby">
    <option value="%">all agents</option>
    <%
While (NOT rs_agents.EOF)
%>
    <option value="<%=(rs_agents.Fields.Item("CalendarAgent").Value)%>"><%=(rs_agents.Fields.Item("CalendarAgent").Value)%></option>
    <%
  rs_agents.MoveNext()
Wend
If (rs_agents.CursorType > 0) Then
  rs_agents.MoveFirst
Else
  rs_agents.Requery
End If
%>
    </select>
for 
<select name="sortby2" class="mytext2" id="sortby2">
  <option value="%">all types</option>
  <%
While (NOT rs_type.EOF)
%>
  <option value="<%=(rs_type.Fields.Item("CalendarType").Value)%>"><%=(rs_type.Fields.Item("CalendarType").Value)%></option>
  <%
  rs_type.MoveNext()
Wend
If (rs_type.CursorType > 0) Then
  rs_type.MoveFirst
Else
  rs_type.Requery
End If
%>
</select>
</div>
      </form>
      <table width="700" align="center" cellpadding="2" cellspacing="1" bgcolor="#000066" class="mytext2">
        <tr valign="baseline" bgcolor="#FFFFFF">
          <td width="184" align="left" valign="middle" nowrap class="mytext2"><div align="center"><strong>Date</strong></div>
          </td>
          <td width="166" class="mytext2"><div align="center"><strong>Agent</strong></div>
          </td>
          <td width="207" class="mytext2"><div align="center"></div>
              <div align="center"><strong>Type</strong></div>
          </td>
          <td width="120" class="mytext2"><div align="center"> </div>
          </td>
        </tr>
        <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_calendar.EOF)) 
%>
        <tr valign="baseline" bgcolor="#FFFFFF">
          <td align="left" valign="middle" nowrap class="mytext2"><div align="left"><%= DoDateTime((rs_calendar.Fields.Item("CalendarEventDate").Value), 1, -1) %></div>
          </td>
          <td class="mytext2"><div align="left"><%=(rs_calendar.Fields.Item("CalendarAgent").Value)%> </div>
          </td>
          <td class="mytext2"><div align="left"></div>
              <div align="left"><%=(rs_calendar.Fields.Item("CalendarType").Value)%></div>
          </td>
          <td class="mytext2"><div align="center"><A href="calendar_display.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "CalendarID=" & rs_calendar.Fields.Item("CalendarID").Value %>">view
                details</A></div>
          </td>
        </tr>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_calendar.MoveNext()
Wend
%>
      </table>
      <br>
      <!-- InstanceEndEditable --></td>
  </tr>
</table>
<p align="center"><span class="smallwhite">Site Design By</span><br>
  <a href="http://www.webtraits.ca/" target="_blank"><img src="images/webtraits.jpg" width="125" height="44" border="0"></a></p>
</body>

<!-- InstanceEnd --></html>
<%
rs_calendar.Close()
Set rs_calendar = Nothing
%>
<%
rs_agents.Close()
Set rs_agents = Nothing
%>
<%
rs_type.Close()
Set rs_type = Nothing
%>