VBScript Countdown Help!

Hi all,

I have written this VBScript to count down to a certain date. I'm not very good with VBScript, so it might not be the best way to do it! I have used the DateDiff() function, and it works fine.
However, I would now like to extend the timer to countdown milliseconds too. The dateDiff() function doesn't appear to support this, so how would I do it?

Thanks for any help, here is the script:

Release = //Date & time to count down to

days = 0
hours = 0
minutes = 0
seconds = 0

if dateDiff("s",Now(), Release) > 0 Then

if (dateDiff("y",Now(),Release) - 1) < 0 Then
days = 0
Else
days = days + dateDiff("y",Now(),Release) - 1
End If
if (dateDiff("h",Now(),Release) - 24*days - 1) < 0 Then
hours = 0
Else
hours = hours + dateDiff("h",Now(),Release) - 24*days - 1
End If

if (dateDiff("n",Now(),Release) - 24*60*days - 60*hours - 1) < 0 Then
minutes = 0
Else
minutes = minutes + dateDiff("n",Now(),Release) - 24*60*days - 60*hours - 1
End If
seconds = dateDiff("s",Now(),Release) - 24*60*60*days - 60*60*hours - 60*minutes

if seconds=60 Then
seconds=00
minutes = minutes + 1
End If

if minutes=>60 Then
if (minutes - 60) =< 0 Then
minutes = 00
Else
minutes = minutes - 60
End If
hours = hours + 1
End If

if hours => 24 Then
if (hours - 24) =< 0 Then
hours = 00
Else
hours = hours - 24
End If
days = days + 1
End If

hours = CStr(hours)
if (Len(hours) = 1) Then
hours = "0" + hours
End If

minutes = CStr(minutes)
if (Len(minutes) = 1) Then
minutes = "0" + minutes
End If

seconds = CStr(seconds)
if (Len(seconds) = 1) Then
seconds = "0" + seconds
End If

DataArea.innerHTML = "<br /><br />" & days & " days<br />" & hours & ":" & minutes & ":" & seconds
Else
DataArea.innerText = " released!"
End If