<%
dim procedi
dim stringanum
dim num1
dim num2
dim num3
dim ind
dim stringaout
num1=second(time())
num2=int(num1/2)
num3=int(num1/3)
stringanum=right("00" & second(time()) ,2)
stringanum=stringanum+right("00" & num2,2)
stringanum=stringanum+right("00" & num3,2)
session("codiceverifica")=stringanum
stringaout="
"
for ind=1 to len(stringanum)
stringaout=stringaout+"
"
next
response.write stringaout
%>