<% 'server.ScriptTimeout=99999999 'Err.Clear 'On Error Resume Next vpaginax = Request("pagina") if trim(vpaginax) = "" or isnull(vpaginax) then vpaginax = "1" end if vpn = request("fabricante") vtipo = request("tipo") vfamiliak = request("familia") MySQL_STRING="Driver={MySQL ODBC 5.1 Driver};Server=robb0501.publiccloud.com.br;Port=3306;Database=OKEY_produtos;User=OKEY_usuario; Password=#okbd2017#;Option=3;" set OBJdbConnection = Server.CreateObject("ADODB.Connection") set rs= Server.CreateObject("ADODB.Recordset") OBJdbConnection.Open MySQL_STRING rs.ActiveConnection = OBJdbConnection set fs=Server.CreateObject("Scripting.FileSystemObject") ARQUIVO = "TABELA_PRECO" vb=request("caixa_busca") if vb <> "" then SQL = "SELECT * FROM tabela_preco WHERE descricao LIKE '%" & vb & "%'" 'Response.Write SQL 'response.End() Set rs=OBJdbConnection.Execute(SQL) if rs.eof then Response.Redirect "https://www.okey.com.br" end if else if not isnull(vfamiliak) and vfamiliak <> "" then SQL = "SELECT * FROM tabela_preco WHERE familia ='" & vfamiliak & "' ORDER BY TIPO ASC " vtipo = vfamiliak end if if not isnull(vpn) and not isnull(vtipo) and vpn <> "" and vtipo <> "" then SQL = "SELECT * FROM tabela_preco WHERE fornecedor ='" & vpn & "' AND TIPO ='" & vtipo & "' ORDER BY FAMILIA ASC " end if if (isnull(vpn) or vpn = "") and (isnull(vfamiliak) or vfamiliak = "") then SQL = "SELECT * FROM tabela_preco WHERE TIPO ='" & vtipo & "' ORDER BY TIPO ASC " end if Set rs=OBJdbConnection.Execute(SQL) if rs.eof then SQL = "SELECT * FROM tabela_preco WHERE fornecedor ='" & "ATILABEL" & "' ORDER BY FAMILIA ASC " Set rs=OBJdbConnection.Execute(SQL) end if end if if not rs.eof then vcr = 0 vcontareg = 250 do while not rs.eof vcr = vcr + 1 rs.movenext loop if vcr < 5 then vcontareg = 270 end if if vcr > 4 and vcr <=8 then vcontareg = 490 end if if vcr > 8 and vcr <=12 then vcontareg = 720 end if if vcr > 12 then vcontareg = 930 end if rs.movefirst ' FAZ CONTAGEM DE PAGINAS NA SELECAO vtotalregistros = 0 vtotalf=0 do while not rs.eof vtotalregistros = vtotalregistros + 1 rs.movenext loop vfor = ((vpaginax -1) * 16) + 1 if vfor = 1 then rs.movefirst else rs.movefirst for y = 1 to vfor -1 if not rs.eof then rs.movenext end if next end if vtpag = ROUND(vtotalregistros / 16,1) if vtpag > int(vtpag) then vtpag = int(vtpag) + 1 end if vap = "" if vtpag = 0 then vtpag = 1 end if for y = 1 to vtpag vap = vap & y & "^" next varray = Split(vap,"^") vtx = (vcr - vfor) + 1 if vtx < 5 then vcontareg = 270 end if if vtx > 4 and vtx <=8 then vcontareg = 490 end if if vtx > 8 and vtx <=12 then vcontareg = 720 end if if vtx > 12 then vcontareg = 930 end if end if if rs.eof then Response.Redirect "https://www.okey.com.br" end if vtipo = replace(vtipo,"%20"," ") %> <% = vtipo %> /> name=Description> name=title> > > > > > />
  • Coletores de dados

    Zebra - Motorola

  • Impressoras de etiquetas e código de barras

    Modelos

  • Assistência técnica

    Modelos

  • Etiquetas adesivas e rotulos coloridos

    Modelos

  • Peças e acessórios

    Modelos

  • Impressoras de etiquetas adesivas coloridas

    Modelos

  • Ribbons para impressoras de cartão e crachás

    Modelos

  • RFID, Tags e brinco para bois e animais

    Modelos

<% = vtipo %>

<% = vtipo %>

<% = "Seleção de produtos que contém a descrição : " & vtipo %>

<% IF rs.eof then %> <% else %> <% vtop = 0 %> <% vconta = 1 %> <% vtot = 1 %> <% vleft = 0 %> <% do while not rs.eof %> <% vcodigok = rs("codigo") %> <% vdescricao = rs("descricao") %>
<% vproduto_imagem = "/pn-imagens/" & vcodigok & ".jpg" %> <% if fs.FileExists(Server.MapPath(vproduto_imagem))=true then %> class="ubea-card-item image-popup" title=<% = vdescricao %>> <% else %> > <% end if %>
<% = rs("fornecedor") %>
<% vproduto_imagem = "/pn-imagens/" & vcodigok & ".jpg" %> <% if fs.FileExists(Server.MapPath(vproduto_imagem))=true then %> alt=<% = mid(vdescricao,1,30) %> class=img-responsive> <% else %> Okey <% end if %>
<% = vcodigok %> - <% = mid(vdescricao,1,50-len(vcodigok)) %> <%= rs("preco_exibicao") %> Detalhes
5 2
<% rs.movenext %> <% vleft = vleft + 241%> <% vconta = vconta + 1 %> <% vtot = vtot +1 %> <% if vconta > 4 then %> <%vtop = vtop + 220%> <% vleft = 0 %> <% vconta = 1 %> <% end if %> <% if vtop > 660 then %> <% exit do %> <% end if %> <% loop %>
Registros : <% =vcr %> - Páginas :<% for w = 0 to Ubound(varray) %> <% if w+1 = cdbl(vpaginax) then %> <% vcolor = "#FF0000" %> <% else %> <% vcolor = "#0000FF" %> <% end if %> <% =varray(w)%> <% next %> |Proximo...|
<% end if %>

Portifólio

Aluguel de Coletores de dados e leitores sem fio, coletores para eventos, locação de impressora Zebra e Argox para eventos, aluguel de impressoras de etiquetas, Aluguel de Videowall, Aluguel de Tablets, Outsourcing, Aluguel de Tlp2844 Zebra, Aluguel de impressoras Bluetooth, QRcode, mini leitores Bluetooth e impressoras móveis. Impressoras ARGOX, ZEBRA, DATAMAX

Onde atuamos

ALUGUEL DE EQUIPAMENTOS PARA FEIRAS DE EXPOSIÇÃO, CONGRESSOS, PALESTRAS, ALUGUEL DE IMPRESSORAS, IMPRESSORAS DE ETIQUETAS PARA EVENTOS

SISTEMAS PARA INVENTÁRIOS, EMISSÃO DE PEDIDOS EM FEIRAS DE EXPOSIÇÃO, ALUGUEL DE COLETORES DE DADOS

Assistência técnica

Assistência técnica autorizada ZEBRA, DATAMAX, TSC, INTERMEC, HONEYWELL, SYMBOL, MOTOROLA, ZEBRACARD, DATECS. Consertamos qualquer equipamento nacional, fabricado no brasil, exceto impressoras fiscais e SAT. Mais informações

Aluguel de equipamentos

Aluguel de equipamentos para feiras de exposição, credenciamento, congressos, palestras, aluguel de impressoras de etiquetas para eventos. Uso de coletores de dados em feiras de exposição, Inventários, AIDC, configuração de TELNET, Proxy, Acesso a rede, envio de arquivos via Wifi, WaveLink, Emuladores, VT100 e VT200, IBM, acesso a dados na rede, transmissão de arquivos via Intranet, impressão via coletores de dados, instalação de equipamentos. Veja mais : Aluguel de equipamentos, Aluguel de coletores de dados, Aluguel de Impressoras

Etiquetas adesivas

Couchê adesivas Bopp fosco adesivas Bopp brilhante adesivas Tags não adesivos ( cartão ) Etiquetas para jóias bopp duplo uso Etiquetas coloridas Etiquetas para gôndolas Etiquetas emborrachadas Etiquetas removiveis Etiquetas em Tyvek Etiquetas especiais Orçamento por email etiqueta@okey.com.br

Impressoras digitais coloridas

Impressoras digitais coloridas para confecção de rótulos e etiquetas adesivas coloridas, Plotters, tintas coloridas, cartuchos similares e cartuchos originais Canon, Cartuchos HP, Ricoh, Cartuchos para impressoras laser, tintas sublimátias, tintas eco solvente, pigmentos para tintas, papel fotográfico, Papel adesivo para plotters, filamentos ABS e PLA, tudo para impressoras jato de tinta coloridas. Afinia, Afinia Label, Cordyne, Rapidlabels, Paxar, Avery Denisson, EPSON C7500 & C7500GE, EPSON C3500 e outras. Conheça mais...

Peças e acessórios

Peças e partes para impressoras Peças e partes para coletores de dados Peças e partes para leitores de código de barras Peças e partes para celulares e Smart Phones Peças e partes para Notebooks Peças e partes para computadores Correias para qualquer equipamentos Cabeça térmica ( Print Head ) para impressoras térmicas Roletes ( Plan Roller ) para impressoras Cabos, cabos para leitores, cabos para coletores de dados Baterias para leitores, baterias para coletores de dados e peças para impressoras zebra e manutenção em impressoras Zebra Orçamento por email pecas@okey.com.br

Softwares e aplicativos

Aplicativos para coletores de dados Softwares e aplicativos para feiras e eventos Aplicativos pessoais para celulares Android e IOS Softwares para impressão de código de barras Softwares para credenciamento em eventos Sites, Web Sites, Sites para venda de tickets e ingressos ON LINE Lojas ON LINE, Ecommerce, Wordpress

Você tem mais dúvidas ou quer falar conosco ? nos envie um e-mail que teremos o maior prazer em atende-lo : Fale conosco

Okey Solutions Automação

Etiquetas adesivas e ribbons

Desde : 01/10/1998

Web:

Telephone: (11)4818-1000 (11) 944904823 (Whatsapp)

Email : contato@okprime.com.br | okey.contato@gmail.com

Avenida Paulista 2073 Torre I São Paulo Bella VIsta 01311-940