datediff og dage

Hvorfor virker skidtet ikke???

Function padChar(v,char,size)
    \' Returnerer varianten v konverteret til en String
    \' Foranstiller tegnet char så den returnerede streng fylder size tegn
    Dim length
    length = Len(CStr(v))
    if size>=length then
      padChar = String(size-length, char) & CStr(v)
    else
      padChar = String(size, \"#\")
    end if
  End Function

Function ISODateTime(dt)
  ISODateTime = padChar(day(dt),\"0\",2) & \"-\" & padChar(month(dt),\"0\",2) & \"-\" & padChar(year(dt),\"0\",4) & \" \" & padChar(Hour(dt),\"0\",2) & \":\" & padChar(Minute(dt),\"0\",2) & \":\" & padChar(Second(dt),\"0\",2)
End Function


If datediff(\"d\",ISODateTime(Request(\"Dato\")),Now()) > 0  then
    Response.Write(\"    <script>\")
    Response.Write(\"        alert(\'Du kan ikke lave aftaler for dage der er forbi.\');\")
    Response.Write(\"        history.go(-1);\")
    Response.Write(\"    </script>\")   
    response.end
End if