%@ 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
|
|
Colonna vincente Totosei
Concorso Nš <% Response.Write TabConc("Numero") %> del <% Response.Write FormatData (TabConc("Data")) %>
|
<%
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 " " & Par & " | "
Response.Write " " & " " & TabSched("SquadraC") & " | "
Response.Write " " & Mid (CV,Par*2-1,1) & " | "
Response.Write " "
Response.Write " "
Response.Write " " & " " & TabSched("squadraF") & " | "
Response.Write " " & Mid (CV,Par*2,1) & " | "
Response.Write " "
TabSched.movenext
RCount=Not RCount
Par=Par+1
Loop
%>
|
|
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")) %>
|
|
|
|
<%
TabSched.close
set TabSched = Nothing
TabConc.close
set TabConc = Nothing
%>
|