Continuano i problemi con le date e MySQL, ho letto la documentazione ho cercato sul forum ed ho questo codice:

codice:
function formatDBDate(argDate,argDB)

	dim tmpdate,tmpdateoutput
	tmpdate = argDate
	
	select case argDB
		case "mdb"
		tmpdateoutput = "#yyyy-mm-dd h:m:s#"
		case "mysql"
		tmpdateoutput = "'yyyy-mm-dd'"
	end select
	
	tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate))
	tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2))
	
	tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2))
	
	formatDBDate = tmpdateoutput
	
end function


strDUEDATE = Request.Form("dal_giorno")
strDUEDATE = formatDBDate(strDUEDATE,"mysql")

strDUEDATE2 = Request.Form("al_giorno")
strDUEDATE2 = formatDBDate(strDUEDATE2,"mysql")

for i = cDate(strDUEDATE) to cDate(strDUEDATE2) 
response.write (i) & "
"
response.write (Weekday(i)) & "
"
response.write (WeekdayName(Weekday(i))) & "

"
Next
L'errore è sulla riga rossa:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'cDate'

Che devo fare?
Grazie