<%@ Language=Vbscript %> <% option explicit %> <% Dim TabSched,TabConc,CV,Data set TabConc = Server.createobject ("ADODB.RecordSet") TabConc.open "Totosei", objconn, adopenkeyset, adcmdtable TabConc.movelast CV=TabConc("Colonna") set TabSched = Server.createobject ("ADODB.RecordSet") TabSched.open "SchedinaSixV", objconn, adopenkeyset, adcmdtable TabSched.movelast %> Ricevitorie.it : locandina quote dell'ultimo concorso totosei
<% TabSched.close set TabSched = Nothing TabConc.close set TabConc = Nothing %>

 


Colonna vincente Totosei

<% Dim Rcount, ColoreRiga,Par RCount=True Par=1 TabSched.movefirst Do While Not TabSched.EOF if RCount then ColoreRiga="#E9F8EF" else ColoreRiga="#D3EFDE" end if Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " TabSched.movenext RCount=Not RCount Par=Par+1 Loop %>

Concorso Nš <% Response.Write TabConc("Numero") %> del <% Response.Write FormatData (TabConc("Data")) %>

" & Par & "

" & " " & TabSched("SquadraC") & "

" & Mid (CV,Par*2-1,1) & "

" & " " & TabSched("squadraF") & "

" & Mid (CV,Par*2,1) & "

  


Quote
del concorso Totosei N.  <% Response.Write TabConc("Numero") %> del <% Response.Write formatdata(TabConc("Data")) %>


 
Montepremi : <% Response.Write formatvaluta(TabConc("Montepremi")) %>

 

Punti

Vincitori

Quota

 Sei   <% Response.Write TabConc("Punti6") %>        <% if TabConc("Punti6") > 0 then Response.Write formatvaluta(TabConc("Quota6")) else Response.Write "Jackpot " & formatvaluta(TabConc("Quota6")) end if %>
 Cinque   <% Response.Write TabConc("Punti5") %>        <% if TabConc("Punti5") > 0 then Response.Write formatvaluta(TabConc("Quota5")) else Response.Write "Jackpot " & formatvaluta(TabConc("Quota5")) end if %>
 Quattro <% Response.Write TabConc("Punti4") %>        <% Response.Write formatvaluta(TabConc("Quota4")) %>