<html>
<head>
<title>Persona Homes Project Management System</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta http-equiv="refresh" content="60">
<link type="text/css" rel="stylesheet" href="style.css">
<SCRIPT LANGUAGE="JavaScript" SRC="../js/CalendarPopup.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">document.write(getCalendarStyles());</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" ID="jscal1x">
var cal1x = new CalendarPopup("testdiv1");
</SCRIPT>
<script language="JavaScript" type="text/javascript" src="../js/print.js"></script>
</head>
<body>
<!-- #include file="includes/top.asp" -->
<table width="800" align="center" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td width="800" height="400" bgcolor="#FFFFFF" valign="top"><table width="800" border="0" cellpadding="0" cellspacing="0">
			<tr>
				<td width="10"></td>
				<td width="780"><div id="areaToPrint"><table width="780" border="0" cellpadding="0" cellspacing="0">
<%
On Error Resume Next
Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection

if Session("Admin") <> -1 then
	Response.Write "<tr><td width=""780"" height=""80""></td></tr>"
  	Response.Write "<tr><td width=""780"" height=""25"" align=""center"" class=""h2"">You are not authorized to view this page.</td></tr>"
    Response.Write "<tr><td width=""780"" height=""20""></td></tr>"
    Response.Write "<tr><td width=""780"" height=""25"" align=""center""><input TYPE=""button"" NAME=""Login"" value=""Login"" class=""submit"" ONCLICK=""JavaScript:window.open('index.asp', target='_self');""></td></tr>"
else
%>
    				<tr>
      					<td width="780" height="25" align="center" class="head">Hi <%= Session("Login") %>!</td>
					</tr>
    				<tr>
                    	<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
                        	<tr height="25">
                            	<td class="h2"><%= Date & " " & Time%></td>
                                <td align="right"><table border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                        <td height="25"><a href="javascript:printPage('areaToPrint');" class="h2">Print</a></td>
                                        <td width="20" height="25"></td>
                                        <td height="25"><a href="home.asp" class="h2">Back to Home</a></td>
                                        <td width="20" height="25"></td>
                                        <td height="25"><a href="logout.asp" class="h2">Logout</a></td>
                                    </tr>
                                </table></td>
                            </tr>
                        </table></td>
					</tr>
    				<tr>
      					<td width="780" height="10"></td>
					</tr>
    				<tr>
      					<td width="780" height="25" align="center" class="h1">Payment Received Report</td>
					</tr>
    				<tr>
      					<td width="780" height="10"></td>
					</tr>
<%					
    Set objConn = Server.CreateObject("ADODB.Connection")
    strConnection = "DSN=personahomes;Database=WebDB.mdb;"
  
    objConn.Open strConnection

    strQuery = "SELECT * FROM Progress ORDER BY Rank"
    Set objRS = objConn.Execute(strQuery)
%>
					<form name="fmViewProduct" method="post" action="reportProjectPaymentReceivedView.asp" target="_blank">
    				<tr>
      					<td width="780" height="20" align="center"><table border="0" cellpadding="0" cellspacing="0">
                            <tr height="30">
								<td align="right" class="p">Stage:</td>
                                <td width="10"></td>
								<td><select name="KPI" class="newstext">
                                	<option value="">All</option>
<%
    Do While not objRS.EOF
      Response.Write "<option value=""" & objRS("ID") & """>" & objRS("Name") & "</option>"
      objRS.MoveNext
    Loop
%>
    							</select></td>
							</tr>
                            <tr height="30">
								<td align="right" class="p">Building Supervisor:</td>
                                <td width="10"></td>
								<td><input name="supervisor" type="text" class="newstext"></td>
							</tr>
                            <tr height="30">
                                <td align="right" class="p">Out From:</td>
                                <td width="10"></td>
                                <td class="p"><input type="text" name="outFrom" onClick="cal1x.select(document.forms['fmViewProduct'].outFrom,'outFrom','dd/MM/yyyy'); return false;" ID="outFrom" class="datetext2"> &nbsp;&nbsp; To: <input type="text" name="outTo" onClick="cal1x.select(document.forms['fmViewProduct'].outTo,'outTo','dd/MM/yyyy'); return false;" ID="outTo" class="datetext2"></td>
                            </tr>
                        </table></td>
					</tr>
					<tr>
      					<td width="780" height="10"></td>
    				</tr>
    				<tr>
      					<td width="780" height="25" align="center"><table height="25" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td width="50" height="25"></td>
								<td height="25"><input type="reset" value="Reset" name="B2" class="submit"></td>
								<td width="50" height="25"></td>
								<td height="25"><input type="submit" value="Submit" name="B1" class="submit"></td>
				    		</tr>
						</table></td>
					</tr>
					</form>
<DIV ID="testdiv1" STYLE="position:absolute;visibility:hidden;background-color:white;layer-background-color:white;"></DIV>
<%
    objRS.close
    objConn.close
    Set objRS = Nothing
    Set objConn = Nothing
end if  
%>
				</table></div></td>
				<td width="10"></td>
			</tr>
		</table></td>
	</tr>
<!-- #include file="includes/bottom.asp" -->
</table>
</body>
</html>