<%
ARQUIVO = "tabela_preco"
vfamilia =""
vfamilia = Request("familia")
vfornecedor = ""
vfornecedor = Request("fornecedor")
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"
SQL2 = "SELECT * FROM TABELA_PRECO"
Set RS2=OBJdbConnection.Execute(SQL2)
vdolardia = rs2("dolar")
RS2.CLOSE
If vfamilia <> "" then
SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM TABELA_PRECO WHERE FAMILIA ='" & vfamilia & "' ORDER BY FORNECEDOR,TIPO"
end if
if vfornecedor <> "" then
SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM TABELA_PRECO WHERE FORNECEDOR ='" & vfornecedor & "' ORDER BY FORNECEDOR,TIPO"
end if
Set RS=OBJdbConnection.Execute(SQL)
if RS.EOF then
erro = "1"
end if
if trim(Session("email_carrinho")) <> "" then
vrevenda = Session("email_carrinho")
else
vrevenda = ""
end if
%>
<% if trim(vrevenda) = "" then %>
<% else %>
<% end if %>
<% if trim(vrevenda) = "" then %>
<% else %>
>
<% end if %>
