<% For i=1 to 17 If i MOD 2 =0 Then strType="table-success" Else strType="table-declined" End If If i<=x Then %> <% Else %> <% End If Next %>

#	Ora	Numeri	Numerone
<%=i%>	<%=arrOra(i)%>	<%=arrEstrOggi(i)%>	<%=arrNumeroneOggi(i)%>

<% For i=1 to 20 %> <% Next %>

Numeri	Freq.
<%=pos_freq(i)%>	<%=ord_freq(i)%>

<% For i=1 to 20 %> <% Next %> <% For i=1 to 20 %> <% Next %>

Numeri	Freq.
Numeri	Rit.
<%=pos_freq(i)%>	<%=pos_freq(i)%>	<%=pos_rit(i)%>	<%=pos_rit(i)%>

<% For i=1 to 20 %> <% Next %> <% For i=1 to 20 %> <% Next %>

Nume.one	Freq.
Num.one	Rit.
<%=pos_freqnumerone(i)%>	<%=pos_freqnumerone(i)%>	<%=pos_ritnumerone(i)%>	<%=pos_ritnumerone(i)%>

<% For i = 1 to c splitRiga = Split(strRiga(i),".") If splitRiga(0) <> "" Then %> <% End If Next %>

Tabellone Analitico
<%=splitRiga(0)%>	<%=splitRiga(1)%> <%=splitRiga(2)%> <%=splitRiga(3)%> <%=splitRiga(4)%> <%=splitRiga(5)%> <%=splitRiga(6)%> <%=splitRiga(7)%> <%=splitRiga(8)%> <%=splitRiga(9)%> <%=splitRiga(10)%>

<% If c=4 Then k=4 If c=5 Then k=7 For i=17 To k Step -1 If i MOD 2 =0 Then strType="table-success" Else strType="table-declined" End If %> <% Next %>

Ultime estrazioni precedenti
#	Ora	Numeri	Numerone
<%=i%>	<%=arrOra(i)%>	<%=arrEstrIeri(i)%>	<%=arrNumeroneIeri(i)%>

Previsione
<% sql="SELECT * FROM WFL_PREVISIONE;" Set rs=cn.Execute(sql) strPrev=rs("Previsione") strNumerone=rs("Numerone") rs.Close Set rs=Nothing splitPrev=Split(strPrev,".") For i=0 to UBound(splitPrev) If CInt(splitPrev(i))>9 Then %> <%=splitPrev(i)%> <% Else %> <%=splitPrev(i)%> <% End If Next %>   <%=strNumerone%>