AUTOMAÇÃO COMERCIAL OKEY ETIQUETA RIBBON MOTOROLA SYMBOL ELGIN METROLOGIG TECLADOS PROGRAMAVEIS TECLADO PROGRAMAVEL GERTEC ELGIN KEYTEC TERMOPLUS FOURTH PASSO CIS DARUMA 12 TECLAS 44 TECLAS PIN MAG GE LEITOR TRILHA LEC 12 LEC12 LEC123 107 TECLAS DISPLAY SOFTWARE RESTAURANTE SOFTWARE LOJA POSTO DE GASOLINA MOTEL ESTACIONAMENTO LOJAS AUTOMAÇÃO AUTOMACAO COMERCIAL TEKNISA TECNISA FOOD FAST LIGHT MINI DIM

<% 'On Error Resume Next Server.ScriptTimeout = 180 dim RS dim OBJdbConnection dim i Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "okey" SQL = "SELECT * FROM TABELA_PRECO WHERE PP='0' ORDER BY CODIGO" Set RS=OBJdbConnection.Execute(SQL) vpreco = "" do while not RS.eof if rs("indexado_dolar")="S" then if rs("preco_dolar") > 0 then vpreco = vpreco & formatnumber(rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"),2)& "^" vp0 = (rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"))/100 * rs("desconto_revenda") vprecor = vprecor & formatnumber((rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"))-vp0,2)& "^" else vpreco = vpreco & rs("preco_real") & "^" vprecor0 =rs("preco_real") - (rs("preco_real")/100 * rs("desconto_revenda")) vprecor = vprecor & vprecor0 & "^" end if else vpreco = vpreco & rs("preco_real") & "^" vprecor0 = rs("preco_real") - (rs("preco_real")/100 * rs("desconto_revenda")) vprecor = vprecor & vprecor0 & "^" end if rs.movenext loop array_preco1 = Split(vpreco,"^") SQL = "SELECT * FROM TABELA_PRECO WHERE PP='2' ORDER BY CODIGO" Set RS=OBJdbConnection.Execute(SQL) SQL = "SELECT * FROM TABELA_PRECO WHERE PP='3' ORDER BY CODIGO" Set RSL=OBJdbConnection.Execute(SQL) vdolardia = rs("dolar") Dim vcodigo, vpreco, array_preco, array_codigo vcodigo = "" vpreco = "" vdescricao = "" vimagempeq = "" vcatalogo= "" do while not RS.eof vcodigo = vcodigo & rs("codigo") & "^" if rs("indexado_dolar")="S" then if rs("preco_dolar") > 0 then vpreco = vpreco & formatnumber(rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"),2)& "^" vp0 = (rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"))/100 * rs("desconto_revenda") vprecor = vprecor & formatnumber((rs("preco_dolar") * rs("dolar")/100 * rs("margem_lucro") + rs("preco_dolar") * rs("dolar"))-vp0,2)& "^" else vpreco = vpreco & rs("preco_real") & "^" vprecor0 =rs("preco_real") - (rs("preco_real")/100 * rs("desconto_revenda")) vprecor = vprecor & vprecor0 & "^" end if else vpreco = vpreco & rs("preco_real") & "^" vprecor0 = rs("preco_real") - (rs("preco_real")/100 * rs("desconto_revenda")) vprecor = vprecor & vprecor0 & "^" end if vdescricao = vdescricao & rs("descricao") & "^" ' FAZ IMAGEM if isnull(rs("end_imagem_peq")) or trim(rs("end_imagem_peq")) = "" then vimagempeq = vimagempeq & "http://www.okey.com.br/imgpeq/semimagem_peq.gif" & "^" else if trim(rs("end_imagem_peq")) = "-" then vimagempeq = vimagempeq & "http://www.okey.com.br/imgpeq/" & trim(rs("codigo")) & ".jpg" & "^" else vimagempeq = vimagempeq & trim(rs("end_imagem_peq")) & "^" end if end if ' FAZ CATALOGO if isnull(rs("endereco_catalogo")) or trim(rs("endereco_catalogo")) = "" then vcatalogo = vcatalogo & "http://www.okey.com.br/catalogo/semcatalogo.htm" & "^" else if trim(rs("endereco_catalogo")) = "-" then vcatalogo = vcatalogo & "http://www.okey.com.br/catalogos/" & trim(rs("codigo")) & ".pdf" & "^" else vcatalogo = vcatalogo & trim(rs("endereco_catalogo")) & "^" end if end if rs.movenext loop array_codigo = Split(vcodigo,"^") array_preco = Split(vpreco,"^") array_precor = Split(vprecor,"^") array_descricao = Split(vdescricao,"^") array_imagempeq = Split(vimagempeq,"^") array_catalogo = Split(vcatalogo,"^") if Ubound(array_codigo)> 1 then vlen = Ubound(array_codigo)/3 else if Ubound(array_codigo) = 1 then vlen = 1 else vlen = 0 end if end if if vlen >0 and vlen <1 then vlen = 1 end if if cdbl(instr(1,vlen,",")) > 0 then vlen = cint(vlen) + 1 end if vti = Ubound(array_codigo)-1 SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM TABELA_PRECO WHERE FORNECEDOR <> '' ORDER BY FORNECEDOR,TIPO" Set RS=OBJdbConnection.Execute(SQL) if trim(Session("email_carrinho")) <> "" then vrevenda = Session("email_carrinho") else vrevenda = "" end if ' %>

Tudo para automação comercial, industrial e informática