forum ting

jeg er ved at lave et forum eller det vil sige jeg er ved at være færdigt med det, så jeg er ved at gennemgå det får fejl og jeg fandt en fejl som jeg ikke lige viste hvad jeg skulle gøre ved, så det var nok en god ide at spørge her.
Mit problem er hvis jeg laver et nyt topic, så er det meningen at den skal tælle hvor mange topic der er i hvert forum på forum.asp, men den begynder ikke at tælle før at der er oprette et reply i det forum og det er det samme med LastEntryDate og LastEntryUser.

her er koden:
<%
    Do While Not rsForum.EOF
        ForumID = CInt(rsForum("ID"))

        Conntemp = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/clan_ld_db_new.mdb")
        Set rsThread = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT TOP 1 F_Replies.R_Date, Users.Alias, Users.UsrID "
        strSQL = strSQL & "FROM (Forums INNER JOIN F_Threads ON Forums.ID = F_Threads.FID) INNER JOIN (Users INNER JOIN F_Replies ON Users.UsrID = F_Replies.UsrID) ON F_Threads.TID = F_Replies.TID "
        strSQL = strSQL & "WHERE F_Threads.FID = " & ForumID & " "
        strSQL = strSQL & "ORDER BY F_Replies.R_Date DESC;"
        rsThread.Open strSQL, Conntemp

        If Not rsThread.EOF Then
            LastEntryDate = CDate(rsThread("R_Date"))
            LastEntryUser = rsThread("Alias")
            LastEntryUserID = CLng(rsThread("UsrID"))

            SQLthreadS = "SELECT COUNT(TID) AS CountThreads FROM F_threads WHERE (FID = "& rsForum("ID") &")" 'TÆLLER ANTAL THREADS FOR HVERT FORUM
            Set rsThreads = forumtemp.execute(SQLthreadS)
   
            ThreadsCount = rsThreads("CountThreads")
            rsThreads.Close : Set rsThreads = Nothing
        Else
            LastEntryDate = ""
            LastEntryUser = ""
            ThreadsCount =    ""
        End If
    %>
    <table border="0" cellpadding="0" cellspacing="0" width="425">
        <tr>
            <td>
                <table style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center" border="0" cellpadding="0" cellspacing="0" width="400">
                    <tr>
                        <td width="53%" style="border-right: 1 solid #000000" valign="top"><a href="threads.asp?id=<%=rsForum("ID")%>"><b><%=rsForum("F_Name")%></b></a><br><%=rsForum("F_Description")%></td>
                        <td width="35%" style="border-right: 1 solid #000000" align="center" valign="top"><%=LastEntryDate%><br><a href="showuser.asp?usrid=<%=LastEntryUserID%>"><%=LastEntryUser%></a></td>
                        <td width="22%" align="center" valign="top"><%=ThreadsCount%></td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>

Hvis der er nogen der ikke forstår hvad jeg mener, så prøv at kigge her:
http://212.242.188.97/limitless/new/forum.asp

På forhånd tak!