Raga..non funzia!! sbagliamo qualcosa?
eccolo:
<%
Function crypt()
dim base
dim d
dim m

base = "www.nomesito.it"
d = hour(now) & "-" & day(now) & "-" & Month(now) & "-" & year(now)
m = int(second(now)) / 10
crypt = md5(base & d & m)

End Function
%>