%@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
| Pumps
& Maintenance Kits |
<%
While ((Repeat1__numRows <> 0) AND (NOT rsAccesorio.EOF))
%>
|
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
|
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsAccesorio.MoveNext()
Wend
%>
<%
rsTipo.Close()
%>
<%
rsAccesorio.Close()
%>