<%@LANGUAGE="VBSCRIPT"%> <% set oConn=Server.CreateObject("ADODB.Connection") oConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nuevapagina\db\abinflatable.mdb") Dim rsEstandar__codigo rsEstandar__codigo = "0" if (request("codigo") <> "") then rsEstandar__codigo = request("codigo") %> <% Set rsEstandar = Server.CreateObject("ADODB.Recordset") rsEstandar.open "SELECT tblEstandar.sNombre FROM tblEstandar INNER JOIN tblDetalleEstandar ON tblEstandar.cNumero = tblDetalleEstandar.iEstandar WHERE tblDetalleEstandar.iProducto=" + Replace(rsEstandar__codigo, "'", "''") + " order by tblEstandar.sNombre",oconn %> <% Dim rsOpcional__codigo rsOpcional__codigo = "42" if (request("codigo") <> "") then rsOpcional__codigo = request("codigo") %> <% set rsOpcional = Server.CreateObject("ADODB.Recordset") rsOpcional.open "SELECT tblDetalleOpcional.iProducto, tblOpcional.sNombre FROM tblOpcional INNER JOIN tblDetalleOpcional ON tblOpcional.cNumero = tblDetalleOpcional.iOpcional WHERE tblDetalleOpcional.iProducto=" + Replace(rsOpcional__codigo, "'", "''") + " order by tblOpcional.snombre",oconn %> <% Dim rsProducto__codigo rsProducto__codigo = "0" if (request("codigo") <> "") then rsProducto__codigo = request("codigo") %> <% set rsProducto = Server.CreateObject("ADODB.Recordset") rsProducto.open "SELECT * FROM tblproducto WHERE cnumero = " + Replace(rsProducto__codigo, "'", "''") + "",oconn %> <% set rsDetalleFoto = Server.CreateObject("ADODB.Recordset") rsDetalleFoto.open "SELECT * FROM tblDetalleFoto WHERE tblDetalleFoto.iProducto= " + Replace(rsProducto__codigo, "'", "''") + "",oconn %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rsEstandar_numRows = rsEstandar_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 rsOpcional_numRows = rsOpcional_numRows + Repeat4__numRows %> AB Inflatables <% leng01 = trim(rsProducto.Fields.Item("OveralLength_1").Value) & " m" %> <% leng02 = trim(rsProducto.Fields.Item("OveralLength_2").Value) & "' " & trim(rsProducto.Fields.Item("OveralLength_3").Value) & "''" %> <% ove01 = trim(rsProducto.Fields.Item("OveralBeam_1").Value) & " m" %> <% ove02 = trim(rsProducto.Fields.Item("OveralBeam_2").Value) & "' " & trim(rsProducto.Fields.Item("OveralBeam_3").Value) & "''" %> <% insilen01 = trim(rsProducto.Fields.Item("InsideLength_2").Value) & "' " & trim(rsProducto.Fields.Item("InsideLength_3").Value) & "'' " %> <% insilen02 = trim(rsProducto.Fields.Item("InsideLength_1").Value) & " m " %> <% insiwi01 = trim(rsProducto.Fields.Item("InsideWidth_2").Value) & "' " & trim(rsProducto.Fields.Item("InsideWidth_3").Value) & "'' " %> <% insiwi02 =trim(rsProducto.Fields.Item("InsideWidth_1").Value) & " m" %> <%area1 = trim(rsProducto.Fields.Item("InternalArea_1").Value) & " mē"%> <%area2= trim(rsProducto.Fields.Item("InternalArea_2").Value) & " sq.ft." %> <%tubo1 = trim(rsProducto.Fields.Item("tubo_1").Value) & " m" %> <%tubo2 = trim(rsProducto.Fields.Item("tubo_2").Value) & "''" %> <% peso1 = trim(rsProducto.Fields.Item("MaximaWeight_1").Value) & " kg" %> <% peso2 = trim(rsProducto.Fields.Item("MaximaWeight_2").Value) & " lb" %> <% hp1= trim(rsProducto.Fields.Item("RecomendadoHP_1").Value) & " kw" %> <% hp2= trim(rsProducto.Fields.Item("RecomendadoHP_2").Value) & " hp" %> <% if trim(rsProducto.Fields.Item("shaft_1").Value) <> "n/a" then shaft1= trim(rsProducto.Fields.Item("shaft_1").Value) & "''" else shaft1= "n/a" end if %> <% if trim(rsProducto.Fields.Item("shaft_twin_1").Value) <> "n/a" then shaft2= trim(rsProducto.Fields.Item("shaft_twin_1").Value) & "''" else shaft2= "n/a" end if %> <% end if %> <% if rsproducto.fields("iplano")=1 then %> <% end if%>
 Modular Models

To offer more flexibility on the internal layout of our open boats, we have developed and now offer the below shown accessories for Navigo and Lammina models. These options will allow you to purchase your boat according to your boating preferences, while keeping the boats lighter and less expensive than other built in fuel tank console models.

 

No matter what type of boating you do, these accessories will easily adapt to your needs!

 

For further information, please contact your AB dealer.

Deluxe Console with Forward Seat

Deluxe Console

Economic Console

Jockey Seat

Stern Seat with Backrest

Euro Helm Seat

 

Deluxe Console with Forward Seat and Stern Seat  with Backrest available for models:

Navigo: 12VS, 13VS & 14VS

Lammina: 12Al, 13AL, 14AL, 15AL & 16AL

 

Deluxe Console and Stern Seat  with Backrest available for models:

Navigo: 10VS, 12VS, 13VS & 14VS

Lammina: 10AL, 11AL, 12AL, 13AL, 14AL, 15AL & 16AL

 

Economic Console and Stern Seat  with Backrest available for models:

Navigo: 10VS, 12VS, 13VS & 14VS

Lammina: 10AL, 11AL, 12AL, 13AL, 14AL, 15AL & 16AL

 

Jockey Console available for models:

Navigo: 10VS, 12VS, 13VS & 14VS

Lammina: 10AL, 11AL, 12AL, 13AL, 14AL, 15AL & 16AL

 

Euro Helm Seat available for models:

Navigo: 10VS, 12VS, 13VS & 14VS

Lammina: 10AL, 11AL, 12AL, 13AL, 14AL, 15AL & 16AL
<% rsEstandar.Close() Set rsEstandar = Nothing %> <% rsOpcional.Close() Set rsOpcional = Nothing %> <% rsDetalleFoto.Close() Set rsDetalleFoto = Nothing %> <% rsProducto.Close() %> <% Sub ConnClosing1() rsd.close Set rsd = Nothing rsb.Close Set rsb = Nothing End Sub Function SetImgForDisp(inField, inContentType) Dim mOleHeadSize, mBytes Dim mFieldSize, mDumpaway mOleHeadSize = 78 inContentType = LCase(inContentType) Select Case inContentType Case "gif", "jpeg", "bmp" inContentType = "image/" & inContentType mBytes = inField.value Case "ole" inContentType = "image/bmp" mFieldSize = inField.ActualSize mDumpaway = inField.GetChunk(mOleHeadSize) mBytes = inField.GetChunk(mFieldSize - mOleHeadSize) End Select Session("ImageBytes") = mBytes Session("ImageType") = inContentType End Function %>