dim re, str( 3 ), i, m, sm
dim mon, monthnames( 12 )
set re = new RegExp
re.Pattern = "(\d\d?)\s(\w\w\w)\s(\d{4})"
str( 1 ) = "13 Jun 2007"
str( 2 ) = "19 Feb 2004"
str( 3 ) = "11 Mar 2003"

monthnames( 1 ) = "Jan"
monthnames( 2 ) = "Feb"
monthnames( 3 ) = "Mar"
monthnames( 4 ) = "Apr"
monthnames( 5 ) = "May"
monthnames( 6 ) = "Jun"
monthnames( 7 ) = "Jul"


for i= 1  to  3 
	Set m = re.Execute(str(i))
	if m is nothing then
		wscript.echo "Not recognized as valid input: " & str(i)
	else
		set sm = m( 0 ).SubMatches
		mon =  0 
		do while sm( 1 ) <> monthnames(mon)
			mon = mon +  1 
		loop
		wscript.echo sm( 2 ) & "-" & right("0" & mon,  2 ) & "-" & sm( 0 )
	end if
next

dim str( 3 ), i, d
str( 1 ) = "13 Jun 2007"
str( 2 ) = "19 Feb 2004"
str( 3 ) = "11 Mar 2003"

for i= 1  to  3 
    if not isdate(str(i)) then
		wscript.echo "Not recognized as valid input: " & str(i)
	else
		d = cdate(str(i))
		wscript.echo year(d) & "-" & right("0" & month(d),  2 ) & "-" & right("0" & day(d),  2 )
	end if
next