Tipo non corrispondente: 'argDate'

[fraude]

ciao a tutti.

Ho trovato queste due funzioni a firma imente per la formattazione delle date e le ho inserite in un file incluso ad una pagina asp; quando cerco di utilizzare la funzione formatGMTDate lo script restituisce un errore:

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

su questa linea:

getGMTDate = dateadd("h",argGMT,argDate)

Da cosa dipende?

Ecco il file incluso:

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


function getGMTDate(argDate,argGMT)
	getGMTDate = dateadd("h",argGMT,argDate)
end function

function formatGMTDate(argDate, argGMT, argFormat)
	dim tmpdate,tmpdateoutput
	tmpdate = getGMTDate(argDate,argGMT)
	
	tmpdateoutput = argFormat
	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))	
	formatGMTDate = tmpdateoutput
end function