<% if Request.QueryString.Count > 0 then lakeId=Request.QueryString("Selected_Lake")(1) else lakeId="000" end if %> <% if Session("lakeIdNum")= "" then lakeId="000" Session("lakeIdNum") = "000" Session("selectedLake")="Lake of the Ozarks" else lakeId = Session("lakeIdNum") end if %> <% Dim objConn Dim pict_sub pict_sub = "" Set objConn = Server.CreateObject("ADODB.Connection") Set utilities = Server.CreateObject("MSWC.Tools") if lakeId = "000" then if utilities.FileExists("\fpdb\com-link.txt") = -1 Then objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=d:\websites\www.dockrealty.com\fpdb\dock1.mdb" Else objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=c:\Inetpub\wwwroot\fpdb\dock1.mdb" End If objConn.Open else if Session("validLake")=True then pict_sub = lakeId & "/" if utilities.FileExists("\fpdb\com-link.txt") = -1 Then objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=d:\websites\www.dockrealty.com\fpdb\drdb_" & lakeId &".mdb" Else objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=c:\Inetpub\wwwroot\fpdb\drdb_" & lakeId &".mdb" End If objConn.Open else Server.Transfer("default_999.asp") end if end if '------------- DOCK SCREEN -------------------------- Set rC = objConn.Execute("SELECT count(active) as num_dock_listings from dock_info where active") Set rC2 = objConn.Execute("SELECT count(active) as num_lift_listings from lift_info where active") %> <%If rC.EOF Then Server.Transfer("default_999.asp") %>

                                       No data found, Please enter new  Listing#          












Hawkeye Boat Brokers
573-280-2171
Lake of the Ozarks, MO

************************   UNDER CONSTRUCTION ******************************

<% ELSE %>

<%=rc("num_dock_listings")%> Boats & <%=rc2("num_lift_listings")%> Lifts Currently Listed at the Lake of the Ozarks, MO
--- Boats, Lifts, and Slips are being added daily --

Featured Items    (Click on Pictures for more Details)

DLS#:

New Listing       20004
Price:

$100,000
Make: Baja
Model: 1999 33' Outlaw

DLS#:

       20007
Price: $115,000
Make: Larson
Model: 2002 330 Cabrio

DLS#:

New Listing       20017
Price:

$84,995
Make: American Offshore
Model: 26NX9

DLS#:

   20011
Price: $9,995
Make: Seadoo
Model: 2000 Speedster

DLS#:

      20002
Price:

$18,200
Make: Four Winns
Model: 1996 240 Horizon

DLS#:

     20001
Price: $64,000
Make: Fountain
Model: 1990 Lightning Tripe 42

DLS#:

       20010
Price:

$43,500
Make: Formula
Model: 1996 Thunderbird 280 SS

DLS#:

       2006
Price: $1350500
Make: Wellcraft
Model: 1999 38 Scarab AVS
<% '-------------------------------------------------- objConn.Close Set objConn = Nothing end if %>