valla oturdum senin için burda o fonksiyonun işlemini tersine çevirdim al buyur beki lazım olur
<%
Function TarihKript(OrgVal)
t=split(OrgVal,".")
Gun=t(0)
Ay=t(1)
Yil=t(2)
TarihKript=Gun + (Yil * 65536) + (Ay * 256)
End Function
response.write "Kriptli: "&TarihKript("19.5.2003")
%>