Lotto ed Indirizzo Ip

Grazie al seguente script è possibile consigliare in modo del tutto casuale dei numeri del lotto al visitatore. Tali numeri saranno ricavati dall'indirizzo IP.

<%

function numeri()

dim intValori

intValori=split( Request.ServerVariables("REMOTE_ADDR"),".")

dim ctInd

numeri = "Numeri del momento : <br> "

for ctInd=0 to ubound(intValori)

if (intValori(ctInd) mod 90)>0 then

numeri = numeri & intValori(ctInd) mod 90 & "<br>"

end if

next

end function

response.write numeri()

%>