<%@ Language=Vbscript %> <% option explicit %> <% Dim objrs,objrsc,Data,Concorso,CV (7) set objrs = Server.createobject ("ADODB.RecordSet") objrs.open "Totobingol", objconnq, adopenkeyset, adcmdtable objrs.movelast Data=objrs("Data") Concorso=objrs("Concorso") set objrsc = Server.createobject ("ADODB.RecordSet") objrsc.open "Totobingol", objconn, adopenkeyset, adcmdtable objrsc.movelast CV(1)=objrsc("N1") CV(2)=objrsc("N2") CV(3)=objrsc("N3") CV(4)=objrsc("N4") CV(5)=objrsc("N5") CV(6)=objrsc("N6") CV(7)=objrsc("N7") %> <% Dim objqbin set objqbin = Server.createobject ("ADODB.RecordSet") objqbin.open "Totobingol", objconnq, adopenkeyset, adcmdtable objqbin.movelast %> Servizi TotoBingol : risultati e quote dell'ultimo concorso
Combinazione Vincente
Concorso n° <% Response.Write Concorso %> del <% Response.Write FormatData (Data) %>
" For I=1 to 7 if RCount then ColoreRiga="#EAFFEA" else ColoreRiga="#D3EFDE" end if Response.Write " " RCount=Not RCount next Response.Write " " objconn.close set objconn = Nothing %>
<% Dim Rcount, ColoreRiga,I RCount=False Response.Write "

" & NumeroStr(CV(I)) & "

le Quote
Montepremi: <% Response.Write formatvaluta(objqbin("Montepremi")) %>

 

Punti Vincitori

Quote
 Sette   <% Response.Write objqbin("Punti7") %>        <% if objqbin("Punti7") > 0 then Response.Write formatvaluta(objqbin("Quota7")) else Response.Write "---" end if %>
 Sei   <% Response.Write objqbin("Punti6") %>        <% Response.Write formatvaluta(objqbin("Quota6")) %>
 Cinque   <% Response.Write objqbin("Punti5") %>        <% Response.Write formatvaluta(objqbin("Quota5")) %>