Salve,

devo convertire la differenza di date, calcolata in secondi, in giorni,ore,minuti. Ho fatto questo:

codice:
<%
'**************************************************************
'******************CALCOLO TEMPO RESIDUO***********************
'**************************************************************

Dim TempoResiduo
Dim Scad
Dim Oggi

Scad = (RsAnnuncio.Fields.Item("scadenza").Value)
Oggi = Now()

TempoResiduo = DateDiff("s" , Oggi , Scad)


'************************FINE CALCOLO**************************



%>
<%

'**************************************************************
'******************FUNZIONE DI CONVERSIONE***********************
'**************************************************************

Function SplitSec(pNumSec)
  Dim d, h, m, s
  Dim h1, m1

  d = int(pNumSec/86400)
  h1 = pNumSec - (d * 86400)
  h = int(h1/3600)
  m1 = h1 - (h * 3600)
  m = int(m1/60)
  s = m1 - (m * 60)

  SplitSec = cStr(d) & "," & cStr(h) & "," & cStr(m) & "," & cStr(s)
End Function

'************************FINE CONVERSIONE**************************

%>


<%
MyTime = split(SplitSec(TempoResiduo),",")
%>

Mi restituisce questo errore:

Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle.

Mi da lo stesso errore anche se al posto di TempoResiduo metto un numero qualsiasi.

Dove ho sbagliato??
Qualcuno potrebbe darmi qualche suggerimento, please.

Grazie e Buona giornata a tutti