<% dim rsDate Call CreerConn Set rsDate = Server.CreateObject("ADODB.Recordset") rsDate.Open "SELECT * from tblPrixEncan where f2 <> null order by f2 desc" , Conn,1,3 '_____________________________________________________________________________________ 'Positionner sur le recordset en fonction de la date choisie dim rs dim DateVente dim f7, f12, f17, f22, f27, f32 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rs.movefirst rs.find "f2 = " &request("ListeDate") if not isnull(rs("f7")) then f7 = round(rs("f7"),2) f12 = round(rs("f12"),2) f17 = round(rs("f17"),2) f22 = round(rs("f22"),2) f27 = round(rs("f27"),2) f32 = round(rs("f32"),2) else f7 = rs("f7") f12 = rs("f12") f17 = rs("f17") f22 = rs("f22") f27 = rs("f27") f32 = rs("f32") end if if rs("f2")= #01-07-2002# then DateVente = "" else DateVente = rs("f2") end if '____________________________________________________________________________ 'Ecart-Quantite- Calcul moyen dernière semaine et date semaine précédente - moins de 49 lbs dim rsSemPre dim inf dim sup dim tot dim SemainePrecedente Set rsSemPre = Server.CreateObject("ADODB.Recordset") rsSemPre.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPre.movefirst rsSemPre.find "f2 = " &request("ListeDate") if rsSemPre("f2") <> #01-07-2002# then sup = rsSemPre("f5") rsSemPre.moveprevious inf = rsSemPre("f5") SemainePrecedente = rsSemPre("f2") tot = sup - inf else SemainePrecedente = "" end if '____________________________________________________________________________ 'Ecart-Quantité- Calcul moyen dernière semaine et date semaine précédente - 50 à 64 lbs dim rsSemPre50 dim inf50 dim sup50 dim tot50 dim SemainePrecedente50 Set rsSemPre50 = Server.CreateObject("ADODB.Recordset") rsSemPre50.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPre50.movefirst rsSemPre50.find "f2 = " &request("ListeDate") sup50 = rsSemPre50("f10") rsSemPre50.moveprevious inf50 = rsSemPre50("f10") SemainePrecedente50 = rsSemPre50("f2") tot50 = sup50 - inf50 '____________________________________________________________________________ 'Ecart-Quantite- Calcul moyen dernière semaine et date semaine précédente - 65 à 79 lbs dim rsSemPre65 dim inf65 dim sup65 dim tot65 dim SemainePrecedente65 Set rsSemPre65 = Server.CreateObject("ADODB.Recordset") rsSemPre65.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPre65.movefirst rsSemPre65.find "f2 = " &request("ListeDate") sup65 = rsSemPre65("f15") rsSemPre65.moveprevious inf65 = rsSemPre65("f15") SemainePrecedente65 = rsSemPre65("f2") tot65 = sup65 - inf65 '____________________________________________________________________________ 'Ecart-Quantite- Calcul moyen dernière semaine et date semaine précédente - 80 à 95 lbs dim rsSemPre80 dim inf80 dim sup80 dim tot80 dim SemainePrecedente80 Set rsSemPre80 = Server.CreateObject("ADODB.Recordset") rsSemPre80.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPre80.movefirst rsSemPre80.find "f2 = " &request("ListeDate") sup80 = rsSemPre80("f20") rsSemPre80.moveprevious inf80 = rsSemPre80("f20") SemainePrecedente80 = rsSemPre80("f2") tot80 = sup80 - inf80 '____________________________________________________________________________ 'Ecart-Quantite- Calcul moyen dernière semaine et date semaine précédente - plus de 96 lbs dim rsSemPre96 dim inf96 dim sup96 dim tot96 dim SemainePrecedente96 Set rsSemPre96 = Server.CreateObject("ADODB.Recordset") rsSemPre96.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPre96.movefirst rsSemPre96.find "f2 = " &request("ListeDate") sup96 = rsSemPre96("f25") rsSemPre96.moveprevious inf96 = rsSemPre96("f25") SemainePrecedente96 = rsSemPre96("f2") tot96 = sup96 - inf96 '____________________________________________________________________________ 'Ecart-Quantite- Calcul moyen dernière semaine et date semaine précédente - Brebis et béliers dim rsSemPreBrebis dim infBrebis dim supBrebis dim totBrebis dim SemainePrecedenteBrebis Set rsSemPreBrebis = Server.CreateObject("ADODB.Recordset") rsSemPreBrebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsSemPreBrebis.movefirst rsSemPreBrebis.find "f2 = " &request("ListeDate") supBrebis = rsSemPreBrebis("f30") rsSemPreBrebis.moveprevious infBrebis = rsSemPreBrebis("f30") SemainePrecedenteBrebis = rsSemPreBrebis("f2") totBrebis = supBrebis - infBrebis '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - moins de 49 lbs dim rsPrec4 dim Sem1, Sem4, val dim Donnee1, Donnee2, Donnee3, Donnee4 dim Moy dim tottempo dim compteur compteur = 0 Set rsPrec4 = Server.CreateObject("ADODB.Recordset") rsPrec4.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4.movefirst rsPrec4.find "f2 = " &request("ListeDate") val = rsPrec4("f5") rsPrec4.moveprevious Sem1 = rsPrec4("f2") Donnee1 = rsPrec4("f5") rsPrec4.moveprevious Donnee2 = rsPrec4("f5") rsPrec4.moveprevious Donnee3 = rsPrec4("f5") rsPrec4.moveprevious Sem4 = rsPrec4("f2") Donnee4 = rsPrec4("f5") if sem1 = #24-06-2002# then Sem1 = "" end if if sem4 = #03-06-2002# then Sem4 = "" end if 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1) then tottempo = tottempo + donnee1 compteur = compteur + 1 end if if not isnull(donnee2) then tottempo = tottempo + donnee2 compteur = compteur + 1 end if if not isnull(donnee3) then tottempo = tottempo + donnee3 compteur = compteur + 1 end if if not isnull(donnee4) then tottempo = tottempo + donnee4 compteur = compteur + 1 end if Moy = tottempo / compteur Moy = val - moy if isnull(Moy) then Moy = val - moy else Moy = cint(Moy) end if '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - 50 à 64 lbs dim rsPrec450 dim Sem150, Sem450, val50 dim Donnee150, Donnee250, Donnee350, Donnee450 dim Moy50 dim tottempo50 dim compteur50 compteur50 = 0 Set rsPrec450 = Server.CreateObject("ADODB.Recordset") rsPrec450.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec450.movefirst rsPrec450.find "f2 = " &request("ListeDate") val50 = rsPrec450("f10") rsPrec450.moveprevious Sem150 = rsPrec450("f2") Donnee150 = rsPrec450("f10") rsPrec450.moveprevious Donnee250 = rsPrec450("f10") rsPrec450.moveprevious Donnee350 = rsPrec450("f10") rsPrec450.moveprevious Sem450 = rsPrec450("f2") Donnee450 = rsPrec450("f10") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee150) then tottempo50 = tottempo50 + donnee150 compteur50 = compteur50 + 1 end if if not isnull(donnee250) then tottempo50 = tottempo50 + donnee250 compteur50 = compteur50 + 1 end if if not isnull(donnee350) then tottempo50 = tottempo50 + donnee350 compteur50 = compteur50 + 1 end if if not isnull(donnee450) then tottempo50 = tottempo50 + donnee450 compteur50 = compteur50 + 1 end if Moy50 = tottempo50 / compteur50 Moy50 = val50 - moy50 if isnull(Moy50) then Moy50 = val50 - moy50 else Moy50 = cint(Moy50) end if '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - 65 à 79 lbs dim rsPrec465 dim Sem165, Sem465, val65 dim Donnee165, Donnee265, Donnee365, Donnee465 dim Moy65 dim tottempo65 dim compteur65 compteur65 = 0 Set rsPrec465 = Server.CreateObject("ADODB.Recordset") rsPrec465.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec465.movefirst rsPrec465.find "f2 = " &request("ListeDate") val65 = rsPrec465("f15") rsPrec465.moveprevious Sem165 = rsPrec465("f2") Donnee165 = rsPrec465("f15") rsPrec465.moveprevious Donnee265 = rsPrec465("f15") rsPrec465.moveprevious Donnee365 = rsPrec465("f15") rsPrec465.moveprevious Sem465 = rsPrec465("f2") Donnee465 = rsPrec465("f15") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee165) then tottempo65 = tottempo65 + donnee165 compteur65 = compteur65 + 1 end if if not isnull(donnee265) then tottempo65 = tottempo65 + donnee265 compteur65 = compteur65 + 1 end if if not isnull(donnee365) then tottempo65 = tottempo65 + donnee365 compteur65 = compteur65 + 1 end if if not isnull(donnee465) then tottempo65 = tottempo65 + donnee465 compteur65 = compteur65 + 1 end if Moy65 = tottempo65 / compteur65 Moy65 = val65 - moy65 if isnull(Moy65) then Moy65 = val65 - moy65 else Moy65 = cint(Moy65) end if '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - 80 à 95 lbs dim rsPrec480 dim Sem180, Sem480, val80 dim Donnee180, Donnee280, Donnee380, Donnee480 dim Moy80 dim tottempo80 dim compteur80 compteur80 = 0 Set rsPrec480 = Server.CreateObject("ADODB.Recordset") rsPrec480.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec480.movefirst rsPrec480.find "f2 = " &request("ListeDate") val80 = rsPrec480("f20") rsPrec480.moveprevious Sem180 = rsPrec480("f2") Donnee180 = rsPrec480("f20") rsPrec480.moveprevious Donnee280 = rsPrec480("f20") rsPrec480.moveprevious Donnee380 = rsPrec480("f20") rsPrec480.moveprevious Sem480 = rsPrec480("f2") Donnee480 = rsPrec480("f20") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee180) then tottempo80 = tottempo80 + donnee180 compteur80 = compteur80 + 1 end if if not isnull(donnee280) then tottempo80 = tottempo80 + donnee280 compteur80 = compteur80 + 1 end if if not isnull(donnee380) then tottempo80 = tottempo80 + donnee380 compteur80 = compteur80 + 1 end if if not isnull(donnee480) then tottempo80 = tottempo80 + donnee480 compteur80 = compteur80 + 1 end if Moy80 = tottempo80 / compteur80 Moy80 = val80 - moy80 if isnull(Moy80) then Moy80 = val80 - moy80 else Moy80 = cint(Moy80) end if '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - plus de 96 lbs dim rsPrec496 dim Sem196, Sem496, val96 dim Donnee196, Donnee296, Donnee396, Donnee496 dim Moy96 dim tottempo96 dim compteur96 compteur96 = 0 Set rsPrec496 = Server.CreateObject("ADODB.Recordset") rsPrec496.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec496.movefirst rsPrec496.find "f2 = " &request("ListeDate") val96 = rsPrec496("f25") rsPrec496.moveprevious Sem196 = rsPrec496("f2") Donnee196 = rsPrec496("f25") rsPrec496.moveprevious Donnee296 = rsPrec496("f25") rsPrec496.moveprevious Donnee396 = rsPrec496("f25") rsPrec496.moveprevious Sem496 = rsPrec496("f2") Donnee496 = rsPrec496("f25") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee196) then tottempo96 = tottempo96 + donnee196 compteur96 = compteur96 + 1 end if if not isnull(donnee296) then tottempo96 = tottempo96 + donnee296 compteur96 = compteur96 + 1 end if if not isnull(donnee396) then tottempo96 = tottempo96 + donnee396 compteur96 = compteur96 + 1 end if if not isnull(donnee496) then tottempo96 = tottempo96 + donnee496 compteur96 = compteur96 + 1 end if Moy96 = tottempo96 / compteur96 Moy96 = val96 - moy96 if isnull(Moy96) then Moy96 = val96 - moy96 else Moy96 = cint(Moy96) end if '____________________________________________________________________________ 'Ecart-Quantite- Moyenne des 4 dernières semaines et dates des 4 dernières semaines - Brebis et béliers dim rsPrec4Brebis dim Sem1Brebis, Sem4Brebis, valBrebis dim Donnee1Brebis, Donnee2Brebis, Donnee3Brebis, Donnee4Brebis dim MoyBrebis dim tottempoBrebis dim compteurBrebis compteurBrebis = 0 Set rsPrec4Brebis = Server.CreateObject("ADODB.Recordset") rsPrec4Brebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4Brebis.movefirst rsPrec4Brebis.find "f2 = " &request("ListeDate") valBrebis = rsPrec4Brebis("f30") rsPrec4Brebis.moveprevious Sem1Brebis = rsPrec4Brebis("f2") Donnee1Brebis = rsPrec4Brebis("f30") rsPrec4Brebis.moveprevious Donnee2Brebis = rsPrec4Brebis("f30") rsPrec4Brebis.moveprevious Donnee3Brebis = rsPrec4Brebis("f30") rsPrec4Brebis.moveprevious Sem4Brebis = rsPrec4Brebis("f2") Donnee4Brebis = rsPrec4Brebis("f30") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1Brebis) then tottempoBrebis = tottempoBrebis + donnee1Brebis compteurBrebis = compteurBrebis + 1 end if if not isnull(donnee2Brebis) then tottempoBrebis = tottempoBrebis + donnee2Brebis compteurBrebis = compteurBrebis + 1 end if if not isnull(donnee3Brebis) then tottempoBrebis = tottempoBrebis + donnee3Brebis compteurBrebis = compteurBrebis + 1 end if if not isnull(donnee4Brebis) then tottempoBrebis = tottempoBrebis + donnee4Brebis compteurBrebis = compteurBrebis + 1 end if MoyBrebis = tottempoBrebis / compteurBrebis MoyBrebis = valBrebis - moyBrebis if isnull(MoyBrebis) then MoyBrebis = valBrebis - moyBrebis else MoyBrebis = cint(MoyBrebis) end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - moins de 49 lbs Dim rsDep dim result dim annPrec Set rsDep = Server.CreateObject("ADODB.Recordset") rsDep.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep.movefirst rsDep.find "f2 = " &request("ListeDate") Dim rsAnneePrec Set rsAnneePrec = Server.CreateObject("ADODB.Recordset") rsAnneePrec.Open "SELECT * from tblPrixEncan where f1= " &rsDep("F1") &" and f2 < #" &rsDep("f2") &"# and f2 > #" &rsDep("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrec.eof then annPrec = rsAnneePrec("f2") result = rsDep("f5") - rsAnneePrec("f5") if annPrec = #02-07-2001# then annPrec ="" end if end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - 50 à 64 lbs Dim rsDep50 dim result50 dim annPrec50 Set rsDep50 = Server.CreateObject("ADODB.Recordset") rsDep50.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep50.movefirst rsDep50.find "f2 = " &request("ListeDate") Dim rsAnneePrec50 Set rsAnneePrec50 = Server.CreateObject("ADODB.Recordset") rsAnneePrec50.Open "SELECT * from tblPrixEncan where f1= " &rsDep50("F1") &" and f2 < #" &rsDep50("f2") &"# and f2 > #" &rsDep50("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrec50.eof then annPrec50 = rsAnneePrec50("f2") result50 = rsDep50("f10") - rsAnneePrec50("f10") end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - 65 à 79 lbs Dim rsDep65 dim result65 dim annPrec65 Set rsDep65 = Server.CreateObject("ADODB.Recordset") rsDep65.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep65.movefirst rsDep65.find "f2 = " &request("ListeDate") Dim rsAnneePrec65 Set rsAnneePrec65 = Server.CreateObject("ADODB.Recordset") rsAnneePrec65.Open "SELECT * from tblPrixEncan where f1= " &rsDep65("F1") &" and f2 < #" &rsDep65("f2") &"# and f2 > #" &rsDep65("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrec65.eof then annPrec65 = rsAnneePrec65("f2") result65 = rsDep65("f15") - rsAnneePrec65("f15") end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - 80 à 95 lbs Dim rsDep80 dim result80 dim annPrec80 Set rsDep80 = Server.CreateObject("ADODB.Recordset") rsDep80.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep80.movefirst rsDep80.find "f2 = " &request("ListeDate") Dim rsAnneePrec80 Set rsAnneePrec80 = Server.CreateObject("ADODB.Recordset") rsAnneePrec80.Open "SELECT * from tblPrixEncan where f1= " &rsDep80("F1") &" and f2 < #" &rsDep80("f2") &"# and f2 > #" &rsDep80("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrec80.eof then annPrec80 = rsAnneePrec80("f2") result80 = rsDep80("f20") - rsAnneePrec80("f20") end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - plus de 96 lbs Dim rsDep96 dim result96 dim annPrec96 Set rsDep96 = Server.CreateObject("ADODB.Recordset") rsDep96.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep96.movefirst rsDep96.find "f2 = " &request("ListeDate") Dim rsAnneePrec96 Set rsAnneePrec96 = Server.CreateObject("ADODB.Recordset") rsAnneePrec96.Open "SELECT * from tblPrixEncan where f1= " &rsDep96("F1") &" and f2 < #" &rsDep96("f2") &"# and f2 > #" &rsDep96("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrec96.eof then annPrec96 = rsAnneePrec96("f2") result96 = rsDep96("f25") - rsAnneePrec96("f25") end if '____________________________________________________________________________________ 'Ecart-Quantite- Pareille date l'année précédente - Brebis et béliers Dim rsDepBrebis dim resultBrebis dim annPrecBrebis Set rsDepBrebis = Server.CreateObject("ADODB.Recordset") rsDepBrebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepBrebis.movefirst rsDepBrebis.find "f2 = " &request("ListeDate") Dim rsAnneePrecBrebis Set rsAnneePrecBrebis = Server.CreateObject("ADODB.Recordset") rsAnneePrecBrebis.Open "SELECT * from tblPrixEncan where f1= " &rsDepBrebis("F1") &" and f2 < #" &rsDepBrebis("f2") &"# and f2 > #" &rsDepBrebis("f2")-400 &"#", Conn, adopenstatic if not rsAnneePrecBrebis.eof then annPrecBrebis = rsAnneePrecBrebis("f2") resultBrebis = rsDepBrebis("f30") - rsAnneePrecBrebis("f30") end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - moins de 49 lbs dim rsDep1 dim rsDate1, rsDate2, rsDate3 dim date1, date2, date3 dim DonneeDate1, DonneeDate2, DonneeDate3 dim tottempo1 dim compteur1 dim moy1, val1 tottempo1 = 0 Set rsDep1 = Server.CreateObject("ADODB.Recordset") Set rsDate1 = Server.CreateObject("ADODB.Recordset") Set rsDate2 = Server.CreateObject("ADODB.Recordset") Set rsDate3 = Server.CreateObject("ADODB.Recordset") rsDep1.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1.movefirst rsDep1.find "f2 = " &request("ListeDate") val1 = rsDep1("f5") rsDate1.Open "SELECT * from tblPrixEncan where f1= " &rsDep1("F1") &" and f2 < #" &rsDep1("f2") &"# and f2 > #" &rsDep1("f2")-370 &"#", Conn, adopenstatic if rsDate1.eof then date1 = null DonneeDate1 = null else date1 = rsDate1("f2") DonneeDate1 = rsDate1("f5") end if rsDate2.Open "SELECT * from tblPrixEncan where f1= " &rsDep1("F1") &" and f2 < #" &rsDep1("f2")-370 &"# and f2 > #" &rsDep1("f2")-735 &"#", Conn, adopenstatic if rsDate2.eof then Date2 = null DonneeDate2 = null else Date2 = rsDate2("f2") DonneeDate2 = rsDate2("f5") end if rsDate3.Open "SELECT * from tblPrixEncan where f1= " &rsDep1("F1") &" and f2 < #" &rsDep1("f2")-735 &"# and f2 > #" &rsDep1("f2")-1100 &"#", Conn, adopenstatic if rsDate3.eof then date3 = null DonneeDate3 = null else date3 = rsDate3("f2") DonneeDate3 = rsDate3("f5") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1) then tottempo1 = tottempo1 + DonneeDate1 compteur1 = compteur1 + 1 end if if not isnull(DonneeDate2) then tottempo1 = tottempo1 + DonneeDate2 compteur1 = compteur1 + 1 end if if not isnull(DonneeDate3) then tottempo1 = tottempo1 + DonneeDate3 compteur1 = compteur1 + 1 end if dim dattte dattte= request("ListeDate") if dattte = "01-07-2002" then Date1 = null Date2 = null Date3 = null end if if tottempo1 <> 0 then moy1 = tottempo1 / compteur1 moy1 = val1 - moy1 if isnull(moy1) then moy1 = val1 - moy1 else moy1 = cint(moy1) end if end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - 50 à 64 lbs dim rsDep150 dim rsDate150, rsDate250, rsDate350 dim date150, date250, date350 dim DonneeDate150, DonneeDate250, DonneeDate350 dim tottempo150 dim compteur150 dim moy150, val150 tottempo150 = 0 Set rsDep150 = Server.CreateObject("ADODB.Recordset") Set rsDate150 = Server.CreateObject("ADODB.Recordset") Set rsDate250 = Server.CreateObject("ADODB.Recordset") Set rsDate350 = Server.CreateObject("ADODB.Recordset") rsDep150.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep150.movefirst rsDep150.find "f2 = " &request("ListeDate") val150 = rsDep150("f10") rsDate150.Open "SELECT * from tblPrixEncan where f1= " &rsDep150("F1") &" and f2 < #" &rsDep150("f2") &"# and f2 > #" &rsDep150("f2")-370 &"#", Conn, adopenstatic if rsDate150.eof then date150 = null DonneeDate150 = null else date150 = rsDate150("f2") DonneeDate150 = rsDate150("f10") end if rsDate250.Open "SELECT * from tblPrixEncan where f1= " &rsDep150("F1") &" and f2 < #" &rsDep150("f2")-370 &"# and f2 > #" &rsDep150("f2")-735 &"#", Conn, adopenstatic if rsDate250.eof then Date250 = null DonneeDate250 = null else Date250 = rsDate250("f2") DonneeDate250 = rsDate250("f10") end if rsDate350.Open "SELECT * from tblPrixEncan where f1= " &rsDep150("F1") &" and f2 < #" &rsDep150("f2")-735 &"# and f2 > #" &rsDep150("f2")-1100 &"#", Conn, adopenstatic if rsDate350.eof then date350 = null DonneeDate350 = null else date350 = rsDate350("f2") DonneeDate350 = rsDate350("f10") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate150) then tottempo150 = tottempo150 + DonneeDate150 compteur150 = compteur150 + 1 end if if not isnull(DonneeDate250) then tottempo150 = tottempo150 + DonneeDate250 compteur150 = compteur150 + 1 end if if not isnull(DonneeDate350) then tottempo150 = tottempo150 + DonneeDate350 compteur150 = compteur150 + 1 end if if tottempo150 <> 0 then moy150 = tottempo150 / compteur150 moy150 = val150 - moy150 if isnull(moy150) then moy150 = val150 - moy150 else moy150 = cint(moy150) end if end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - 65 à 79 lbs dim rsDep165 dim rsDate165, rsDate265, rsDate365 dim date165, date265, date365 dim DonneeDate165, DonneeDate265, DonneeDate365 dim tottempo165 dim compteur165 dim moy165, val165 tottempo165 = 0 Set rsDep165 = Server.CreateObject("ADODB.Recordset") Set rsDate165 = Server.CreateObject("ADODB.Recordset") Set rsDate265 = Server.CreateObject("ADODB.Recordset") Set rsDate365 = Server.CreateObject("ADODB.Recordset") rsDep165.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep165.movefirst rsDep165.find "f2 = " &request("ListeDate") val165 = rsDep165("f15") rsDate165.Open "SELECT * from tblPrixEncan where f1= " &rsDep165("F1") &" and f2 < #" &rsDep165("f2") &"# and f2 > #" &rsDep165("f2")-370 &"#", Conn, adopenstatic if rsDate165.eof then date165 = null DonneeDate165 = null else date165 = rsDate165("f2") DonneeDate165 = rsDate165("f15") end if rsDate265.Open "SELECT * from tblPrixEncan where f1= " &rsDep165("F1") &" and f2 < #" &rsDep165("f2")-370 &"# and f2 > #" &rsDep165("f2")-735 &"#", Conn, adopenstatic if rsDate265.eof then Date265 = null DonneeDate265 = null else Date265 = rsDate265("f2") DonneeDate265 = rsDate265("f15") end if rsDate365.Open "SELECT * from tblPrixEncan where f1= " &rsDep165("F1") &" and f2 < #" &rsDep165("f2")-735 &"# and f2 > #" &rsDep165("f2")-1100 &"#", Conn, adopenstatic if rsDate365.eof then date365 = null DonneeDate365 = null else date365 = rsDate365("f2") DonneeDate365 = rsDate365("f15") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate165) then tottempo165 = tottempo165 + DonneeDate165 compteur165 = compteur165 + 1 end if if not isnull(DonneeDate265) then tottempo165 = tottempo165 + DonneeDate265 compteur165 = compteur165 + 1 end if if not isnull(DonneeDate365) then tottempo165 = tottempo165 + DonneeDate365 compteur165 = compteur165 + 1 end if if tottempo165 <> 0 then moy165 = tottempo165 / compteur165 moy165 = val165 - moy165 if isnull(moy165) then moy165 = val165 - moy165 else moy165 = cint(moy165) end if end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - 80 à 95 lbs dim rsDep180 dim rsDate180, rsDate280, rsDate380 dim date180, date280, date380 dim DonneeDate180, DonneeDate280, DonneeDate380 dim tottempo180 dim compteur180 dim moy180, val180 tottempo180 = 0 Set rsDep180 = Server.CreateObject("ADODB.Recordset") Set rsDate180 = Server.CreateObject("ADODB.Recordset") Set rsDate280 = Server.CreateObject("ADODB.Recordset") Set rsDate380 = Server.CreateObject("ADODB.Recordset") rsDep180.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep180.movefirst rsDep180.find "f2 = " &request("ListeDate") val180 = rsDep180("f20") rsDate180.Open "SELECT * from tblPrixEncan where f1= " &rsDep180("F1") &" and f2 < #" &rsDep180("f2") &"# and f2 > #" &rsDep180("f2")-370 &"#", Conn, adopenstatic if rsDate180.eof then date180 = null DonneeDate180 = null else date180 = rsDate180("f2") DonneeDate180 = rsDate180("f20") end if rsDate280.Open "SELECT * from tblPrixEncan where f1= " &rsDep180("F1") &" and f2 < #" &rsDep180("f2")-370 &"# and f2 > #" &rsDep180("f2")-735 &"#", Conn, adopenstatic if rsDate280.eof then Date280 = null DonneeDate280 = null else Date280 = rsDate280("f2") DonneeDate280 = rsDate280("f20") end if rsDate380.Open "SELECT * from tblPrixEncan where f1= " &rsDep180("F1") &" and f2 < #" &rsDep180("f2")-735 &"# and f2 > #" &rsDep180("f2")-1100 &"#", Conn, adopenstatic if rsDate380.eof then date380 = null DonneeDate380 = null else date380 = rsDate380("f2") DonneeDate380 = rsDate380("f20") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate180) then tottempo180 = tottempo180 + DonneeDate180 compteur180 = compteur180 + 1 end if if not isnull(DonneeDate280) then tottempo180 = tottempo180 + DonneeDate280 compteur180 = compteur180 + 1 end if if not isnull(DonneeDate380) then tottempo180 = tottempo180 + DonneeDate380 compteur180 = compteur180 + 1 end if if tottempo180 <> 0 then moy180 = tottempo180 / compteur180 moy180 = val180 - moy180 if isnull(moy180) then moy180 = val180 - moy180 else moy180 = cint(moy180) end if end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - plus de 96 lbs dim rsDep196 dim rsDate196, rsDate296, rsDate396 dim date196, date296, date396 dim DonneeDate196, DonneeDate296, DonneeDate396 dim tottempo196 dim compteur196 dim moy196, val196 tottempo196 = 0 Set rsDep196 = Server.CreateObject("ADODB.Recordset") Set rsDate196 = Server.CreateObject("ADODB.Recordset") Set rsDate296 = Server.CreateObject("ADODB.Recordset") Set rsDate396 = Server.CreateObject("ADODB.Recordset") rsDep196.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep196.movefirst rsDep196.find "f2 = " &request("ListeDate") val196 = rsDep196("f25") rsDate196.Open "SELECT * from tblPrixEncan where f1= " &rsDep196("F1") &" and f2 < #" &rsDep196("f2") &"# and f2 > #" &rsDep196("f2")-370 &"#", Conn, adopenstatic if rsDate196.eof then date196 = null DonneeDate196 = null else date196 = rsDate196("f2") DonneeDate196 = rsDate196("f25") end if rsDate296.Open "SELECT * from tblPrixEncan where f1= " &rsDep196("F1") &" and f2 < #" &rsDep196("f2")-370 &"# and f2 > #" &rsDep196("f2")-735 &"#", Conn, adopenstatic if rsDate296.eof then Date296 = null DonneeDate296 = null else Date296 = rsDate296("f2") DonneeDate296 = rsDate296("f25") end if rsDate396.Open "SELECT * from tblPrixEncan where f1= " &rsDep196("F1") &" and f2 < #" &rsDep196("f2")-735 &"# and f2 > #" &rsDep196("f2")-1100 &"#", Conn, adopenstatic if rsDate396.eof then date396 = null DonneeDate396 = null else date396 = rsDate396("f2") DonneeDate396 = rsDate396("f25") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate196) then tottempo196 = tottempo196 + DonneeDate196 compteur196 = compteur196 + 1 end if if not isnull(DonneeDate296) then tottempo196 = tottempo196 + DonneeDate296 compteur196 = compteur196 + 1 end if if not isnull(DonneeDate396) then tottempo196 = tottempo196 + DonneeDate396 compteur196 = compteur196 + 1 end if if tottempo196 <> 0 then moy196 = tottempo196 / compteur196 moy196 = val196 - moy196 if isnull(moy196) then moy196 = val196 - moy196 else moy196 = cint(moy196) end if end if '________________________________________________________________________________________ 'Ecart-Quantite- Moyenne des 3 années précédente à pareille date - Brebis et béliers dim rsDep1Brebis dim rsDate1Brebis, rsDate2Brebis, rsDate3Brebis dim date1Brebis, date2Brebis, date3Brebis dim DonneeDate1Brebis, DonneeDate2Brebis, DonneeDate3Brebis dim tottempo1Brebis dim compteur1Brebis dim moy1Brebis, val1Brebis tottempo1Brebis = 0 Set rsDep1Brebis = Server.CreateObject("ADODB.Recordset") Set rsDate1Brebis = Server.CreateObject("ADODB.Recordset") Set rsDate2Brebis = Server.CreateObject("ADODB.Recordset") Set rsDate3Brebis = Server.CreateObject("ADODB.Recordset") rsDep1Brebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1Brebis.movefirst rsDep1Brebis.find "f2 = " &request("ListeDate") val1Brebis = rsDep1Brebis("f30") rsDate1Brebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1Brebis("F1") &" and f2 < #" &rsDep1Brebis("f2") &"# and f2 > #" &rsDep1Brebis("f2")-370 &"#", Conn, adopenstatic if rsDate1Brebis.eof then date1Brebis = null DonneeDate1Brebis = null else date1Brebis = rsDate1Brebis("f2") DonneeDate1Brebis = rsDate1Brebis("f30") end if rsDate2Brebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1Brebis("F1") &" and f2 < #" &rsDep1Brebis("f2")-370 &"# and f2 > #" &rsDep1Brebis("f2")-735 &"#", Conn, adopenstatic if rsDate2Brebis.eof then Date2Brebis = null DonneeDate2Brebis = null else Date2Brebis = rsDate2Brebis("f2") DonneeDate2Brebis = rsDate2Brebis("f30") end if rsDate3Brebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1Brebis("F1") &" and f2 < #" &rsDep1Brebis("f2")-735 &"# and f2 > #" &rsDep1Brebis("f2")-1100 &"#", Conn, adopenstatic if rsDate3Brebis.eof then date3Brebis = null DonneeDate3Brebis = null else date3Brebis = rsDate3Brebis("f2") DonneeDate3Brebis = rsDate3Brebis("f30") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1Brebis) then tottempo1Brebis = tottempo1Brebis + DonneeDate1Brebis compteur1Brebis = compteur1Brebis + 1 end if if not isnull(DonneeDate2Brebis) then tottempo1Brebis = tottempo1Brebis + DonneeDate2Brebis compteur1Brebis = compteur1Brebis + 1 end if if not isnull(DonneeDate3Brebis) then tottempo1Brebis = tottempo1Brebis + DonneeDate3Brebis compteur1Brebis = compteur1Brebis + 1 end if if tottempo1Brebis <> 0 then moy1Brebis = tottempo1Brebis / compteur1Brebis moy1Brebis = val1Brebis - moy1Brebis end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - moins de 49 lbs Dim rsEc Dim EcartSup Dim EcartInf Dim Ecart Set rsEc = Server.CreateObject("ADODB.Recordset") rsEc.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEc.movefirst rsEc.find "f2 = " &request("ListeDate") EcartSup = rsEc("f7") rsEc.moveprevious EcartInf = rsEc("f7") Ecart = EcartSup - EcartInf if isnull(Ecart) then Ecart = EcartSup - EcartInf else Ecart = round(Ecart,2) end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - 50 à 64 lbs Dim rsEc50 Dim EcartSup50 Dim EcartInf50 Dim Ecart50 Set rsEc50 = Server.CreateObject("ADODB.Recordset") rsEc50.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEc50.movefirst rsEc50.find "f2 = " &request("ListeDate") EcartSup50 = rsEc50("f12") rsEc50.moveprevious EcartInf50 = rsEc50("f12") Ecart50 = EcartSup50 - EcartInf50 if isnull(Ecart50) then Ecart50 = EcartSup50 - EcartInf50 else Ecart50 = round(Ecart50,2) end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - 65 à 79 lbs Dim rsEc65 Dim EcartSup65 Dim EcartInf65 Dim Ecart65 Set rsEc65 = Server.CreateObject("ADODB.Recordset") rsEc65.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEc65.movefirst rsEc65.find "f2 = " &request("ListeDate") EcartSup65 = rsEc65("f17") rsEc65.moveprevious EcartInf65 = rsEc65("f17") Ecart65 = EcartSup65 - EcartInf65 if isnull(Ecart65) then Ecart65 = EcartSup65 - EcartInf65 else Ecart65 = round(Ecart65,2) end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - 80 à 95 lbs Dim rsEc80 Dim EcartSup80 Dim EcartInf80 Dim Ecart80 Set rsEc80 = Server.CreateObject("ADODB.Recordset") rsEc80.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEc80.movefirst rsEc80.find "f2 = " &request("ListeDate") EcartSup80 = rsEc80("f22") rsEc80.moveprevious EcartInf80 = rsEc80("f22") Ecart80 = EcartSup80 - EcartInf80 if isnull(Ecart80) then Ecart80 = EcartSup80 - EcartInf80 else Ecart80 = round(Ecart80,2) end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - plus de 96 lbs Dim rsEc96 Dim EcartSup96 Dim EcartInf96 Dim Ecart96 Set rsEc96 = Server.CreateObject("ADODB.Recordset") rsEc96.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEc96.movefirst rsEc96.find "f2 = " &request("ListeDate") EcartSup96 = rsEc96("f27") rsEc96.moveprevious EcartInf96 = rsEc96("f27") Ecart96 = EcartSup96 - EcartInf96 if isnull(Ecart96) then Ecart96 = EcartSup96 - EcartInf96 else Ecart96 = round(Ecart96,2) end if '____________________________________________________________________________________ 'Ecart-Prix- Semaine précédente - Brebis et béliers Dim rsEcBrebis Dim EcartSupBrebis Dim EcartInfBrebis Dim EcartBrebis Set rsEcBrebis = Server.CreateObject("ADODB.Recordset") rsEcBrebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsEcBrebis.movefirst rsEcBrebis.find "f2 = " &request("ListeDate") EcartSupBrebis = rsEcBrebis("f32") rsEcBrebis.moveprevious EcartInfBrebis = rsEcBrebis("f32") EcartBrebis = EcartSupBrebis - EcartInfBrebis if isnull(EcartBrebis) then EcartBrebis = EcartSupBrebis - EcartInfBrebis else EcartBrebis = round(EcartBrebis,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - moins de 49 lbs dim rsPrec44 dim Sem14, Sem44 dim Donnee14, Donnee24, Donnee34, Donnee44, Donnee144, Donnee244, Donnee344, Donnee444 dim bool14, bool24, bool34, bool44 dim Moy4, moy4tempo dim tottempo4, tottempooo, totbool dim donnDepart4 bool14 = false bool24 = false bool34 = false bool44 = false Set rsPrec44 = Server.CreateObject("ADODB.Recordset") rsPrec44.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec44.movefirst rsPrec44.find "f2 = " &request("ListeDate") donnDepart4 = rsPrec44("f7") rsPrec44.moveprevious Sem14 = rsPrec44("f2") Donnee14 = rsPrec44("f7") Donnee144 = rsPrec44("f5") rsPrec44.moveprevious Donnee24 = rsPrec44("f7") Donnee244 = rsPrec44("f5") rsPrec44.moveprevious Donnee34 = rsPrec44("f7") Donnee344 = rsPrec44("f5") rsPrec44.moveprevious Sem44 = rsPrec44("f2") Donnee44 = rsPrec44("f7") Donnee444 = rsPrec44("f5") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee14) then tottempooo = donnee14 * donnee144 tottempo4 = tottempo4 + tottempooo bool14 = true end if if not isnull(donnee24) then tottempooo = donnee24 * donnee244 tottempo4 = tottempo4 + tottempooo bool24 = true end if if not isnull(donnee34) then tottempooo = donnee34 * donnee344 tottempo4 = tottempo4 + tottempooo bool34 = true end if if not isnull(donnee44) then tottempooo = donnee44 * donnee444 tottempo4 = tottempo4 + tottempooo bool44 = true end if if bool14=true then totbool = totbool + donnee144 end if if bool24=true then totbool = totbool + donnee244 end if if bool34=true then totbool = totbool + donnee344 end if if bool44=true then totbool = totbool + donnee444 end if moy4tempo = tottempo4 / totbool Moy4 = donnDepart4 - moy4tempo if isnull(moy4) then Moy4 = donnDepart4 - moy4tempo else Moy4 = round(Moy4,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - 50 à 64 lbs dim rsPrec4450 dim Sem1450, Sem4450 dim Donnee1450, Donnee2450, Donnee3450, Donnee4450, Donnee14450, Donnee24450, Donnee34450, Donnee44450 dim bool1450, bool2450, bool3450, bool4450 dim Moy450, moy4tempo50 dim tottempo450, tottempooo50, totbool50 dim donnDepart450 bool1450 = false bool2450 = false bool3450 = false bool4450 = false Set rsPrec4450 = Server.CreateObject("ADODB.Recordset") rsPrec4450.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4450.movefirst rsPrec4450.find "f2 = " &request("ListeDate") donnDepart450 = rsPrec4450("f12") rsPrec4450.moveprevious Sem1450 = rsPrec4450("f2") Donnee1450 = rsPrec4450("f12") Donnee14450 = rsPrec4450("f10") rsPrec4450.moveprevious Donnee2450 = rsPrec4450("f12") Donnee24450 = rsPrec4450("f10") rsPrec4450.moveprevious Donnee3450 = rsPrec4450("f12") Donnee34450 = rsPrec4450("f10") rsPrec4450.moveprevious Sem4450 = rsPrec4450("f2") Donnee4450 = rsPrec4450("f12") Donnee44450 = rsPrec4450("f10") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1450) then tottempooo50 = donnee1450 * donnee14450 tottempo450 = tottempo450 + tottempooo50 bool1450 = true end if if not isnull(donnee2450) then tottempooo50 = donnee2450 * donnee24450 tottempo450 = tottempo450 + tottempooo50 bool2450 = true end if if not isnull(donnee3450) then tottempooo50 = donnee3450 * donnee34450 tottempo450 = tottempo450 + tottempooo50 bool3450 = true end if if not isnull(donnee4450) then tottempooo50 = donnee4450 * donnee44450 tottempo450 = tottempo450 + tottempooo50 bool4450 = true end if if bool1450=true then totbool50 = totbool50 + donnee14450 end if if bool2450=true then totbool50 = totbool50 + donnee24450 end if if bool3450=true then totbool50 = totbool50 + donnee34450 end if if bool4450=true then totbool50 = totbool50 + donnee44450 end if moy4tempo50 = tottempo450 / totbool50 Moy450 = donnDepart450 - moy4tempo50 if isnull(moy450) then Moy450 = donnDepart450 - moy4tempo50 else Moy450 = round(Moy450,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - 65 à 79 lbs dim rsPrec4465 dim Sem1465, Sem4465 dim Donnee1465, Donnee2465, Donnee3465, Donnee4465, Donnee14465, Donnee24465, Donnee34465, Donnee44465 dim bool1465, bool2465, bool3465, bool4465 dim Moy465, moy4tempo65 dim tottempo465, tottempooo65, totbool65 dim donnDepart465 bool1465 = false bool2465 = false bool3465 = false bool4465 = false Set rsPrec4465 = Server.CreateObject("ADODB.Recordset") rsPrec4465.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4465.movefirst rsPrec4465.find "f2 = " &request("ListeDate") donnDepart465 = rsPrec4465("f17") rsPrec4465.moveprevious Sem1465 = rsPrec4465("f2") Donnee1465 = rsPrec4465("f17") Donnee14465 = rsPrec4465("f15") rsPrec4465.moveprevious Donnee2465 = rsPrec4465("f17") Donnee24465 = rsPrec4465("f15") rsPrec4465.moveprevious Donnee3465 = rsPrec4465("f17") Donnee34465 = rsPrec4465("f15") rsPrec4465.moveprevious Sem4465 = rsPrec4465("f2") Donnee4465 = rsPrec4465("f17") Donnee44465 = rsPrec4465("f15") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1465) then tottempooo65 = donnee1465 * donnee14465 tottempo465 = tottempo465 + tottempooo65 bool1465 = true end if if not isnull(donnee2465) then tottempooo65 = donnee2465 * donnee24465 tottempo465 = tottempo465 + tottempooo65 bool2465 = true end if if not isnull(donnee3465) then tottempooo65 = donnee3465 * donnee34465 tottempo465 = tottempo465 + tottempooo65 bool3465 = true end if if not isnull(donnee4465) then tottempooo65 = donnee4465 * donnee44465 tottempo465 = tottempo465 + tottempooo65 bool4465 = true end if if bool1465=true then totbool65 = totbool65 + donnee14465 end if if bool2465=true then totbool65 = totbool65 + donnee24465 end if if bool3465=true then totbool65 = totbool65 + donnee34465 end if if bool4465=true then totbool65 = totbool65 + donnee44465 end if moy4tempo65 = tottempo465 / totbool65 Moy465 = donnDepart465 - moy4tempo65 if isnull(moy465) then Moy465 = donnDepart465 - moy4tempo65 else Moy465 = round(Moy465,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - 80 à 95 lbs dim rsPrec4480 dim Sem1480, Sem4480 dim Donnee1480, Donnee2480, Donnee3480, Donnee4480, Donnee14480, Donnee24480, Donnee34480, Donnee44480 dim bool1480, bool2480, bool3480, bool4480 dim Moy480, moy4tempo80 dim tottempo480, tottempooo80, totbool80 dim donnDepart480 bool1480 = false bool2480 = false bool3480 = false bool4480 = false Set rsPrec4480 = Server.CreateObject("ADODB.Recordset") rsPrec4480.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4480.movefirst rsPrec4480.find "f2 = " &request("ListeDate") donnDepart480 = rsPrec4480("f22") rsPrec4480.moveprevious Sem1480 = rsPrec4480("f2") Donnee1480 = rsPrec4480("f22") Donnee14480 = rsPrec4480("f20") rsPrec4480.moveprevious Donnee2480 = rsPrec4480("f22") Donnee24480 = rsPrec4480("f20") rsPrec4480.moveprevious Donnee3480 = rsPrec4480("f22") Donnee34480 = rsPrec4480("f20") rsPrec4480.moveprevious Sem4480 = rsPrec4480("f2") Donnee4480 = rsPrec4480("f22") Donnee44480 = rsPrec4480("f20") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1480) then tottempooo80 = donnee1480 * donnee14480 tottempo480 = tottempo480 + tottempooo80 bool1480 = true end if if not isnull(donnee2480) then tottempooo80 = donnee2480 * donnee24480 tottempo480 = tottempo480 + tottempooo80 bool2480 = true end if if not isnull(donnee3480) then tottempooo80 = donnee3480 * donnee34480 tottempo480 = tottempo480 + tottempooo80 bool3480 = true end if if not isnull(donnee4480) then tottempooo80 = donnee4480 * donnee44480 tottempo480 = tottempo480 + tottempooo80 bool4480 = true end if if bool1480=true then totbool80 = totbool80 + donnee14480 end if if bool2480=true then totbool80 = totbool80 + donnee24480 end if if bool3480=true then totbool80 = totbool80 + donnee34480 end if if bool4480=true then totbool80 = totbool80 + donnee44480 end if moy4tempo80 = tottempo480 / totbool80 Moy480 = donnDepart480 - moy4tempo80 if isnull(moy480) then Moy480 = donnDepart480 - moy4tempo80 else Moy480 = round(Moy480,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - plus de 96 lbs dim rsPrec4496 dim Sem1496, Sem4496 dim Donnee1496, Donnee2496, Donnee3496, Donnee4496, Donnee14496, Donnee24496, Donnee34496, Donnee44496 dim bool1496, bool2496, bool3496, bool4496 dim Moy496, moy4tempo96 dim tottempo496, tottempooo96, totbool96 dim donnDepart496 bool1496 = false bool2496 = false bool3496 = false bool4496 = false Set rsPrec4496 = Server.CreateObject("ADODB.Recordset") rsPrec4496.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec4496.movefirst rsPrec4496.find "f2 = " &request("ListeDate") donnDepart496 = rsPrec4496("f27") rsPrec4496.moveprevious Sem1496 = rsPrec4496("f2") Donnee1496 = rsPrec4496("f27") Donnee14496 = rsPrec4496("f25") rsPrec4496.moveprevious Donnee2496 = rsPrec4496("f27") Donnee24496 = rsPrec4496("f25") rsPrec4496.moveprevious Donnee3496 = rsPrec4496("f27") Donnee34496 = rsPrec4496("f25") rsPrec4496.moveprevious Sem4496 = rsPrec4496("f2") Donnee4496 = rsPrec4496("f27") Donnee44496 = rsPrec4496("f25") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee1496) then tottempooo96 = donnee1496 * donnee14496 tottempo496 = tottempo496 + tottempooo96 bool1496 = true end if if not isnull(donnee2496) then tottempooo96 = donnee2496 * donnee24496 tottempo496 = tottempo496 + tottempooo96 bool2496 = true end if if not isnull(donnee3496) then tottempooo96 = donnee3496 * donnee34496 tottempo496 = tottempo496 + tottempooo96 bool3496 = true end if if not isnull(donnee4496) then tottempooo96 = donnee4496 * donnee44496 tottempo496 = tottempo496 + tottempooo96 bool4496 = true end if if bool1496=true then totbool96 = totbool96 + donnee14496 end if if bool2496=true then totbool96 = totbool96 + donnee24496 end if if bool3496=true then totbool96 = totbool96 + donnee34496 end if if bool4496=true then totbool96 = totbool96 + donnee44496 end if moy4tempo96 = tottempo496 / totbool96 Moy496 = donnDepart496 - moy4tempo96 if isnull(moy496) then Moy496 = donnDepart496 - moy4tempo96 else Moy496 = round(Moy496,2) end if '_____________________________________________________________________________________ 'Ecart-Prix- 4 dernières semaines et dates des 4 dernières semaines - Brebis et béliers dim rsPrec44Brebis dim Sem14Brebis, Sem44Brebis dim Donnee14Brebis, Donnee24Brebis, Donnee34Brebis, Donnee44Brebis, Donnee144Brebis, Donnee244Brebis, Donnee344Brebis, Donnee444Brebis dim bool14Brebis, bool24Brebis, bool34Brebis, bool44Brebis dim Moy4Brebis, moy4tempoBrebis dim tottempo4Brebis, tottempoooBrebis, totboolBrebis dim donnDepart4Brebis bool14Brebis = false bool24Brebis = false bool34Brebis = false bool44Brebis = false Set rsPrec44Brebis = Server.CreateObject("ADODB.Recordset") rsPrec44Brebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsPrec44Brebis.movefirst rsPrec44Brebis.find "f2 = " &request("ListeDate") donnDepart4Brebis = rsPrec44Brebis("f32") rsPrec44Brebis.moveprevious Sem14Brebis = rsPrec44Brebis("f2") Donnee14Brebis = rsPrec44Brebis("f32") Donnee144Brebis = rsPrec44Brebis("f30") rsPrec44Brebis.moveprevious Donnee24Brebis = rsPrec44Brebis("f32") Donnee244Brebis = rsPrec44Brebis("f30") rsPrec44Brebis.moveprevious Donnee34Brebis = rsPrec44Brebis("f32") Donnee344Brebis = rsPrec44Brebis("f30") rsPrec44Brebis.moveprevious Sem44Brebis = rsPrec44Brebis("f2") Donnee44Brebis = rsPrec44Brebis("f32") Donnee444Brebis = rsPrec44Brebis("f30") 'Vérifie s'il a une valeut dans le fichier if not isnull(donnee14Brebis) then tottempoooBrebis = donnee14Brebis * donnee144Brebis tottempo4Brebis = tottempo4Brebis + tottempoooBrebis bool14Brebis = true end if if not isnull(donnee24Brebis) then tottempoooBrebis = donnee24Brebis * donnee244Brebis tottempo4Brebis = tottempo4Brebis + tottempoooBrebis bool24Brebis = true end if if not isnull(donnee34Brebis) then tottempoooBrebis = donnee34Brebis * donnee344Brebis tottempo4Brebis = tottempo4Brebis + tottempoooBrebis bool34Brebis = true end if if not isnull(donnee44Brebis) then tottempoooBrebis = donnee44Brebis * donnee444Brebis tottempo4Brebis = tottempo4Brebis + tottempoooBrebis bool44Brebis = true end if if bool14Brebis = true then totboolBrebis = totboolBrebis + donnee144Brebis end if if bool24Brebis = true then totboolBrebis = totboolBrebis + donnee244Brebis end if if bool34Brebis=true then totboolBrebis = totboolBrebis + donnee344Brebis end if if bool44Brebis=true then totboolBrebis = totboolBrebis + donnee444Brebis end if moy4tempoBrebis = tottempo4Brebis / totboolBrebis Moy4Brebis = donnDepart4Brebis - moy4tempoBrebis if isnull(moy4Brebis) then Moy4Brebis = donnDepart4Brebis - moy4tempoBrebis else Moy4Brebis = round(Moy4Brebis,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - moins de 49 lbs Dim rsDepPrecc dim resultPrecc dim annPrecPrecc Set rsDepPrecc = Server.CreateObject("ADODB.Recordset") rsDepPrecc.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPrecc.movefirst rsDepPrecc.find "f2 = " &request("ListeDate") Dim rsAnneePrecPrecc Set rsAnneePrecPrecc = Server.CreateObject("ADODB.Recordset") rsAnneePrecPrecc.Open "SELECT * from tblPrixEncan where f1= " &rsDepPrecc("F1") &" and f2 < #" &rsDepPrecc("f2") &"# and f2 > #" &rsDepPrecc("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPrecc.eof then else annPrecPrecc = rsAnneePrecPrecc("f2") resultPrecc = rsDepPrecc("f7") - rsAnneePrecPrecc("f7") end if if isnull(resultPrecc) then resultPrecc = rsDepPrecc("f7") - rsAnneePrecPrecc("f7") else resultPrecc = round(resultPrecc,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - 50 à 64 lbs Dim rsDepPrecc50 dim resultPrecc50 dim annPrecPrecc50 Set rsDepPrecc50 = Server.CreateObject("ADODB.Recordset") rsDepPrecc50.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPrecc50.movefirst rsDepPrecc50.find "f2 = " &request("ListeDate") Dim rsAnneePrecPrecc50 Set rsAnneePrecPrecc50 = Server.CreateObject("ADODB.Recordset") rsAnneePrecPrecc50.Open "SELECT * from tblPrixEncan where f1= " &rsDepPrecc50("F1") &" and f2 < #" &rsDepPrecc50("f2") &"# and f2 > #" &rsDepPrecc50("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPrecc50.eof then else annPrecPrecc50 = rsAnneePrecPrecc50("f2") resultPrecc50 = rsDepPrecc50("f12") - rsAnneePrecPrecc50("f12") end if if isnull(resultPrecc50) then resultPrecc50 = rsDepPrecc50("f12") - rsAnneePrecPrecc50("f12") else resultPrecc50 = round(resultPrecc50,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - 65 à 79 lbs Dim rsDepPrecc65 dim resultPrecc65 dim annPrecPrecc65 Set rsDepPrecc65 = Server.CreateObject("ADODB.Recordset") rsDepPrecc65.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPrecc65.movefirst rsDepPrecc65.find "f2 = " &request("ListeDate") Dim rsAnneePrecPrecc65 Set rsAnneePrecPrecc65 = Server.CreateObject("ADODB.Recordset") rsAnneePrecPrecc65.Open "SELECT * from tblPrixEncan where f1= " &rsDepPrecc65("F1") &" and f2 < #" &rsDepPrecc65("f2") &"# and f2 > #" &rsDepPrecc65("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPrecc65.eof then else annPrecPrecc65 = rsAnneePrecPrecc65("f2") resultPrecc65 = rsDepPrecc65("f17") - rsAnneePrecPrecc65("f17") end if if isnull(resultPrecc65) then resultPrecc65 = rsDepPrecc65("f17") - rsAnneePrecPrecc65("f17") else resultPrecc65 = round(resultPrecc65,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - 80 à 95 lbs Dim rsDepPrecc80 dim resultPrecc80 dim annPrecPrecc80 Set rsDepPrecc80 = Server.CreateObject("ADODB.Recordset") rsDepPrecc80.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPrecc80.movefirst rsDepPrecc80.find "f2 = " &request("ListeDate") Dim rsAnneePrecPrecc80 Set rsAnneePrecPrecc80 = Server.CreateObject("ADODB.Recordset") rsAnneePrecPrecc80.Open "SELECT * from tblPrixEncan where f1= " &rsDepPrecc80("F1") &" and f2 < #" &rsDepPrecc80("f2") &"# and f2 > #" &rsDepPrecc80("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPrecc80.eof then else annPrecPrecc80 = rsAnneePrecPrecc80("f2") resultPrecc80 = rsDepPrecc80("f22") - rsAnneePrecPrecc80("f22") end if if isnull(resultPrecc80) then resultPrecc80 = rsDepPrecc80("f22") - rsAnneePrecPrecc80("f22") else resultPrecc80 = round(resultPrecc80,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - plus de 96 lbs Dim rsDepPrecc96 dim resultPrecc96 dim annPrecPrecc96 Set rsDepPrecc96 = Server.CreateObject("ADODB.Recordset") rsDepPrecc96.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPrecc96.movefirst rsDepPrecc96.find "f2 = " &request("ListeDate") Dim rsAnneePrecPrecc96 Set rsAnneePrecPrecc96 = Server.CreateObject("ADODB.Recordset") rsAnneePrecPrecc96.Open "SELECT * from tblPrixEncan where f1= " &rsDepPrecc96("F1") &" and f2 < #" &rsDepPrecc96("f2") &"# and f2 > #" &rsDepPrecc96("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPrecc96.eof then else annPrecPrecc96 = rsAnneePrecPrecc96("f2") resultPrecc96 = rsDepPrecc96("f27") - rsAnneePrecPrecc96("f27") end if if isnull(resultPrecc96) then resultPrecc96 = rsDepPrecc96("f27") - rsAnneePrecPrecc96("f27") else resultPrecc96 = round(resultPrecc96,2) end if '___________________________________________________________________________________ 'Ecart-Prix- Pareille date l'année précédente - Brebis et béliers Dim rsDepPreccBrebis dim resultPreccBrebis dim annPrecPreccBrebis Set rsDepPreccBrebis = Server.CreateObject("ADODB.Recordset") rsDepPreccBrebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDepPreccBrebis.movefirst rsDepPreccBrebis.find "f2 = " &request("ListeDate") Dim rsAnneePrecPreccBrebis Set rsAnneePrecPreccBrebis = Server.CreateObject("ADODB.Recordset") rsAnneePrecPreccBrebis.Open "SELECT * from tblPrixEncan where f1= " &rsDepPreccBrebis("F1") &" and f2 < #" &rsDepPreccBrebis("f2") &"# and f2 > #" &rsDepPreccBrebis("f2")-400 &"#", Conn, adopenstatic if rsAnneePrecPreccBrebis.eof then else annPrecPreccBrebis = rsAnneePrecPreccBrebis("f2") resultPreccBrebis = rsDepPreccBrebis("f32") - rsAnneePrecPreccBrebis("f32") end if if isnull(resultPreccBrebis) then resultPreccBrebis = rsDepPreccBrebis("f32") - rsAnneePrecPreccBrebis("f32") else resultPreccBrebis = round(resultPreccBrebis,2) end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précéente à pareille date - moins de 49 lbs dim rsDep1p dim rsDate1p, rsDate2p, rsDate3p dim date1p, date2p, date3p dim DonneeDate1p, DonneeDate2p, DonneeDate3p dim Donneepp1, Donneepp2, Donneepp3, Donneepp4 dim bool1p, bool2p, bool3p, bool4p dim tottempo1p, tottempo4p dim totboolp dim moy4p dim moy4tempop dim donnDepart4p tottempo1p = 0 tottempo4p= 0 bool1p = false bool2p = false bool3p = false bool4p = false Set rsDep1p = Server.CreateObject("ADODB.Recordset") Set rsDate1p = Server.CreateObject("ADODB.Recordset") Set rsDate2p = Server.CreateObject("ADODB.Recordset") Set rsDate3p = Server.CreateObject("ADODB.Recordset") rsDep1p.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1p.movefirst rsDep1p.find "f2 = " &request("ListeDate") donnDepart4p = rsDep1p("f7") rsDate1p.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p("F1") &" and f2 < #" &rsDep1p("f2") &"# and f2 > #" &rsDep1p("f2")-370 &"#", Conn, adopenstatic if rsDate1p.eof then date1p = null DonneeDate1p = null Donneepp1 = null else date1p = rsDate1p("f2") DonneeDate1p = rsDate1p("f5") Donneepp1 = rsDate1p("f7") end if rsDate2p.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p("F1") &" and f2 < #" &rsDep1p("f2")-370 &"# and f2 > #" &rsDep1p("f2")-735 &"#", Conn, adopenstatic if rsDate2p.eof then Date2p = null DonneeDate2p = null Donneepp2 = null else Date2p = rsDate2p("f2") DonneeDate2p = rsDate2p("f5") Donneepp2 = rsDate2p("f7") end if rsDate3p.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p("F1") &" and f2 < #" &rsDep1p("f2")-735 &"# and f2 > #" &rsDep1p("f2")-1100 &"#", Conn, adopenstatic if rsDate3p.eof then date3p = null DonneeDate3p = null Donneepp3 = null else date3p = rsDate3p("f2") DonneeDate3p = rsDate3p("f5") Donneepp3 = rsDate3p("f7") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1p) then tottempo1p = Donneepp1 * DonneeDate1p tottempo4p = tottempo4p + tottempo1p bool1p = true end if if not isnull(DonneeDate2p) then tottempo1p = Donneepp2 * DonneeDate2p tottempo4p = tottempo4p + tottempo1p bool2p = true end if if not isnull(DonneeDate3p) then tottempo1p = Donneepp3 * DonneeDate3p tottempo4p = tottempo4p + tottempo1p bool3p = true end if if bool1p=true then totboolp = totboolp + DonneeDate1p end if if bool2p=true then totboolp = totboolp + DonneeDate2p end if if bool3p=true then totboolp = totboolp + DonneeDate3p end if if tottempo4p <> 0 then moy4tempop = tottempo4p / totboolp Moy4p = donnDepart4p - moy4tempop if isnull(Moy4p) then Moy4p = donnDepart4p - moy4tempop else Moy4p = round(Moy4p,2) end if end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précédente à pareille date - 50 à 64 lbs dim rsDep1p50 dim rsDate1p50, rsDate2p50, rsDate3p50 dim date1p50, date2p50, date3p50 dim DonneeDate1p50, DonneeDate2p50, DonneeDate3p50 dim Donneepp150, Donneepp250, Donneepp350, Donneepp450 dim bool1p50, bool2p50, bool3p50, bool4p50 dim tottempo1p50, tottempo4p50 dim totboolp50 dim moy4p50 dim moy4tempop50 dim donnDepart4p50 tottempo1p50 = 0 tottempo4p50 = 0 bool1p50 = false bool2p50 = false bool3p50 = false bool4p50 = false Set rsDep1p50 = Server.CreateObject("ADODB.Recordset") Set rsDate1p50 = Server.CreateObject("ADODB.Recordset") Set rsDate2p50 = Server.CreateObject("ADODB.Recordset") Set rsDate3p50 = Server.CreateObject("ADODB.Recordset") rsDep1p50.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1p50.movefirst rsDep1p50.find "f2 = " &request("ListeDate") donnDepart4p50 = rsDep1p50("f12") rsDate1p50.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p50("F1") &" and f2 < #" &rsDep1p50("f2") &"# and f2 > #" &rsDep1p50("f2")-370 &"#", Conn, adopenstatic if rsDate1p50.eof then date1p50 = null DonneeDate1p50 = null Donneepp150 = null else date1p50 = rsDate1p50("f2") DonneeDate1p50 = rsDate1p50("f10") Donneepp150 = rsDate1p50("f12") end if rsDate2p50.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p50("F1") &" and f2 < #" &rsDep1p50("f2")-370 &"# and f2 > #" &rsDep1p50("f2")-735 &"#", Conn, adopenstatic if rsDate2p50.eof then Date2p50 = null DonneeDate2p50 = null Donneepp250 = null else Date2p50 = rsDate2p50("f2") DonneeDate2p50 = rsDate2p50("f10") Donneepp250 = rsDate2p50("f12") end if rsDate3p50.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p50("F1") &" and f2 < #" &rsDep1p50("f2")-735 &"# and f2 > #" &rsDep1p50("f2")-1100 &"#", Conn, adopenstatic if rsDate3p50.eof then date3p50 = null DonneeDate3p50 = null Donneepp350 = null else date3p50 = rsDate3p50("f2") DonneeDate3p50 = rsDate3p50("f10") Donneepp350 = rsDate3p50("f12") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1p50) then tottempo1p50 = Donneepp150 * DonneeDate1p50 tottempo4p50 = tottempo4p50 + tottempo1p50 bool1p50 = true end if if not isnull(DonneeDate2p50) then tottempo1p50 = Donneepp250 * DonneeDate2p50 tottempo4p50 = tottempo4p50 + tottempo1p50 bool2p50 = true end if if not isnull(DonneeDate3p50) then tottempo1p50 = Donneepp350 * DonneeDate3p50 tottempo4p50 = tottempo4p50 + tottempo1p50 bool3p50 = true end if if bool1p50 = true then totboolp50 = totboolp50 + DonneeDate1p50 end if if bool2p50=true then totboolp50 = totboolp50 + DonneeDate2p50 end if if bool3p50=true then totboolp50 = totboolp50 + DonneeDate3p50 end if if tottempo4p50 <> 0 then moy4tempop50 = tottempo4p50 / totboolp50 Moy4p50 = donnDepart4p50 - moy4tempop50 if isnull(Moy4p50) then Moy4p50 = donnDepart4p50 - moy4tempop50 else Moy4p50 = round(Moy4p50,2) end if end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précédente à pareille date - 65 à 79 lbs dim rsDep1p65 dim rsDate1p65, rsDate2p65, rsDate3p65 dim date1p65, date2p65, date3p65 dim DonneeDate1p65, DonneeDate2p65, DonneeDate3p65 dim Donneepp165, Donneepp265, Donneepp365, Donneepp465 dim bool1p65, bool2p65, bool3p65, bool4p65 dim tottempo1p65, tottempo4p65 dim totboolp65 dim moy4p65 dim moy4tempop65 dim donnDepart4p65 tottempo1p65 = 0 tottempo4p65 = 0 bool1p65 = false bool2p65 = false bool3p65 = false bool4p65 = false Set rsDep1p65 = Server.CreateObject("ADODB.Recordset") Set rsDate1p65 = Server.CreateObject("ADODB.Recordset") Set rsDate2p65 = Server.CreateObject("ADODB.Recordset") Set rsDate3p65 = Server.CreateObject("ADODB.Recordset") rsDep1p65.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1p65.movefirst rsDep1p65.find "f2 = " &request("ListeDate") donnDepart4p65 = rsDep1p65("f17") rsDate1p65.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p65("F1") &" and f2 < #" &rsDep1p65("f2") &"# and f2 > #" &rsDep1p65("f2")-370 &"#", Conn, adopenstatic if rsDate1p65.eof then date1p65 = null DonneeDate1p65 = null Donneepp165 = null else date1p65 = rsDate1p65("f2") DonneeDate1p65 = rsDate1p65("f15") Donneepp165 = rsDate1p65("f17") end if rsDate2p65.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p65("F1") &" and f2 < #" &rsDep1p65("f2")-370 &"# and f2 > #" &rsDep1p65("f2")-735 &"#", Conn, adopenstatic if rsDate2p65.eof then Date2p65 = null DonneeDate2p65 = null Donneepp265 = null else Date2p65 = rsDate2p65("f2") DonneeDate2p65 = rsDate2p65("f15") Donneepp265 = rsDate2p65("f17") end if rsDate3p65.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p65("F1") &" and f2 < #" &rsDep1p65("f2")-735 &"# and f2 > #" &rsDep1p65("f2")-1100 &"#", Conn, adopenstatic if rsDate3p65.eof then date3p65 = null DonneeDate3p65 = null Donneepp365 = null else date3p65 = rsDate3p65("f2") DonneeDate3p65 = rsDate3p65("f15") Donneepp365 = rsDate3p65("f17") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1p65) then tottempo1p65 = Donneepp165 * DonneeDate1p65 tottempo4p65 = tottempo4p65 + tottempo1p65 bool1p65 = true end if if not isnull(DonneeDate2p65) then tottempo1p65 = Donneepp265 * DonneeDate2p65 tottempo4p65 = tottempo4p65 + tottempo1p65 bool2p65 = true end if if not isnull(DonneeDate3p65) then tottempo1p65 = Donneepp365 * DonneeDate3p65 tottempo4p65 = tottempo4p65 + tottempo1p65 bool3p65 = true end if if bool1p65 = true then totboolp65 = totboolp65 + DonneeDate1p65 end if if bool2p65=true then totboolp65 = totboolp65 + DonneeDate2p65 end if if bool3p65=true then totboolp65 = totboolp65 + DonneeDate3p65 end if if tottempo4p65 <> 0 then moy4tempop65 = tottempo4p65 / totboolp65 Moy4p65 = donnDepart4p65 - moy4tempop65 if isnull(Moy4p65) then Moy4p65 = donnDepart4p65 - moy4tempop65 else Moy4p65 = round(Moy4p65,2) end if end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précédente à pareille date - 80 à 95 lbs dim rsDep1p80 dim rsDate1p80, rsDate2p80, rsDate3p80 dim date1p80, date2p80, date3p80 dim DonneeDate1p80, DonneeDate2p80, DonneeDate3p80 dim Donneepp180, Donneepp280, Donneepp380, Donneepp480 dim bool1p80, bool2p80, bool3p80, bool4p80 dim tottempo1p80, tottempo4p80 dim totboolp80 dim moy4p80 dim moy4tempop80 dim donnDepart4p80 tottempo1p80 = 0 tottempo4p80 = 0 bool1p80 = false bool2p80 = false bool3p80 = false bool4p80 = false Set rsDep1p80 = Server.CreateObject("ADODB.Recordset") Set rsDate1p80 = Server.CreateObject("ADODB.Recordset") Set rsDate2p80 = Server.CreateObject("ADODB.Recordset") Set rsDate3p80 = Server.CreateObject("ADODB.Recordset") rsDep1p80.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1p80.movefirst rsDep1p80.find "f2 = " &request("ListeDate") donnDepart4p80 = rsDep1p80("f22") rsDate1p80.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p80("F1") &" and f2 < #" &rsDep1p80("f2") &"# and f2 > #" &rsDep1p80("f2")-370 &"#", Conn, adopenstatic if rsDate1p80.eof then date1p80 = null DonneeDate1p80 = null Donneepp180 = null else date1p80 = rsDate1p80("f2") DonneeDate1p80 = rsDate1p80("f20") Donneepp180 = rsDate1p80("f22") end if rsDate2p80.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p80("F1") &" and f2 < #" &rsDep1p80("f2")-370 &"# and f2 > #" &rsDep1p80("f2")-735 &"#", Conn, adopenstatic if rsDate2p80.eof then Date2p80 = null DonneeDate2p80 = null Donneepp280 = null else Date2p80 = rsDate2p80("f2") DonneeDate2p80 = rsDate2p80("f20") Donneepp280 = rsDate2p80("f22") end if rsDate3p80.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p80("F1") &" and f2 < #" &rsDep1p80("f2")-735 &"# and f2 > #" &rsDep1p80("f2")-1100 &"#", Conn, adopenstatic if rsDate3p80.eof then date3p80 = null DonneeDate3p80 = null Donneepp380 = null else date3p80 = rsDate3p80("f2") DonneeDate3p80 = rsDate3p80("f20") Donneepp380 = rsDate3p80("f22") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1p80) then tottempo1p80 = Donneepp180 * DonneeDate1p80 tottempo4p80 = tottempo4p80 + tottempo1p80 bool1p80 = true end if if not isnull(DonneeDate2p80) then tottempo1p80 = Donneepp280 * DonneeDate2p80 tottempo4p80 = tottempo4p80 + tottempo1p80 bool2p80 = true end if if not isnull(DonneeDate3p80) then tottempo1p80 = Donneepp380 * DonneeDate3p80 tottempo4p80 = tottempo4p80 + tottempo1p80 bool3p80 = true end if if bool1p80 = true then totboolp80 = totboolp80 + DonneeDate1p80 end if if bool2p80=true then totboolp80 = totboolp80 + DonneeDate2p80 end if if bool3p80=true then totboolp80 = totboolp80 + DonneeDate3p80 end if if tottempo4p80 <> 0 then moy4tempop80 = tottempo4p80 / totboolp80 Moy4p80 = donnDepart4p80 - moy4tempop80 if isnull(Moy4p80) then Moy4p80 = donnDepart4p80 - moy4tempop80 else Moy4p80 = round(Moy4p80,2) end if end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précédente à pareille date - plus de 96 lbs dim rsDep1p96 dim rsDate1p96, rsDate2p96, rsDate3p96 dim date1p96, date2p96, date3p96 dim DonneeDate1p96, DonneeDate2p96, DonneeDate3p96 dim Donneepp196, Donneepp296, Donneepp396, Donneepp496 dim bool1p96, bool2p96, bool3p96, bool4p96 dim tottempo1p96, tottempo4p96 dim totboolp96 dim moy4p96 dim moy4tempop96 dim donnDepart4p96 tottempo1p96 = 0 tottempo4p96 = 0 bool1p96 = false bool2p96 = false bool3p96 = false bool4p96 = false Set rsDep1p96 = Server.CreateObject("ADODB.Recordset") Set rsDate1p96 = Server.CreateObject("ADODB.Recordset") Set rsDate2p96 = Server.CreateObject("ADODB.Recordset") Set rsDate3p96 = Server.CreateObject("ADODB.Recordset") rsDep1p96.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1p96.movefirst rsDep1p96.find "f2 = " &request("ListeDate") donnDepart4p96 = rsDep1p96("f27") rsDate1p96.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p96("F1") &" and f2 < #" &rsDep1p96("f2") &"# and f2 > #" &rsDep1p96("f2")-370 &"#", Conn, adopenstatic if rsDate1p96.eof then date1p96 = null DonneeDate1p96 = null Donneepp196 = null else date1p96 = rsDate1p96("f2") DonneeDate1p96 = rsDate1p96("f25") Donneepp196 = rsDate1p96("f27") end if rsDate2p96.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p96("F1") &" and f2 < #" &rsDep1p96("f2")-370 &"# and f2 > #" &rsDep1p96("f2")-735 &"#", Conn, adopenstatic if rsDate2p96.eof then Date2p96 = null DonneeDate2p96 = null Donneepp296 = null else Date2p96 = rsDate2p96("f2") DonneeDate2p96 = rsDate2p96("f25") Donneepp296 = rsDate2p96("f27") end if rsDate3p96.Open "SELECT * from tblPrixEncan where f1= " &rsDep1p96("F1") &" and f2 < #" &rsDep1p96("f2")-735 &"# and f2 > #" &rsDep1p96("f2")-1100 &"#", Conn, adopenstatic if rsDate3p96.eof then date3p96 = null DonneeDate3p96 = null Donneepp396 = null else date3p96 = rsDate3p96("f2") DonneeDate3p96 = rsDate3p96("f25") Donneepp396 = rsDate3p96("f27") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1p96) then tottempo1p96 = Donneepp196 * DonneeDate1p96 tottempo4p96 = tottempo4p96 + tottempo1p96 bool1p96 = true end if if not isnull(DonneeDate2p96) then tottempo1p96 = Donneepp296 * DonneeDate2p96 tottempo4p96 = tottempo4p96 + tottempo1p96 bool2p96 = true end if if not isnull(DonneeDate3p96) then tottempo1p96 = Donneepp396 * DonneeDate3p96 tottempo4p96 = tottempo4p96 + tottempo1p96 bool3p96 = true end if if bool1p96 = true then totboolp96 = totboolp96 + DonneeDate1p96 end if if bool2p96=true then totboolp96 = totboolp96 + DonneeDate2p96 end if if bool3p96=true then totboolp96 = totboolp96 + DonneeDate3p96 end if if tottempo4p96 <> 0 then moy4tempop96 = tottempo4p96 / totboolp96 Moy4p96 = donnDepart4p96 - moy4tempop96 if isnull(Moy4p96) then Moy4p96 = donnDepart4p96 - moy4tempop96 else Moy4p96 = round(Moy4p96,2) end if end if '________________________________________________________________________________________ 'Ecart-Prix- Moyenne des 3 années précédente à pareille date - Brebis et béliers dim rsDep1pBrebis dim rsDate1pBrebis, rsDate2pBrebis, rsDate3pBrebis dim date1pBrebis, date2pBrebis, date3pBrebis dim DonneeDate1pBrebis, DonneeDate2pBrebis, DonneeDate3pBrebis dim Donneepp1Brebis, Donneepp2Brebis, Donneepp3Brebis, Donneepp4Brebis dim bool1pBrebis, bool2pBrebis, bool3pBrebis, bool4pBrebis dim tottempo1pBrebis, tottempo4pBrebis dim totboolpBrebis dim moy4pBrebis dim moy4tempopBrebis dim donnDepart4pBrebis tottempo1pBrebis = 0 tottempo4pBrebis = 0 bool1pBrebis = false bool2pBrebis = false bool3pBrebis = false bool4pBrebis = false Set rsDep1pBrebis = Server.CreateObject("ADODB.Recordset") Set rsDate1pBrebis = Server.CreateObject("ADODB.Recordset") Set rsDate2pBrebis = Server.CreateObject("ADODB.Recordset") Set rsDate3pBrebis = Server.CreateObject("ADODB.Recordset") rsDep1pBrebis.Open "SELECT * from tblPrixEncan", Conn, adopenstatic rsDep1pBrebis.movefirst rsDep1pBrebis.find "f2 = " &request("ListeDate") donnDepart4pBrebis = rsDep1pBrebis("f32") rsDate1pBrebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1pBrebis("F1") &" and f2 < #" &rsDep1pBrebis("f2") &"# and f2 > #" &rsDep1pBrebis("f2")-370 &"#", Conn, adopenstatic if rsDate1pBrebis.eof then date1pBrebis = null DonneeDate1pBrebis = null Donneepp1Brebis = null else date1pBrebis = rsDate1pBrebis("f2") DonneeDate1pBrebis = rsDate1pBrebis("f30") Donneepp1Brebis = rsDate1pBrebis("f32") end if rsDate2pBrebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1pBrebis("F1") &" and f2 < #" &rsDep1pBrebis("f2")-370 &"# and f2 > #" &rsDep1pBrebis("f2")-735 &"#", Conn, adopenstatic if rsDate2pBrebis.eof then Date2pBrebis = null DonneeDate2pBrebis = null Donneepp2Brebis = null else Date2pBrebis = rsDate2pBrebis("f2") DonneeDate2pBrebis = rsDate2pBrebis("f30") Donneepp2Brebis = rsDate2pBrebis("f32") end if rsDate3pBrebis.Open "SELECT * from tblPrixEncan where f1= " &rsDep1pBrebis("F1") &" and f2 < #" &rsDep1pBrebis("f2")-735 &"# and f2 > #" &rsDep1pBrebis("f2")-1100 &"#", Conn, adopenstatic if rsDate3pBrebis.eof then date3pBrebis = null DonneeDate3pBrebis = null Donneepp3Brebis = null else date3pBrebis = rsDate3pBrebis("f2") DonneeDate3pBrebis = rsDate3pBrebis("f30") Donneepp3Brebis = rsDate3pBrebis("f32") end if 'Vérifie s'il a une valeut dans le fichier if not isnull(DonneeDate1pBrebis) then tottempo1pBrebis = Donneepp1Brebis * DonneeDate1pBrebis tottempo4pBrebis = tottempo4pBrebis + tottempo1pBrebis bool1pBrebis = true end if if not isnull(DonneeDate2pBrebis) then tottempo1pBrebis = Donneepp2Brebis * DonneeDate2pBrebis tottempo4pBrebis = tottempo4pBrebis + tottempo1pBrebis bool2pBrebis = true end if if not isnull(DonneeDate3pBrebis) then tottempo1pBrebis = Donneepp3Brebis * DonneeDate3pBrebis tottempo4pBrebis = tottempo4pBrebis + tottempo1pBrebis bool3pBrebis = true end if if bool1pBrebis = true then totboolpBrebis = totboolpBrebis + DonneeDate1pBrebis end if if bool2pBrebis=true then totboolpBrebis = totboolpBrebis + DonneeDate2pBrebis end if if bool3pBrebis=true then totboolpBrebis = totboolpBrebis + DonneeDate3pBrebis end if if tottempo4pBrebis <> 0 then moy4tempopBrebis = tottempo4pBrebis / totboolpBrebis Moy4pBrebis = donnDepart4pBrebis - moy4tempopBrebis if isnull(Moy4pBrebis) then Moy4pBrebis = donnDepart4pBrebis - moy4tempopBrebis else Moy4pBrebis = round(Moy4pBrebis,2) end if end if '________________________________________________________________________________________ 'Totaux agneaux prix moyen dim totagneaux1 totagneaux1 = ((rs("f7") * rs("f5")) + (rs("f12") * rs("f10")) + (rs("f17") * rs("f15")) + (rs("f22") * rs("f20"))) / (rs("f5") + rs("f10") + rs("f15") + rs("f20")) if isnull(totagneaux1) then totagneaux1 = ((rs("f7") * rs("f5")) + (rs("f12") * rs("f10")) + (rs("f17") * rs("f15")) + (rs("f22") * rs("f20"))) / (rs("f5") + rs("f10") + rs("f15") + rs("f20")) else totagneaux1 = round(totagneaux1,2) end if '_________________________________________________________________________________________ 'Totaux agneaux - Quantité semaine précédente moyenne dim agneauPrixMoyen agneauPrixMoyen = (tot+tot50+tot65+tot80+tot96) / 5 if isnull(agneauPrixMoyen) then agneauPrixMoyen = (tot+tot50+tot65+tot80+tot96) / 5 else agneauPrixMoyen = cint((tot+tot50+tot65+tot80+tot96) / 5) end if '_________________________________________________________________________________________ 'Totaux agneaux - Quantité moyenne 4 derniere semaine dim agneau4semaine agneau4semaine = (Moy+Moy50+Moy65+Moy80+Moy96) / 5 if isnull(agneau4semaine) then agneau4semaine = (Moy+Moy50+Moy65+Moy80+Moy96) / 5 else agneau4semaine = cint((Moy+Moy50+Moy65+Moy80+Moy96) / 5) end if '_________________________________________________________________________________________ 'Totaux agneaux - Quantité moyenne année précédente dim agneauAnneePrecedente agneauAnneePrecedente = (Result+Result50+Result65+Result80+Result96) / 5 if isnull(agneauAnneePrecedente) then agneauAnneePrecedente = (Result+Result50+Result65+Result80+Result96) / 5 else agneauAnneePrecedente = cint((Result+Result50+Result65+Result80+Result96) / 5) end if '_________________________________________________________________________________________ 'Totaux agneaux - Quantité moyenne 3 année précédente dim agneau3AnneePrecedente agneau3AnneePrecedente = (moy1+moy150+moy165+moy180+moy196) / 5 if isnull(agneau3AnneePrecedente) then agneau3AnneePrecedente = (moy1+moy150+moy165+moy180+moy196) / 5 else agneau3AnneePrecedente = cint((moy1+moy150+moy165+moy180+moy196) / 5) end if '_________________________________________________________________________________________ 'Totaux agneaux - Ecart semaine précédente moyenne dim agneauPrixMoyenEcart agneauPrixMoyenEcart = (Ecart+Ecart50+Ecart65+Ecart80+Ecart96) / 5 if isnull(agneauPrixMoyenEcart) then agneauPrixMoyenEcart = (Ecart+Ecart50+Ecart65+Ecart80+Ecart96) / 5 else agneauPrixMoyenEcart = round(agneauPrixMoyenEcart,2) end if '_________________________________________________________________________________________ 'Totaux agneaux - Ecart moyenne 4 derniere semaine dim agneau4PrixMoyenEcart agneau4PrixMoyenEcart = (Moy4+Moy450+Moy465+Moy480+Moy496) / 5 if isnull(agneau4PrixMoyenEcart) then agneau4PrixMoyenEcart = (Moy4+Moy450+Moy465+Moy480+Moy496) / 5 else agneau4PrixMoyenEcart = round(agneau4PrixMoyenEcart,2) end if '_________________________________________________________________________________________ 'Totaux agneaux - Ecart moyenne année précédente dim agneauAnneePrecedente44 agneauAnneePrecedente44 = (ResultPrecc+ResultPrecc50+ResultPrecc65+ResultPrecc80+ResultPrecc96) / 5 if isnull(agneauAnneePrecedente44) then agneauAnneePrecedente44 = (ResultPrecc+ResultPrecc50+ResultPrecc65+ResultPrecc80+ResultPrecc96) / 5 else agneauAnneePrecedente44 = round(agneauAnneePrecedente44,2) end if '_________________________________________________________________________________________ 'Totaux agneaux - Ecart moyenne 3 année précédente dim agneau3AnneePrecedente44 agneau3AnneePrecedente44 = (Moy4p+Moy4p50+Moy4p65+Moy4p80+Moy4p96) / 5 if isnull(agneau3AnneePrecedente44) then agneau3AnneePrecedente44 = (Moy4p+Moy4p50+Moy4p65+Moy4p80+Moy4p96) / 5 else agneau3AnneePrecedente44 = round(agneau3AnneePrecedente44,2) end if '________________________________________________________________________________________ 'Totaux complet prix moyen dim totagneauxComplet totagneauxComplet = (totagneaux1+f32) /2 if isnull(totagneauxComplet) then totagneauxComplet = (totagneaux1+f32) /2 else totagneauxComplet = round(totagneauxComplet,2) end if '_________________________________________________________________________________________ 'Totaux complet - Quantité semaine précédente moyenne dim agneauPrixMoyenPrec agneauPrixMoyenPrec = (totBrebis + agneauPrixMoyen) / 2 if isnull(agneauPrixMoyenPrec) then agneauPrixMoyenPrec = (totBrebis + agneauPrixMoyen) / 2 else agneauPrixMoyenPrec = cint(agneauPrixMoyenPrec) end if '_________________________________________________________________________________________ 'Totaux complet - Quantité moyenne 4 derniere semaine dim agneausemcomp agneausemcomp = (MoyBrebis + agneau4semaine) / 2 if isnull(agneausemcomp) then agneausemcomp = (MoyBrebis + agneau4semaine) / 2 else agneausemcomp = cint(agneausemcomp) end if '_________________________________________________________________________________________ 'Totaux complet - Quantité moyenne année précédente dim agneauAnnee4ty agneauAnnee4ty = (agneauAnneePrecedente + ResultBrebis) / 2 if isnull(agneauAnnee4ty) then agneauAnnee4ty = (agneauAnneePrecedente + ResultBrebis) / 2 else agneauAnnee4ty = cint(agneauAnnee4ty) end if '_________________________________________________________________________________________ 'Totaux complet - Quantité moyenne 3 année précédente dim agn3 agn3 = (moy1Brebis + agneau3AnneePrecedente) / 2 if isnull(agn3) then agn3 = (moy1Brebis + agneau3AnneePrecedente) / 2 else agn3 = int(agn3) end if '_________________________________________________________________________________________ 'Totaux complet - Ecart semaine précédente moyenne dim precSem444Avant precSem444Avant = (EcartBrebis + agneauPrixMoyenEcart) / 2 if isnull(precSem444Avant) then precSem444Avant = (EcartBrebis + agneauPrixMoyenEcart) / 2 else precSem444Avant = round(precSem444Avant,2) end if '_________________________________________________________________________________________ 'Totaux complet - Ecart moyenne 4 derniere semaine dim Avant4 Avant4 = (Moy4Brebis + agneau4PrixMoyenEcart) / 2 if isnull(Avant4) then Avant4 = (Moy4Brebis + agneau4PrixMoyenEcart) / 2 else Avant4 = round(Avant4,2) end if '_________________________________________________________________________________________ 'Totaux complet - Ecart moyenne année précédente dim agnert agnert = (ResultPreccBrebis + agneauAnneePrecedente44) / 2 if isnull(agnert) then agnert = (ResultPreccBrebis + agneauAnneePrecedente44) / 2 else agnert = round(agnert,2) end if '_________________________________________________________________________________________ 'Totaux complet - Ecart moyenne 3 année précédente dim back4 back4 = (Moy4pBrebis + agneau3AnneePrecedente44) / 2 if isnull(back4) then back4 = (Moy4pBrebis + agneau3AnneePrecedente44) / 2 else back4 = round(back4,2) end if %> Pris de l'encan

Choisissez une date:  
  
Vente du
 <%=DateVente%>
ÉCART Quantité (tête)
    
ÉCART de Prix ($/lbs)
Semaine
Moyenne
Année préc.
Moyenne
Semaine
Moyenne
Année préc.
Moyenne
Quantité
Prix
précédente
4 dern. sem.
pareille date
3 années préc.
précédente
4 dern. sem.
pareille date
3 années préc.
 
moyen
  
<%=Sem4%> 
  
à pareille date
  
<%=Sem4%> 
  
à pareille date
(Tête)
($/lbs)
<%=SemainePrecedente%>  
<%=Sem1%> 
<%=AnnPrec%>  
<%=datePart("yyyy",Date1)%>-<%=datePart("yyyy",Date2)%>-<%=datePart("yyyy",Date3)%>
<%=SemainePrecedente%> 
<%=Sem1%> 
<%=AnnPrec%>  
<%=datePart("yyyy",Date1)%>-<%=datePart("yyyy",Date2)%>-<%=datePart("yyyy",Date3)%>
moins de 49 lbs
 <%=rs("f5")%> 
<%=f7%>  
<%=tot%> 
<%=Moy%>  
<%=Result%>  
<%=moy1%> 
  
<%=Ecart%> 
<%=Moy4%>  
<%=ResultPrecc%>  
<%=Moy4p%> 
50 à 64 lbs
<%=rs("f10")%> 
<%=f12%> 
<%=tot50%> 
<%=Moy50%> 
<%=Result50%> 
<%=moy150%> 
  
<%=Ecart50%> 
<%=Moy450%> 
<%=ResultPrecc50%> 
<%=Moy4p50%> 
65 à 79 lbs
<%=rs("f15")%> 
<%=f17%> 
<%=tot65%> 
<%=Moy65%> 
<%=Result65%> 
<%=moy165%> 
  
<%=Ecart65%> 
<%=Moy465%> 
<%=ResultPrecc65%> 
<%=Moy4p65%> 
80 à 95 lbs
<%=rs("f20")%> 
<%=f22%> 
<%=tot80%> 
<%=Moy80%> 
<%=Result80%> 
<%=moy180%> 
  
<%=Ecart80%> 
<%=Moy480%> 
<%=ResultPrecc80%> 
<%=Moy4p80%> 
plus de 96 lbs
<%=rs("f25")%> 
<%=f27%> 
<%=tot96%> 
<%=Moy96%> 
<%=Result96%> 
<%=moy196%> 
<%=Ecart96%> 
<%=Moy496%> 
<%=ResultPrecc96%> 
<%=Moy4p96%> 
Agneaux
<%=rs("f5")+rs("f10")+rs("f15")+rs("f20")+rs("f25")%> 
<%=totagneaux1%> 
<%=agneauPrixMoyen%> 
<%=agneau4semaine%> 
<%=agneauAnneePrecedente%> 
<%=agneau3AnneePrecedente%> 
  
<%=agneauPrixMoyenEcart%> 
<%=agneau4PrixMoyenEcart%> 
<%=agneauAnneePrecedente44%> 
<%=agneau3AnneePrecedente44%> 
  
Brebis et béliers
<%=rs("f30")%> 
<%=f32%> 
<%=totBrebis%> 
<%=MoyBrebis%> 
<%=ResultBrebis%> 
<%=moy1Brebis%> 
  
<%=EcartBrebis%> 
<%=Moy4Brebis%> 
<%=ResultPreccBrebis%> 
<%=Moy4pBrebis%> 
Total ovins
<%=rs("f30")+rs("f5")+rs("f10")+rs("f15")+rs("f20")+rs("f25") %> 
<%=totagneauxComplet%> 
<%=agneauPrixMoyenPrec%> 
<%=agneausemcomp%> 
<%=agneauAnnee4ty%> 
<%=agn3%> 
  
<%=precSem444Avant%> 
<%=avant4%> 
<%=agnert%> 
<%=back4%>