<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
New Document
<%
OpenDB()
Req = "SELECT * FROM EtatCompte ORDER BY ECDate Desc, ECNumAuto Desc limit 1"
RRS
taux_a = Round(RS("ECSolde") / 8000 * 100,2)
taux_b = Round(100 - taux_a,0)
%>
<% If taux_b > 17 Then %>
<%= affichageEuro(RS("ECSolde")) %> € récoltés
soit <%= Replace(FormatNumber(RS("ECSolde")/80,2),".",",") %> %
de l'objectif
Plus que <%= affichageEuro(8000-RS("ECSolde")) %> €
<% ElseIf taux_b > 0 Then %>
<%= affichageEuro(RS("ECSolde")) %> € récoltés
, soit <%= Replace(FormatNumber(RS("ECSolde")/80,2),".",",") %> de l'objectif
Plus que <%= affichageEuro(8000-RS("ECSolde")) %> €