<%@ 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) %> Horseshoe Bay Corp. - Property Print Format

Horseshoe Bay Corp®
Horseshoe Bay Corp

<% CurrentRecord = 0 Do While CheckRS(RS)%>

<% If RS("moreinfo") <> "" Then %> <% End If %> <% If RS("virtualtour") <> "" Then %> <% End If %> <% ' Now prepare for the images SQLStmt = "SELECT imagenumber, description FROM [Image] WHERE ListingNumber='" & Request("ListingNumber") & "' ORDER BY imagenumber" Set RS2 = Connection.Execute(SQLStmt) Do While NOT RS2.EOF %> <% RS2.MoveNext If NOT RS2.EOF Then %> <% RS2.MoveNext Else Response.Write("") End If Loop %>
Property Type: <%= RS("type") %> Listing #:<%= RS("ListingNumber") %>
<% If RS("image") = "No" Then %>
<% Else %> .jpg" width="200" height="119" border="0">
<% 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") %>
.jpg">
<%= RS2("description") %>
.jpg">
<%= RS2("description") %>
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 

<% Connection.Close %>