<%@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 rsFeaturedNewBoat Dim rsFeaturedUsedBoat Dim numRows Dim strNewsLine 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%>

 
Welcome To The Broken Oar Marina!

Thank you for visiting our new web site! It's still under construction, but we'll be posting updates frequently. Please don't hesitate to contact us with any questions about our inventory, services, or anything else while we continue to develop our web site!

On-Line Inventory Now Available!
The Broken Oar Marina is proud to announce that we've completed our on-line inventory section of the site. Please visit the new and pre-owned pages to view our current inventory. We'll be adding new inventory all throughout the summer, so please be sure to check back often!
Services and Parts

The Broken Oar Marina has a full-time service staff available to you for all your marine needs. In addition, we sell a number of parts for all types of boats. Please click here to view our on-line eBay store. Or visit our services page to see our marine service capabilities.

Featured New Boat
<% 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 Boat
<% 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" %>