<%@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 %> AB Inflatable <% While ((Repeat1__numRows <> 0) AND (NOT rsAccesorio.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsAccesorio.MoveNext() Wend %>
 Pumps & Maintenance Kits
 Double Action Hand Pump, 4lt.
 
 For Boat Model (s):

All

 
 
 Part Number:

85012-00000004
 Maintenance Kits
 
Hypalon Color:

Light Grey

Dark Grey

White

Red

Orange
 
 Part Number:

85025-00000110

85025-00000111

85025-00000112

85025-00000113

85025-00000114

<% rsTipo.Close() %> <% rsAccesorio.Close() %>