<%
var_tempo=Request.form("r1")
if var_tempo<>"" then ' faça se nao for a primeira vez que carrega este arquivo na session
if var_tempo<>4 then
dat=Date()
if var_tempo=1 then
dat_antes=dat-6
end if
if var_tempo=2 then
dat_antes=dat-14
end if
if var_tempo=3 then
dat_antes=dat-29
end if
if var_tempo=5 then
dat_antes="01/01/1901"
end if
DiastrF=day(dat)
MesstrF=month(dat)
AnostrF=year(dat)
DiastrI=day(dat_antes)
MesstrI=month(dat_antes)
AnostrI=year(dat_antes)
session("var_dia_ini")=DiastrI
session("var_dia_fim")=DiastrF
session("var_mes_ini")=MesstrI
session("var_mes_fim")=MesstrF
session("var_ano_ini")=AnostrI
session("var_ano_fim")=AnostrF
end if
if var_tempo=4 then ' se for de ate
strDataIniDia=Request.Form("DataIniDia")
strDataIniMes=Request.Form("DataIniMes")
strDataIniAno=Request.Form("DataIniAno")
strDataFimDia=Request.Form("DataFimDia")
strDataFimMes=Request.Form("DataFimMes")
strDataFimAno=Request.Form("DataFimAno")
strI=strDataIniDia+"/"+strDataIniMes+"/"+strDataIniAno
strF=strDataFimDia+"/"+strDataFimMes+"/"+strDataFimAno
DiastrI=DatePart("D",strI)
MesstrI=DatePart("M",strI)
AnostrI=DatePart("YYYY",strI)
strI2=cStr(MesstrI)+"/"+cStr(DiastrI)+"/"+cStr(AnostrI)
DiastrF=DatePart("D",strF)
MesstrF=DatePart("M",strF)
AnostrF=DatePart("YYYY",strF)
strF2=cStr(MesstrF)+"/"+cStr(DiastrF)+"/"+cStr(AnostrF)
session("var_dia_ini")=DiastrI
session("var_dia_fim")=DiastrF
session("var_mes_ini")=MesstrI
session("var_mes_fim")=MesstrF
session("var_ano_ini")=AnostrI
session("var_ano_fim")=AnostrF
end if
session("var_campanha")=Request.form("s2")
end if
Set rs1 =Server.CreateObject("ADODB.Recordset")
SQLvendoweb="SELECT * FROM tb_Produtos ORDER BY tb_produtos.id_produto DESC;"
rs1.Open SQLvendoweb,conn3
%>
