<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Redirect If Session Variable Does Not Exist
' *** MagicBeat Server Behavior - 2016 - by Jag S. Sidhu - www.magicbeat.com
If Session("svAdmin") = "" Then
Response.Redirect("login.asp?error=fail")
End  If
%>
<!--#include file="../Connections/connCapRes.asp" -->

<%
Dim rs_property__MMColParam
rs_property__MMColParam = "pending"
If (Request("MM_EmptyValue") <> "") Then 
  rs_property__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_property
Dim rs_property_numRows

Set rs_property = Server.CreateObject("ADODB.Recordset")
rs_property.ActiveConnection = MM_connCapRes_STRING
rs_property.Source = "SELECT * FROM Property_Details WHERE Status = '" + Replace(rs_property__MMColParam, "'", "''") + "' ORDER BY ID ASC"
rs_property.CursorType = 0
rs_property.CursorLocation = 2
rs_property.LockType = 1
rs_property.Open()

rs_property_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_property_numRows = rs_property_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_property_total
Dim rs_property_first
Dim rs_property_last

' set the record count
rs_property_total = rs_property.RecordCount

' set the number of rows displayed on this page
If (rs_property_numRows < 0) Then
  rs_property_numRows = rs_property_total
Elseif (rs_property_numRows = 0) Then
  rs_property_numRows = 1
End If

' set the first and last displayed record
rs_property_first = 1
rs_property_last  = rs_property_first + rs_property_numRows - 1

' if we have the correct record count, check the other stats
If (rs_property_total <> -1) Then
  If (rs_property_first > rs_property_total) Then
    rs_property_first = rs_property_total
  End If
  If (rs_property_last > rs_property_total) Then
    rs_property_last = rs_property_total
  End If
  If (rs_property_numRows > rs_property_total) Then
    rs_property_numRows = rs_property_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_property_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_property_total=0
  While (Not rs_property.EOF)
    rs_property_total = rs_property_total + 1
    rs_property.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_property.CursorType > 0) Then
    rs_property.MoveFirst
  Else
    rs_property.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_property_numRows < 0 Or rs_property_numRows > rs_property_total) Then
    rs_property_numRows = rs_property_total
  End If

  ' set the first and last displayed record
  rs_property_first = 1
  rs_property_last = rs_property_first + rs_property_numRows - 1
  
  If (rs_property_first > rs_property_total) Then
    rs_property_first = rs_property_total
  End If
  If (rs_property_last > rs_property_total) Then
    rs_property_last = rs_property_total
  End If

End If
%>
<%
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
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>/// Capital Residence Administration \\\</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> 
<table width="600" border="0" cellspacing="0" cellpadding="5">
<tr>
    <td bgcolor="#CCCCCC"><div align="center"><a href="pending.asp"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">VIEW 
        PENDING PROPERTIES</font></a><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
        | <a href="search.asp"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">SEARCH ALL PROPERTIES</font></a></font></div></td>
  </tr>
</table>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<strong>PENDING PROPERTIES (<%=(rs_property_total)%>)<br>
<br>
</strong></font> 
<% If rs_property.EOF And rs_property.BOF Then %>
<table width="600" border="0" cellspacing="0" cellpadding="0">
  <tr> 
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">No Pending 
      Properties Found</font></td>
  </tr>
</table>
<% End If ' end rs_property.EOF And rs_property.BOF %>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
<br>
</strong></font> 
<% 
While ((Repeat1__numRows <> 0) AND (NOT rs_property.EOF)) 
%>
<table width="600" border="0" cellspacing="0" cellpadding="4">
  <tr> 
<td width="425"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rs_property.Fields.Item("Date_Added").Value)%></font></td>
    <td width="159">&nbsp;</td>
  </tr>
  <tr> 
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rs_property.Fields.Item("Summery").Value)%></font></td>
    <td><div align="right"><a href="approve.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & rs_property.Fields.Item("ID").Value %>"><font color="#009900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>APPROVE 
        PROPERTY</strong></font></a></div></td>
  </tr>
  <tr> 
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>&pound;</strong><%=(rs_property.Fields.Item("Property_Price").Value)%></font></td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rs_property.Fields.Item("Property_Type").Value)%>, <%=(rs_property.Fields.Item("Property_Style").Value)%></font></td>
    <td><div align="right"><a href="search_delete.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & rs_property.Fields.Item("ID").Value %>"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>DELETE 
        PROPERTY</strong></font></a></div></td>
  </tr>
  <tr> 
<td><img src="images/spacer.gif" width="10" height="8"></td>
    <td><img src="images/spacer.gif" width="10" height="8"></td>
  </tr>
  <tr bgcolor="#666666"> 
<td height="1"><img src="images/spacer.gif" width="10" height="1"></td>
    <td height="1"><img src="images/spacer.gif" width="10" height="1"></td>
  </tr>
  <tr> 
<td><img src="images/spacer.gif" width="10" height="8"></td>
    <td><img src="images/spacer.gif" width="10" height="8"></td>
  </tr>
</table>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_property.MoveNext()
Wend
%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> </strong></font> 
</body>
</html>
<%
rs_property.Close()
Set rs_property = Nothing
%>