AB Inflatables

<%@LANGUAGE="VBSCRIPT"%> <% set oConn=Server.CreateObject("ADODB.Connection") oConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\nuevapagina\db\abinflatable.mdb") %> <% set rsMares = Server.CreateObject("ADODB.Recordset") rsMares.CursorType = 0 rsMares.CursorLocation = 2 rsMares.LockType = 3 rsMares.open "SELECT cnumero as icodigo,snombre as nombre FROM tbllinea where instr(snombre,'Mares') ORDER BY snombre", oConn %> <% set rsVentus = Server.CreateObject("ADODB.Recordset") rsVentus.CursorType = 0 rsVentus.CursorLocation = 2 rsVentus.LockType = 3 rsVentus.open "SELECT cnumero as icodigo, snombre as nombre FROM tbllinea where instr(snombre,'Ventus') ORDER BY snombre", oConn %> <% set rsNavigo = Server.CreateObject("ADODB.Recordset") rsNavigo.CursorType = 0 rsNavigo.CursorLocation = 2 rsNavigo.LockType = 3 rsNavigo.open "SELECT cnumero as icodigo, snombre as nombre FROM tbllinea where instr(snombre,'Navigo') ORDER BY snombre", oConn %> <% set rsLammina = Server.CreateObject("ADODB.Recordset") rsLammina.CursorType = 0 rsLammina.CursorLocation = 2 rsLammina.LockType = 3 rsLammina.open "SELECT cnumero as icodigo,snombre as nombre FROM tbllinea where instr(snombre,'Lammina') ORDER BY snombre", oConn %> <% set rsOceano = Server.CreateObject("ADODB.Recordset") rsOceano.CursorType = 0 rsOceano.CursorLocation = 2 rsOceano.LockType = 3 rsOceano.open "SELECT cnumero as icodigo,snombre as nombre FROM tbllinea where instr(snombre,'Oceanus') ORDER BY snombre", oConn %> <% set rsNautilus = Server.CreateObject("ADODB.Recordset") rsNautilus.CursorType = 0 rsNautilus.CursorLocation = 2 rsNautilus.LockType = 3 rsNautilus.open "SELECT cnumero as icodigo,snombre as nombre FROM tbllinea where instr(snombre,'Nautilus') ORDER BY snombre", oConn %> <% set rsCommercial = Server.CreateObject("ADODB.Recordset") rscommercial.CursorType = 0 rscommercial.CursorLocation = 2 rscommercial.LockType = 3 rsCommercial.open "SELECT cnumero as icodigo,snombre as nombre FROM tbllinea WHERE itipoproducto = 2", oConn %> <% set rsAccesorio = Server.CreateObject("ADODB.Recordset") rsaccesorio.CursorType = 0 rsaccesorio.CursorLocation = 2 rsaccesorio.LockType = 3 rsAccesorio.open "SELECT * FROM tbltipoaccesorio ORDER BY snombre", oConn %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rsCommercial_numRows = rsCommercial_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rsAccesorio_numRows = rsAccesorio_numRows + Repeat3__numRows %> AB Inflatables

To request a press release and/or photo of any of our boats, please click here or send an email to info@abinflatables.com

The requested information will be sent to you shortly after we receive your email.

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