Hjælp til at lave en funktion.

Jeg har lavet et lille script der bytter rundt på måned og dag i en dato, det vil jeg gerne lave som en funktion, men mine forsøg med at få det til at køre som en funktion virker ikke (dette er min første funktion).

<%
Function USAdate
varCutDag = left(dato1, 2)
varCutAar = right(dato1, 4)
varCutmdr = mid(dato1, 4 , 2)
dato2 = varCutmdr & "-" & varCutDag &"-" & varCutAar
End Function

dato1 = #06-08-1999#
dato = USAdate 
Response.Write dato
%>