%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var Published__MMColParam = "Y";
if (String(Request("MM_EmptyValue")) != "undefined" &&
String(Request("MM_EmptyValue")) != "") {
Published__MMColParam = String(Request("MM_EmptyValue"));
}
%>
<%
var Published = Server.CreateObject("ADODB.Recordset");
Published.ActiveConnection = MM_ToCBL_STRING;
Published.Source = "SELECT * FROM WEBDEV.TBLCBL WHERE PUBLISH = '"+ Published__MMColParam.replace(/'/g, "''") + "'";
Published.CursorType = 0;
Published.CursorLocation = 2;
Published.LockType = 1;
Published.Open();
var Published_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
Published_numRows += Repeat1__numRows;
%>
<%
// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
// set the record count
var Published_total = Published.RecordCount;
// set the number of rows displayed on this page
if (Published_numRows < 0) { // if repeat region set to all records
Published_numRows = Published_total;
} else if (Published_numRows == 0) { // if no repeat regions
Published_numRows = 1;
}
// set the first and last displayed record
var Published_first = 1;
var Published_last = Published_first + Published_numRows - 1;
// if we have the correct record count, check the other stats
if (Published_total != -1) {
Published_numRows = Math.min(Published_numRows, Published_total);
Published_first = Math.min(Published_first, Published_total);
Published_last = Math.min(Published_last, Published_total);
}
%>
<%
// *** Recordset Stats: if we don't know the record count, manually count them
if (Published_total == -1) {
// count the total records by iterating through the recordset
for (Published_total=0; !Published.EOF; Published.MoveNext()) {
Published_total++;
}
// reset the cursor to the beginning
if (Published.CursorType > 0) {
if (!Published.BOF) Published.MoveFirst();
} else {
Published.Requery();
}
// set the number of rows displayed on this page
if (Published_numRows < 0 || Published_numRows > Published_total) {
Published_numRows = Published_total;
}
// set the first and last displayed record
Published_last = Math.min(Published_first + Published_numRows - 1, Published_total);
Published_first = Math.min(Published_first, Published_total);
}
%>
<%
var Repeat2__numRows = -1;
var Repeat2__index = 0;
Published_numRows += Repeat2__numRows;
%>
Listed below
are <%=(Published_total)%> properties
CURRENTLY AVAILABLE under Dartford's Choice based Lettings Scheme.
If you wish to express an interest in any of them, make a note
of the Property Reference before going to the online Expression
of Interest form.
Think before you bid - Your home is at risk if you do not ensure that your rent is paid.
<% while ((Repeat1__numRows-- != 0) && (!Published.EOF)) { %>
| Property
Reference |
<%=(Published.Fields.Item("PROPREF").Value)%> |
| Basic
Information |
<%=(Published.Fields.Item("PROPERTY").Value)%> |
| Further
Detail |
<%=(Published.Fields.Item("DETAIL").Value)%> |
| Likely
Successful Band |
<%=(Published.Fields.Item("BAND").Value)%> |
<%
Repeat1__index++;
Published.MoveNext();
}
%>
<%
Published.Close();
%>