djmc,
You can try the below... Asumming that you have a predefined format like the one that you had posted...
<%
origdate = "01-01-2003"
arrayorigdate = Split(origdate, "-")
arrayorigdate(2) = Right(arrayorigdate(2) ,2)
newdate = join(arrayorigdate,"-")...