<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_BKNOAR_FINAL_STRING MM_BKNOAR_FINAL_STRING = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../../access.db/broken_oar.mdb") 'MM_BKNOAR_FINAL_STRING = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=\\imp-srv-01\WEBROOT\inetpub\wwwroot\DEV\Imperium\BrokenOarTest\db\broken_oar.mdb" 'MM_BKNOAR_FINAL_STRING = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/db/broken_oar.mdb") %> Welcome to the Broken Oar Marina! <% Dim rsNewBoats Dim numRows Dim strNewsLine Dim rsFeaturedNewBoat Dim rsFeaturedUsedBoat Set rsNewBoats = Server.CreateObject("ADODB.Recordset") rsNewBoats.ActiveConnection = MM_BKNOAR_FINAL_STRING rsNewBoats.Source = "SELECT * FROM tblNews WHERE ActiveFlag = 1" rsNewBoats.CursorType = 0 rsNewBoats.CursorLocation = 2 rsNewBoats.LockType = 3 rsNewBoats.Open() If Not rsNewBoats.EOF Then strNewsLine = rsNewBoats.Fields("NewsDescription") rsNewBoats.Close Set rsNewBoats = Nothing End If Set rsFeaturedNewBoat = Server.CreateObject("ADODB.Recordset") rsFeaturedNewBoat.ActiveConnection = MM_BKNOAR_FINAL_STRING rsFeaturedNewBoat.Source = "SELECT RecNumId, BoatDescription, Pic1Location FROM tblBoatInventory WHERE RecNumId = (SELECT RecNumId FROM tblBoatFeatured WHERE BoatType = 1)" rsFeaturedNewBoat.CursorType = 0 rsFeaturedNewBoat.CursorLocation = 2 rsFeaturedNewBoat.LockType = 3 rsFeaturedNewBoat.Open() Set rsFeaturedUsedBoat = Server.CreateObject("ADODB.Recordset") rsFeaturedUsedBoat.ActiveConnection = MM_BKNOAR_FINAL_STRING rsFeaturedUsedBoat.Source = "SELECT RecNumId, BoatDescription, Pic1Location FROM tblBoatInventory WHERE RecNumId = (SELECT RecNumId FROM tblBoatFeatured WHERE BoatType = 0)" rsFeaturedUsedBoat.CursorType = 0 rsFeaturedUsedBoat.CursorLocation = 2 rsFeaturedUsedBoat.LockType = 3 rsFeaturedUsedBoat.Open() %>
<% Server.Execute "header.asp" %>
 

Current Weather

News

<%=strNewsLine%>

 
About the Broken Oar Marina

Thanks for visiting the Broken Oar Marina's website. The Marina opened in January, 2006 with the mission to provide top-quality pontoon and fisihing boats to interested parties all over the midwest. We also strive to provide the best in service and support to all our customers and all boaters in the area.

Our Location

The Broken Oar Marina is located on the Fox River in Port Barrington, Illnois. We offer many services to boaters on the Fox River and upper-Chain 'O Lakes, but also to boaters all over the midwest. For more information on our location and how to get to us, please visit our contact page.

Our Boats

The Broken Oar Marina is your exclusive dealer for Yarcraft fishing boats and Weeres Pontoon boats. We offer a full line of Weeres pontoon boats in all sizes with a number of options. Our line of Yarcraft fishing boats will surely fit your finishing boat needs. Please visit our boats page to learn more about these lines of top-quality boats.

Featured New Boats
<% Else %> Sorry! We do not currently have any featured new boats at this time. Please check back soon! <% End If rsFeaturedNewBoat.Close Set rsFeaturedNewBoat = Nothing %>
<% If Not rsFeaturedNewBoat.EOF Then rsFeaturedNewBoat.MoveFirst %> ">" width="150">
<%=rsFeaturedNewBoat.Fields("BoatDescription")%>
Featured Pre-owned Boats
<% Else %> Sorry! We do not currently have any featured pre-owned boats at this time. Please check back soon! <% End If rsFeaturedUsedBoat.Close Set rsFeaturedUsedBoat = Nothing %>
<% If Not rsFeaturedUsedBoat.EOF Then rsFeaturedUsedBoat.MoveFirst %> ">" width="150">
<%=rsFeaturedUsedBoat.Fields("BoatDescription")%>
<% Server.Execute "footer.asp" %>