%@ LANGUAGE="VBScript" %> <% Function CheckRS(RS) On Error Resume Next bEOF = RS.EOF If Err Or bEOF Then CheckRS = False Else CheckRS = True End If End Function SQLStmt = "SELECT *, " SQLStmt = SQLStmt & "'$' + Str(listedfor) as listprice " SQLStmt = SQLStmt & "FROM [Property] " SQLStmt = SQLStmt & "WHERE ListingNumber='" & Request("ListingNumber") & "'" Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DSN=horseshoebay" Set RS = Connection.Execute(SQLStmt) %>
®

| Property Type: <%= RS("type") %> | Listing #:<%= RS("ListingNumber") %> <% If RS("image") = "No" Then %> ![]() <% Else %> <% End If %> <%= RS("address") %> <%= RS("subdivision") %> |
| Listed For: <%= RS("listprice") %> | |
| Bedrooms: <%= RS("bedrooms") %> Bathrooms: <%= RS("bathrooms") %> | |
| Gated Community: <%= RS("gatedcommunity") %> | |
| Waterfront: <%= RS("waterfront") %> | |
| Golf Course: <%= RS("golffrontage") %> | |
| Acreage: <%= RS("acreage") %> | |
| Lake Proximity: <%= RS("lakeproximity") %> | |
| Golf Proximity: <%= RS("golfproximity") %> | |
| ', 'remote', 550, 250, 'scrollbars', 'status', 'resizable');">For More Information | |
| ', 'remote', 700, 400, 'scrollbars', 'status', 'resizable');">Virtual Tour | |
| ">Inquire about this property! | |
| <%= RS("Description") %> | |
<%= RS2("description") %> |
<%
RS2.MoveNext
If NOT RS2.EOF Then
%>
<%= RS2("description") %> | ") End If Loop %> |
| Return to Search Results | |
<% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
"The Premier Housing Broker of
Horseshoe Bay"
www.horseshoebaycorp.com
Box 7752 u Horseshoe Bay, Texas u 830-598-2553 u Fax 830-598-5977 u 800-292-1545 u E-mail hsb@horseshoebaycorp.com