Lotto ed Indirizzo IP

Questo script consiglierà agli utenti dei numeri del lotto in base all'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 &amp; intValori(ctInd) mod 90 &amp; "<br>"
end if
next 
end function
response.write numeri()
%>