<%@ LANGUAGE = jscript %> Amber Realty and Property Management
Amber Realty & Property Management

Property for Sale

We currently have the following properties for sale:

<% var oConn; var oRs; var filePath; var connStr; //connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("../database/") + "/amberrealty.mdb;Persist Security Info=False"; connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("./data/") + "/amberrealty.mdb;Persist Security Info=False"; //connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SereneLakes;Persist Security Info=False"; //connStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=SereneLakes;DefaultDir=" + Server.MapPath("../database/") + ";DriverId=25;FILE=MSAccess;MaxBufferSize=512;PageTimeout=5"; oConn = Server.CreateObject("ADODB.Connection"); //Response.Write(connStr); oConn.Open(connStr); // Output Result oRs = oConn.Execute ( " Select * from sale" ); //Response.Write("

Selected: "+oRs("Name")+"," + oRs("Price"));%>

<% for (j = 0; j < oRs.PageSize; j++) { %> <% // Don't try to print the EOF record. if (oRs.EOF) { break; } %> <% oRs.MoveNext() } oRs.close(); oConn.close(); %>
Address City Type Bdrm Bthrm Price Status
<%= oRs("Address") %> <%= oRs("City") %> <%= oRs("Type") %> <%= oRs("Bedrooms") %> <%= oRs("Bathrooms") %> <%= oRs("Price") %> <%= oRs("Status") %>

For other local properties click here www.mlslistings.com