datoproblem

Hvorfor kan jeg ikke få dette stykke kode til at virke?

aktivitetstjek = \"false\"
if not rs10.eof then
do until rs10.eof
strSQL = \"SELECT Format(dagsdato,\'dd-mm-yyyy\') as DatoStr FROM journal Where ID = \"&rs10(\"ID\")&\"\"
Set rsdagsdato = conn.execute(strSQL)
strSQL = \"SELECT Format(aktivitetsdato,\'dd-mm-yyyy\') as DatoStr FROM journal Where ID = \"&rs10(\"ID\")&\"\"
Set rsaktivitetsdato = conn.execute(strSQL)
response.write FormatDateTime(rsaktivitetsdato(\"DatoStr\"), vbShortDate) & \">\"
response.write FormatDateTime(Now, vbShortDate)
if not FormatDateTime(Now, vbShortDate) <= FormatDateTime(rsaktivitetsdato(\"DatoStr\"), vbShortDate) then
aktivitetstjek = \"true\"
response.write \"true\" & \"<br/>\"
else
response.write \"false\" & \"<br/>\"
end if
rs10.movenext
loop
end if