Newbie kodfråga av lilla newbie me

Har efter många aj! och ännu flre men! lyckats knåpa ihop detta. Är jag totalt fel ute och surfar eller kan detta verkligen vara något somär korrekt skrivet ? Skulle nog med störrsta sannolikhet kunna tänka mig att någon med lite mer rutin än lilla mig kan få fram en bättre kod ;)

<%

' Funktion som  skriver ut aktuellt datum enligt: ååmmdd
Function fu_datum
	Dim ar, manad, dag
	ar = DateDiff("yyyy", #1/1/2000#, Now) 
	manad = Month(Now)
	dag = Day(Now)

' Kontroll av datumlängd. Lägger till  0 vid behov

' Utskrift av året
	if ar < 10 then			
		ar= "0" & ar
	else
		ar = ar
	end if	

' Utskrift av månaden
	if manad < 10 then		
		manad= "0" & manad
	else
		manad = manad
	end if

' Utskrift av dagen
	if dag < 10 then		
		dag = "0" & dag
	else
		dag = dag
	end if
	
	Response.Write ar
	Response.Write manad
	Response.Write dag
End function
%>

<% response.write fu_datum %>

------------------
//Jonne, a beliver of murphys law