<%@ 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

<% sub stampapicchetto Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " 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 " " Response.Write " " Stampapicchetto Response.Write " " PicchT.movenext PicchS.movenext Response.Write " " Response.Write " " 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 %>

Concorso Nº <% Response.Write objrs("Concorso") %>

Picchetto Tecnico      Picchetto Statistico

Partite

0%

1%

2%

M%

 

0%

1%

2%

M%

 " & PicchT("P0") & "

 " & PicchT("P1") & "

 " & PicchT("P2") & "

 " & PicchT("PM") & "

 

 " & PicchS("P0") & "

 " & PicchS("P1") & "

 " & PicchS("P2") & "

 " & PicchS("PM") & "

" & Par & "

 " & objrs("SquadraC") & "

 " & objrs("squadraF") & "

  • 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.