1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
If Request("action") = "calcul" Then
sql = "SELECT * FROM baremes"
Set prod = Server.CreateObject("ADODB.Recordset")
prod.Open sql, conn, 3, 3
'
dim prix(20)
dim x
'
x = 1
'
Response.write "Montant = " & Request("montant") & "<BR>"
montant = Request("montant")
'
if not(prod.eof) then
DO WHILE NOT prod.EOF
'
prix(x) = prod.fields("tranche1")
x = x + 1
'
prod.movenext
loop
'
End if
'
y = 1
x = x - 1
'
Response.write "Le nombre de record est de : " & x & "<BR>"
for i = 1 to x
Response.write "-----------------------------------------------" & "<BR>"
Response.write "Le motant dans la boucle est égal à : " & prix(y) & "<BR>"
if (prix(y) < montant) Then
'ElseIf (heure < 18) Then
Response.write "<B>" & "Ce montant est inférieur à " & montant & "</B>" & "<BR>"
Response.write "-----------------------------------------------" & "<BR>"
End if
'
y = y + 1
next
'
End if |
Partager