Array vuoto

[Grinder]

Da querystring passo una data in formato gg-mm-aaaa, se stampo direttamente l'input tutto ok, mi viene scritta la data come si deve. Io però devo ricombinare la data in un altro formato e sostituire il mese da testuale a numerico con una select case.

Il problema viene quando vado a splittare la data per "-", le variabili poi risultano non so come vuote!

dim rsord, SQL
		  
d1 = cstr(request.QueryString("dt1"))
d2 = request.QueryString("dt2")
OrdEva = request.QueryString("strOrdini")

arrD1 = split(d1,"-")
arrD2 = split(d2,"-")

giorno1 = d1(0)
giorno2 = d2(0)
	
select case d1(1)
	case "GEN"
		mese1 = "01"
	case "FEB"
		mese1 = "02"
	case "MAR"
		mese1 = "03"
	case "APR"
		mese1 = "04"
	case "MAG"
		mese1 = "05"
	case "GIU"
		mese1 = "06"
	case "LUG"
		mese1 = "07"
	case "AGO"
		mese1 = "08"
	case "SET"
		mese1 = "09"
	case "OTT"
		mese1 = "10"
	case "NOV"
		mese1 = "11"
	case "DIC"
		mese1 = "12"
end select

select case d2(1)
	case "GEN"
		mese2 = "01"
	case "FEB"
		mese2 = "02"
	case "MAR"
		mese2 = "03"
	case "APR"
		mese2 = "04"
	case "MAG"
		mese2 = "05"
	case "GIU"
		mese2 = "06"
	case "LUG"
		mese2 = "07"
	case "AGO"
		mese2 = "08"
	case "SET"
		mese2 = "09"
	case "OTT"
		mese2 = "10"
	case "NOV"
		mese2 = "11"
	case "DIC"
		mese2 = "12"
end select

anno1 = d1(2)
anno2 = d2(2)

data1 = anno1 & "-" & mese1 & "-" & giorno1
data2 = anno2 & "-" & mese2 & "-" & giorno2

[Grinder]

Frena tutto, chiudete il post! Ho trovato l'errore...