Analisi di un anno di
concorsi Totosei
Conc.
|
Stagione
|
Colonna vincente |
N.
Segni |
Cons. |
Interr. |
0 |
1 |
2 |
M |
0 |
1 |
2 |
M |
Gl. |
Cs. |
<%
Dim Rcount, ColoreRiga,N0,N1,N2,NM,C0,C1,C2,CM,IntG,IntC
RCount=True
objrs.movefirst
Do While Not objrs.EOF
if RCount then
ColoreRiga="#E9F8EF"
else
ColoreRiga="#D3EFDE"
end if
AnalisiTotosei objrs("Colonna") ,N0,N1,N2,NM,C0,C1,C2,CM,IntG,IntC
Response.Write " "
Response.Write " " & objrs("Numero") & " | "
Response.Write " " & objrs("Anno") & "/" & (objrs("Anno")+1) & " | "
Response.Write " " & objrs("Colonna") & " | "
Response.Write " " & N0 & " | "
Response.Write " " & N1 & " | "
Response.Write " " & N2 & " | "
Response.Write " " & NM & " | "
Response.Write " " & C0 & " | "
Response.Write " " & C1 & " | "
Response.Write " " & C2 & " | "
Response.Write " " & CM & " | "
Response.Write " " & IntG & " | "
Response.Write " " & IntC & " | "
Response.Write " "
objrs.movenext
RCount=Not RCount
Loop
objrs.close
set objrs = Nothing
objconn.close
set objconn = Nothing
%>
|
|