|
|
|
Available Rentals
The following units are available immediately.
<%
dim Result, Connection, sql
set Connection = server.createobject("ADODB.Connection")
Connection.Open "CalsurDB", "admin", ""
set Result = server.createobject("ADODB.Recordset")
sql = "SELECT * FROM PropertiesQuery"
Result.Open sql, Connection, adOpenKeyset
do while not Result.eof
%>
<%
Result.MoveNext()
loop
Result.Close
Connection.Close
%>
Call now! |

 |
|