/AC/m001q0603.asp
ASP | 282 lines | 253 code | 29 blank | 0 comment | 112 complexity | 7f030c38a97ff74b0b6bb7a084f4c7c1 MD5 | raw file
- <%@language="JAVASCRIPT"%>
- <!--#include file="../inc/ASPUtility.inc" -->
- <!--#include file="../Connections/cnnASP02.asp" -->
- <!--#include file="../inc/ASPCheckLogin.inc"-->
- <%
- var rsGrant = Server.CreateObject("ADODB.Recordset");
- rsGrant.ActiveConnection = MM_cnnASP02_STRING;
- rsGrant.Source = "{call dbo.cp_Grant_Elgbty3(0,"+ Request.QueryString("intAdult_id") + ",0,0,'Q',0)}";
- rsGrant.CursorType = 0;
- rsGrant.CursorLocation = 2;
- rsGrant.LockType = 3;
- rsGrant.Open();
- var rsGrant_numRows = 0;
- %>
- <%
- var Repeat1__numRows = -1;
- var Repeat1__index = 0;
- rsGrant_numRows += Repeat1__numRows;
- %>
- <%
- // *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
- // set the record count
- var rsGrant_total = rsGrant.RecordCount;
- // set the number of rows displayed on this page
- if (rsGrant_numRows < 0) { // if repeat region set to all records
- rsGrant_numRows = rsGrant_total;
- } else if (rsGrant_numRows == 0) { // if no repeat regions
- rsGrant_numRows = 1;
- }
- // set the first and last displayed record
- var rsGrant_first = 1;
- var rsGrant_last = rsGrant_first + rsGrant_numRows - 1;
- // if we have the correct record count, check the other stats
- if (rsGrant_total != -1) {
- rsGrant_numRows = Math.min(rsGrant_numRows, rsGrant_total);
- rsGrant_first = Math.min(rsGrant_first, rsGrant_total);
- rsGrant_last = Math.min(rsGrant_last, rsGrant_total);
- }
- %>
- <%
- // *** Recordset Stats: if we don't know the record count, manually count them
- if (rsGrant_total == -1) {
- // count the total records by iterating through the recordset
- for (rsGrant_total=0; !rsGrant.EOF; rsGrant.MoveNext()) {
- rsGrant_total++;
- }
- // reset the cursor to the beginning
- if (rsGrant.CursorType > 0) {
- if (!rsGrant.BOF) rsGrant.MoveFirst();
- } else {
- rsGrant.Requery();
- }
- // set the number of rows displayed on this page
- if (rsGrant_numRows < 0 || rsGrant_numRows > rsGrant_total) {
- rsGrant_numRows = rsGrant_total;
- }
- // set the first and last displayed record
- rsGrant_last = Math.min(rsGrant_first + rsGrant_numRows - 1, rsGrant_total);
- rsGrant_first = Math.min(rsGrant_first, rsGrant_total);
- }
- %>
- <% var MM_paramName = ""; %>
- <%
- // *** Move To Record and Go To Record: declare variables
- var MM_rs = rsGrant;
- var MM_rsCount = rsGrant_total;
- var MM_size = rsGrant_numRows;
- var MM_uniqueCol = "";
- MM_paramName = "";
- var MM_offset = 0;
- var MM_atTotal = false;
- var MM_paramIsDefined = (MM_paramName != "" && String(Request(MM_paramName)) != "undefined");
- %>
- <%
- // *** Move To Record: handle 'index' or 'offset' parameter
- if (!MM_paramIsDefined && MM_rsCount != 0) {
- // use index parameter if defined, otherwise use offset parameter
- r = String(Request("index"));
- if (r == "undefined") r = String(Request("offset"));
- if (r && r != "undefined") MM_offset = parseInt(r);
- // if we have a record count, check if we are past the end of the recordset
- if (MM_rsCount != -1) {
- if (MM_offset >= MM_rsCount || MM_offset == -1) { // past end or move last
- if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region
- MM_offset = MM_rsCount - (MM_rsCount % MM_size);
- } else {
- MM_offset = MM_rsCount - MM_size;
- }
- }
- }
- // move the cursor to the selected record
- for (var i=0; !MM_rs.EOF && (i < MM_offset || MM_offset == -1); i++) {
- MM_rs.MoveNext();
- }
- if (MM_rs.EOF) MM_offset = i; // set MM_offset to the last possible record
- }
- %>
- <%
- // *** Move To Record: if we dont know the record count, check the display range
- if (MM_rsCount == -1) {
- // walk to the end of the display range for this page
- for (var i=MM_offset; !MM_rs.EOF && (MM_size < 0 || i < MM_offset + MM_size); i++) {
- MM_rs.MoveNext();
- }
- // if we walked off the end of the recordset, set MM_rsCount and MM_size
- if (MM_rs.EOF) {
- MM_rsCount = i;
- if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;
- }
- // if we walked off the end, set the offset based on page size
- if (MM_rs.EOF && !MM_paramIsDefined) {
- if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region
- MM_offset = MM_rsCount - (MM_rsCount % MM_size);
- } else {
- MM_offset = MM_rsCount - MM_size;
- }
- }
- // reset the cursor to the beginning
- if (MM_rs.CursorType > 0) {
- if (!MM_rs.BOF) MM_rs.MoveFirst();
- } else {
- MM_rs.Requery();
- }
- // move the cursor to the selected record
- for (var i=0; !MM_rs.EOF && i < MM_offset; i++) {
- MM_rs.MoveNext();
- }
- }
- %>
- <%
- // *** Move To Record: update recordset stats
- // set the first and last displayed record
- rsGrant_first = MM_offset + 1;
- rsGrant_last = MM_offset + MM_size;
- if (MM_rsCount != -1) {
- rsGrant_first = Math.min(rsGrant_first, MM_rsCount);
- rsGrant_last = Math.min(rsGrant_last, MM_rsCount);
- }
- // set the boolean used by hide region to check if we are on the last record
- MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);
- %>
- <%
- // *** 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
- var MM_removeList = "&index=";
- if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";
- var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";
- // add the URL parameters to the MM_keepURL string
- for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
- var nextItem = "&" + items.item().toLowerCase() + "=";
- if (MM_removeList.indexOf(nextItem) == -1) {
- MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
- }
- }
- // add the Form variables to the MM_keepForm string
- for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {
- var nextItem = "&" + items.item().toLowerCase() + "=";
- if (MM_removeList.indexOf(nextItem) == -1) {
- MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));
- }
- }
- // create the Form + URL string and remove the intial '&' from each of the strings
- MM_keepBoth = MM_keepURL + MM_keepForm;
- if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
- if (MM_keepURL.length > 0) MM_keepURL = MM_keepURL.substring(1);
- if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
- %>
- <%
- // *** Move To Record: set the strings for the first, last, next, and previous links
- var MM_moveFirst="",MM_moveLast="",MM_moveNext="",MM_movePrev="";
- var MM_keepMove = MM_keepBoth; // keep both Form and URL parameters for moves
- var MM_moveParam = "index";
- // if the page has a repeated region, remove 'offset' from the maintained parameters
- if (MM_size > 1) {
- MM_moveParam = "offset";
- if (MM_keepMove.length > 0) {
- params = MM_keepMove.split("&");
- MM_keepMove = "";
- for (var i=0; i < params.length; i++) {
- var nextItem = params[i].substring(0,params[i].indexOf("="));
- if (nextItem.toLowerCase() != MM_moveParam) {
- MM_keepMove += "&" + params[i];
- }
- }
- if (MM_keepMove.length > 0) MM_keepMove = MM_keepMove.substring(1);
- }
- }
- // set the strings for the move to links
- if (MM_keepMove.length > 0) MM_keepMove += "&";
- var urlStr = Request.ServerVariables("URL") + "?" + MM_keepMove + MM_moveParam + "=";
- MM_moveFirst = urlStr + "0";
- MM_moveLast = urlStr + "-1";
- MM_moveNext = urlStr + (MM_offset + MM_size);
- MM_movePrev = urlStr + Math.max(MM_offset - MM_size,0);
- %>
- <html>
- <head>
- <title>Grant Eligibility</title>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <link rel="stylesheet" href="../css/MyStyle.css" type="text/css">
- <Script language="Javascript">
- if (window.focus) self.focus();
- function openWindow(page, name){
- if (page!='nothing') win1=window.open(page, name, "width=700,height=400,scrollbars=1,left=0,top=0,status=1");
- return ;
- }
- </Script>
- </head>
- <body>
- <h5>Grant Eligibility</h5>
- <table cellspacing="1">
- <tr>
- <td><% if (MM_offset != 0) { %> <a href="<%=MM_moveFirst%>">First Page</a> <% } else { %> First Page <% } // end MM_offset != 0 %> |</td>
- <td><% if (MM_offset != 0) { %> <a href="<%=MM_movePrev%>">Previous Page</a> <% } else { %> Previous Page <% } // end MM_offset != 0 %> |</td>
- <td><% if (!MM_atTotal) { %> <a href="<%=MM_moveNext%>">Next Page</a> <% } else { %> Next Page <% } // end !MM_atTotal %>| </td>
- <td><% if (!MM_atTotal) { %> <a href="<%=MM_moveLast%>">Last Page</a> <% } else { %> Last Page <% } // end !MM_atTotal %></td>
- </tr>
- <tr>
- <td colspan="4">Displaying Records <%=rsGrant_first%> to <%=rsGrant_last%> of <%=rsGrant_total%></td>
- </tr>
- </table>
- <hr>
- <table cellpadding="2" cellspacing="1" class="Mtable">
- <tr>
- <th class="headrow" align="left">Referral Date</th>
- <th class="headrow" align="left">Grant Type</th>
- <th class="headrow" align="center">Grant Qualification Source</th>
- <th class="headrow" align="center">Eligible</th>
- <th class="headrow" align="left">Start Date</th>
- <th class="headrow" align="left">End Date</th>
- </tr>
- <%
- while ((Repeat1__numRows-- != 0) && (!rsGrant.EOF)) {
- %>
- <tr>
- <td align="left"><a href="m001e0603.asp?intReferral_id=<%=rsGrant.Fields.Item("intReferral_id").Value%>&insGrnt_Elgbty=<%=(rsGrant.Fields.Item("insGrnt_Elgbty").Value)%>&intAdult_id=<%=Request.QueryString("intAdult_id")%>"><%=FilterDate(rsGrant.Fields.Item("dtsRefral_date").Value)%></a> </td>
- <td align="center"><%=(rsGrant.Fields.Item("chvGrant_type").Value)%> </td>
- <td align="center"><%=(rsGrant.Fields.Item("chvGrn_Qlf_Src").Value)%> </td>
- <td align="center"><%=((rsGrant.Fields.Item("insGrnt_Elgbty").Value==null)?"":rsGrant.Fields.Item("bitIs_Grnt_Eligible").Value)%> </td>
- <td align="left"><%=FilterDate(rsGrant.Fields.Item("dtmEligibility_start").Value)%> </td>
- <td align="left"><%=FilterDate(rsGrant.Fields.Item("dtmEligibility_end").Value)%> </td>
- </tr>
- <%
- Repeat1__index++;
- rsGrant.MoveNext();
- }
- %>
- </table>
- </body>
- </html>
- <%
- rsGrant.Close();
- %>