Verifique se os nomes dos campos estão corretos com o que você tem no BD set rs=conexao.execute("select cod_trans , tipo_tranporte, quant from transporte where nume_trans='"&valor&"' group by cod_trans , tipo_tranporte, quant")
eu não sei como está a sua tabela transporte, mas tente com group by que já te traz o total de cada um. Monta no loop do select uma array que voce poderá comparar no segundo loop que é do insert. não entendi
linha é texto ou numero na tabela? se for texto: strSQL= "SELECT distinct(grupo) FROM TblistaPrecos where grupos_lista_grupo=" &varLinhaProd& " AND linha='" &varCatProd& "' group by grupo " e verifique se grupos_lista_grupo é numero mesmo.
não sei se tem maneira melhor pra se fazer mas a que me veio em mente seria criar um contador, que pode iniciar em 0 ou 1. Dentro do loop voce faz um if if contador = 1 then
contador = 2 'para não cair mais nesse If
tab.movenext
end if tenta aí
Eu gosto do chartDirector maaaaaaas não é free... tem o Dundas mas a questao é que você tem que ver ANTES se o teu servidor web dá suporte a algum e se sim... qual.
Vo ser boazinha com você mas não acostuma não viu :lol: anexei um ZIP de arquivos que eu montei aqui, tem o login e exibição de dados conforme o perfil....... bom apetite!!
ah não desista!! são nas dificuldades que aprendemos! pena que aqui não tenho como te ajudar ++ porque não tem access, sql server, nada pra rodar ASP meu projeto na empresa é Java então o que eu posso te indicar é a logica e codigos que eu não garanto que estejam certos se você pegar alguma coisa pronta, tente dar uma estudada... procura aqui no forum tambem... codigos prontos...
Voce tem 3 niveis de acesso, acho melhor você usar em vez de flag uma numeracao. Uma tabela com os perfis e os respectivos numeros de acesso e na tabela de login somente o numero qual o usuario pertence. Depois é só no IF, if perfil = 1 then .........
Voce pode usar na consulta por exemplo: perfil = session("perfil")
if perfil = 1 then
campos = "*" 'ou seja, verá todos os campos da tabela
else
campos = "campo1"
end if
sql = "select "& campos &" from TABELA"