<%@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 %>
 Light Arches
 Aluminum Light Arch
   For Boat Model (s):    Part Number:

19 VST

24 VST

88082-00000570

88082-00000570
<% rsTipo.Close() %> <% rsAccesorio.Close() %>