El código que te di es precisamente para no tener que conocer la fecha, que lo haga automático.
Por tanto...
Código:
strSQLHoy = "SELECT ID, ARCHIVO, FECHA, IMAGEN, TEMA,
HORA FROM NEWS ORDER BY HORA, FECHA DESC;"
<%
Set MyRecordSet = MyConn.Execute(strSQLHoy)
'le faltaba esta línea, porque sino txtfechalast siempre será distinto.
txtFechaLast = MyRecordset("FECHA")
Do while not MyRecordset.EOF
If txtFechaLast <> MyRecordset("FECHA") then
exit do
end if
%>
<!-- codigo html -->
<%
txtFechaLast = MyRecordset("FECHA")
myrecordset.movenext
loop
myrecordset.close
%>