<%
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
SQL = "SELECT DISTINCT TIPO FROM TABELA_PRECO WHERE FAMILIA ='" & vfamilia & "' ORDER BY TIPO"
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 %>
DOLAR
: <%= vdolardia %>
<% do while not rs.eof %>
<% rs.movenext %>
<% loop %>
<% OBJdbConnection.close %>
CATEGORIA
QTD
" target="mainFrame"><%=UCASE(RS("tipo"))%>
<% SQL2 = "SELECT COUNT (tipo) AS qtdtipo FROM tabela_preco where tipo ='" & rs("tipo") & "'" %>
<% Set RS2=OBJdbConnection.Execute(SQL2) %>
<% vqtd = rs2.fields ("qtdtipo")%>
