<% mypathall = server.mappath(request.servervariables("path_info")) mypathlen = len(mypathall) mypathlen = mypathlen - 10 mypath = mid(mypathall,1,mypathlen) set FNBCon=server.createobject("ADODB.connection") strConecta="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath & "products.mdb;persist security info=false" FNBCon.open strConecta %>
FORNECEDORA DE NAVIOS
BANDEIRANTES LTDA.
what check
 
Versão em Português
Find the product:

Today, 24 years later, we can gladly offer to our clients a very professional attendance. All materials of different nature, are always
delivered on board of vessels and/or at de shore terminals duly accommodated into special designed galvanized iron cages (600 kgs capacity each),
which grants a safe and smooth handling of the products, avoiding any risks of damages.

Dunnage
Lashing material
Cleaning material
Cargo protection
Provision
Miscelaneous

To alter selected quantitive in your order, type new quantity and press REFRESH button.
To have a product cancelled, type 0 (zero) on "quantity field" and press REFRESH button.
To cancel all items from your list, just press RESET button.

Request form <% auxnull = request(auxnull) %> <% if auxnull = 1 or session("cdpedido") <> 0 then %> <% comsql = "select * from pedidos where cd_pedido =" & session("cdpedido") set PedRS=FNBCon.execute(comsql, adOpenforwardonly) %> <% if not PedRS.EOF then %> <% PedRS.Movefirst do while not PedRS.eof %> <% PedRS.MoveNext loop PedRS.Close FNBCon.Close %> <% else session("cdpedido") = 0 end if %> <% end if %>
Product
Qty.
Standard
<% auxstr = PedRS.Fields("nm_product") if len(auxstr) > 29 then response.write left(auxstr, 30)& "..." else response.write auxstr end if %> " size="4" value="<%=PedRS.Fields("qt_product")%>"> <%=PedRS.Fields("nm_stand")%>