<% Dim cn set cn = Server.CreateOBject("ADODB.Connection") strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\data\goddard.mdb") cn.Open strCon Dim adOpenKeySet Dim adLockPessimistic adOpenKeySet = 1 adLockPessimistic = 2 %>
 
Recent Court Ordered Sales
<% Dim rsDeals Set rsDeals = Server.CreateObject("ADODB.Recordset") Dim sqlDeals %> <% sqlDeals = "Select * From qrySpecialDeals Order By DealID Desc" rsDeals.Open sqlDeals, cn IF Not rsDeals.EOF Then Do Until rsDeals.EOF %> <% rsDeals.MoveNext Loop End If rsDeals.close Response.Write "" %>

 
<% =rsDeals("Property")%>
<% =rsDeals("Description")%>
<% =rsDeals("Sold")%>
<% =rsDeals("SalePrice")%>
 
top

 
 
<% set rsDeals = nothing cn.Close set cn = nothing %>