hjælp, jeg er kørt fast

jeg har lavet dette lille script, som for det første læser fra en text-fil.
Derefter finder den med datediff ud af om et indlæg er en nyhed.

Dette virker perfekt.

Men jeg er godt nok kørt fast, med hensyn til at få listet alle de indlæg op som er nyheder.

<%
dato = date

Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"../../db/news.mdb\")

  strSQL = \"SELECT * FROM indlaeg\"
  set rs = myconn.execute(strSQL)

Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"nyhed.txt\")
Set f = fso.OpenTextFile(filespec,1)

nyhed = Cint(f.readline)
f.Close

  DiffADate = DateDiff(\"d\", rs(\"dato_for_oprettelse\"), dato )

response.write diffAdate
response.write \"&nbsp;<=&nbsp;\"
response.write nyhed

if DiffADate <= nyhed  Then

response.write \"<br><br>nyhed\"
else
response.write \"<br><br>ikke nyhed\"
end if
%>