%@LANGUAGE="VBSCRIPT"%>
<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\nuevapagina\db\abinflatable.mdb")
Dim rsTipo__codigo
rsTipo__codigo = "0"
if (request("codigo") <> "") then rsTipo__codigo = request("codigo")
%>
<%
set rsTipo = Server.CreateObject("ADODB.Recordset")
rsTipo.open "select * from tbltipoaccesorio where cnumero = " + Replace(rsTipo__codigo, "'", "''") + "",oconn
%>
<%
Dim rsAccesorio__codigo
rsAccesorio__codigo = "1"
if (request("codigo") <> "") then rsAccesorio__codigo = request("codigo")
%>
<%
set rsAccesorio = Server.CreateObject("ADODB.Recordset")
rsAccesorio.open "SELECT * FROM tblaccesorios WHERE itipoaccesorio = " + Replace(rsAccesorio__codigo, "'", "''") + "",oconn
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsAccesorio_numRows = rsAccesorio_numRows + Repeat1__numRows
%>
| Drain
Plugs & Valves |
| Expanding
Drain Plug |
 |
|
| For
Boat Model (s): |
|
Ventus
Navigo
Oceanus
Nautilus
|
|
|
| Part
Number: |
| 85038-00000001 |
|
| Sleeve
for Expanding Drain Plug |
 |
|
| For
Boat Model (s): |
|
Ventus
Navigo
Oceanus
Nautilus
|
|
|
| Part
Number: |
| 85038-00000021 |
|
| Drain
Sleeve for Hose Attachment |
 |
|
| For
Boat Model (s): |
|
Navigo
Oceanus
Nautilus
|
|
|
| Part
Number: |
| 85038-00000023 |
|
| Drain
Socket with O-Ring & Safety Plug |
 |
|
| For
Boat Model (s): |
|
Ventus
Lammina
Navigo
Oceanus
(VSC models only)
|
|
|
| Part
Number: |
|
85038-00000023
85038-00000023
85038-00000023
85038-00000023
|
|
| AB
Push-Push Valve |
 |
|
| For
Boat Model (s): |
|
All
|
|
|
| Part
Number: |
|
85044-00000004
|
|
| AB
Push-Push Valve Fill Adapter |
 |
|
| For
Boat Model (s): |
|
All
|
|
|
| Part
Number: |
|
85044-00000010
|
|
| |
|
|
|
|
<%
rsTipo.Close()
%>
<%
rsAccesorio.Close()
%>