F
<%
a = 1
b = 90
ca = Array(16, 31, 41, 61, 65, 77)
cb = Array(9, 15, 19, 38, 48, 77)
cc = Array(18, 23, 31, 38, 47, 51)
cd = Array(24, 30, 42, 54, 84, 85)
ce = Array(19, 22, 49, 65, 70, 87)
cf = Array(17, 38, 42, 50, 68, 86)
cg = Array(9, 16, 31, 43, 49, 83)
ch = Array(6, 24, 55, 67, 70, 75)
ci = Array(18, 20, 46, 54, 57, 65)
cl = Array(13, 16, 45, 58, 63, 72)
cm = Array(25, 32, 64, 74, 85, 90)
cn = Array(46, 49, 61, 69, 74, 82)
co = Array(4, 23, 24, 35, 77, 79)
cp = Array(5, 49, 71, 83, 85, 88)
cq = Array(6, 29, 54, 62, 72, 80)
cr = Array(10, 16, 36, 70, 71, 73)
cs = Array(8, 26, 32, 44, 82, 86)
ct = Array(3, 7, 48, 67, 87, 90)
response.write "<table border=2 width=700 height=500 align=center>"
for lotto = a to b
if lotto = 1 then
response.write "<tr>"
end if
u = u+1
s = 0
for x = 0 to 5
if lotto = ca(x) then s = s+1
if lotto = cb(x) then s = s+1
if lotto = cc(x) then s = s+1
if lotto = cd(x) then s = s+1
if lotto = ce(x) then s = s+1
if lotto = cf(x) then s = s+1
if lotto = cg(x) then s = s+1
if lotto = ch(x) then s = s+1
if lotto = ci(x) then s = s+1
if lotto = cl(x) then s = s+1
if lotto = cm(x) then s = s+1
if lotto = cn(x) then s = s+1
if lotto = co(x) then s = s+1
if lotto = cp(x) then s = s+1
if lotto = cq(x) then s = s+1
if lotto = cr(x) then s = s+1
if lotto = cs(x) then s = s+1
if lotto = ct(x) then s = s+1
next
if s >0 then
response.write "<th><font color=""red"">"& lotto & "<sup>" & s & "</sup></font></th>"
else
response.write ("<th>"& lotto & "<sup>" & s & "</sup></th>")
end if
if u = 10 then
response.write "</tr><tr>"
u = 0
end if
next
response.write "</table>"
%>
