%@ Language=Vbscript %>
<% option explicit %>
<%
Dim objrs
set objrs = Server.createobject ("ADODB.RecordSet")
objrs.open "SchedinaSixN", objconn, adopenkeyset, adcmdtable
objrs.movelast
Dim PicchT
set PicchT = Server.createobject ("ADODB.RecordSet")
PicchT.open "PicchettoSixT", objconn, adopenkeyset, adcmdtable
Dim PicchS
set PicchS = Server.createobject ("ADODB.RecordSet")
PicchS.open "PicchettoSixS", objconn, adopenkeyset, adcmdtable
%>
Ricevitorie.it : la prossima schedina del Totosei
|
|
La schedina ed il picchetto Totosei del
prossimo concorso
Concorso Nº <% Response.Write objrs("Concorso") %>
|
Picchetto Tecnico Picchetto Statistico
|
Partite
|
0%
|
1%
|
2%
|
M%
|
|
0%
|
1%
|
2%
|
M%
|
<%
sub stampapicchetto
Response.Write " " & PicchT("P0") & " | "
Response.Write " " & PicchT("P1") & " | "
Response.Write " " & PicchT("P2") & " | "
Response.Write " " & PicchT("PM") & " | "
Response.Write " | "
Response.Write " " & PicchS("P0") & " | "
Response.Write " " & PicchS("P1") & " | "
Response.Write " " & PicchS("P2") & " | "
Response.Write " " & PicchS("PM") & " | "
end sub
Dim Rcount, ColoreRiga,Par
RCount=True
Par=1
objrs.movefirst
Do While Not objrs.EOF
if RCount then
ColoreRiga="#E9F8EF"
else
ColoreRiga="#D3EFDE"
end if
Response.Write " "
Response.Write " " & Par & " | "
Response.Write " " & objrs("SquadraC") & " | "
Stampapicchetto
Response.Write " "
PicchT.movenext
PicchS.movenext
Response.Write " "
Response.Write " " & objrs("squadraF") & " | "
Stampapicchetto
Response.Write " "
objrs.movenext
PicchT.movenext
PicchS.movenext
RCount=Not RCount
Par=Par+1
Loop
objrs.close
set objrs = Nothing
objconn.close
set objconn = Nothing
%>
- Il picchetto tecnico tiene conto
esclusivamente dei risultati delle due squadre nel campionato in corso mentre il
picchetto statistico è generato in base ai ritardi dei segni nelle 12 caselle.
|
|
|