% 'vpn = "MC3090R-LM48S00LER" vpn = mid(request("produto"),1,5) 'vpn = "COLETOR" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" if trim(vpn) <> "" then SQL = "SELECT DISTINCT FORNECEDOR,FAMILIA FROM tabela_preco WHERE mid(familia,1,5) ='" & vpn & "' ORDER BY FORNECEDOR" Set rs=OBJdbConnection.Execute(SQL) SQL = "SELECT DISTINCT PRECO_EXIBICAO,FAMILIA FROM tabela_preco WHERE mid(familia,1,5) ='" & vpn & "' ORDER BY PRECO_EXIBICAO DESC" Set rs2=OBJdbConnection.Execute(SQL) vmaior_preco = rs2("preco_exibicao") v0 = vmaior_preco/8 v1 = v0+v0 v2 = v0+v0+v0 v3 = v0+v0+v0+v0 v4 = v0+v0+v0+v0+v0 v5 = v0+v0+v0+v0+v0+v0 v6 = v0+v0+v0+v0+v0+v0+v0 v7 = v0+v0+v0+v0+v0+v0+v0+v0 end if %>