<% if request("data") <> "" then data = request("data") else data = date() end if %>

<%=replace(replace(replace(replace(replace(FormatDateTime(data,1),"de 2004",""),"de 2005",""),"de 2006",""),"de 2007",""),"de 2008","")%>