vis tid i stedet for dato

Hej Eksperter

Jeg vil gerne have at min oversigt over seneste forumindlæg viser tid i stedet for dato.

Det skal så være sådan så hvis at datoen er lig med i dag, så tiden vises med fed skrift.

Kan I hjælpe?
----------------------------------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Provider = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../database/forum.mdb")
    Conn.Open Provider

SqlStr = "SELECT tblForum.hide, * FROM tblForum RIGHT JOIN tblTopic ON tblForum.forum_id = tblTopic.forum_ID WHERE (((tblTopic.Topic_ID) In (Select top 20 Topic_ID From tblThread order by thread_ID DESC)) AND ((tblForum.hide)=False))order by tblTopic.Last_entry_date DESC;"
Set rs = Conn.Execute(SqlStr)


    rs.MoveFirst
    do while not rs.eof
    %>
    <%
    forumdate = rs("Last_entry_date")
    %>
    <%Response.Write(replace(FormatDateTime(forumdate, 2),"-","."))%>
    <br>
    <a href="http://zantiago.com/forum/forum_posts.asp?TID=<%=rs("Topic_ID")%>"><%=rs("subject")%></a><br><br>
    <%
    rs.movenext

loop
%>