<%@ Language=Vbscript %> <% option explicit %> <% Dim TabConc,CV (8) set TabConc = Server.createobject ("ADODB.RecordSet") TabConc.open "SuperEnalotto", objconn, adopenkeyset, adcmdtable TabConc.movelast TabConc.moveprevious CV(1)=TabConc("N1") CV(2)=TabConc("N2") CV(3)=TabConc("N3") CV(4)=TabConc("N4") CV(5)=TabConc("N5") CV(6)=TabConc("N6") CV(7)=TabConc("Jolly") CV(8)=TabConc("SuperStar") %> Ricevitorie.it : Locandina risultati e quote del penultimo concorso Super Enalotto
<% TabConc.Close Set TabConc=Nothing %>
 

Risultati  Concorso n° <% Response.Write TabConc("Numero") %> del <% Response.Write FormatData(TabConc("Data")) %>

 
<% Response.Write CV(1) %>

<% Response.Write CV(2) %>

<% Response.Write CV(3) %>

<% Response.Write CV(4) %>

<% Response.Write CV(5) %>

<% Response.Write CV(6) %> Jolly:  <% Response.Write CV(7) %>   S.Star:  <% Response.Write CV(8) %>
Montepremi : <% Response.Write formatvaluta (TabConc("Montepremi")) %>

Punti

Vincitori

Quota

6

<% Response.write TabConc ("Punti6") %>

       <% if TabConc("Punti6") > 0 then Response.Write formatvaluta(TabConc("Quota6")) else Response.Write "" & "Jackpot " & "" & formatvaluta(TabConc("Quota6")) end if %>

5+

<% Response.Write TabConc("Punti5p") %>

       <% if TabConc("Punti5p") > 0 then Response.Write formatvaluta(TabConc("Quota5p")) else Response.Write "" & "Jackpot " & "" & formatvaluta(TabConc("Quota5p")) end if %>

5

<% Response.Write TabConc("Punti5") %>

       <% Response.Write formatvaluta(TabConc("Quota5")) %>

4 <% Response.Write TabConc("Punti4") %>

       <% Response.Write formatvaluta(TabConc("Quota4")) %>

3 <% Response.Write TabConc("Punti3") %>

       <% Response.Write formatvaluta(TabConc("Quota3")) %>