Newest topics--Marquee

hello i tried to make a marquee with the newest posts but i get Error when using this code <Not Syntax Error>

when i click on a topic , it display the next one, not it

for example:

the marquee is

 Topic 1  ::: Topic2::: topic3

when i click on topic2 it displays topic 3

so what's wrong, here is my codes

file attached.....

<%
Dim rsLastestPostsMod
Dim strSQLMod
Dim adoConMod
Dim strModCon
Dim strTopicSubject

'Database connection
'-----------------------------
'-----------------------------
strModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & .MapPath("**************.mdb")
'-----------------------------
'-----------------------------

Set rsLastestPostsMod = .Create("ADODB.Recordset")

strSQLMod = " Top 15 tblTopic.Topic_ID, tblTopic.Subject, tblForum.Forum_ID "
strSQLMod = strSQLMod & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQLMod = strSQLMod & "WHERE ((tblForum.) Is Null) "
strSQLMod = strSQLMod & "ORDER BY tblTopic.Last_entry_date DESC;"

rsLastestPostsMod.Open strSQLMod, strModCon

If rsLastestPostsMod.EOF Then
     Response.Write "<span class=""smltext"">No Forum Posts Made</span>"
Else
Response.Write("< 'slide' width='99%' behavior='alternate' scrolldelay='0'>")
     Do while NOT rsLastestPostsMod.EOF

               Response.Write("" & strTopicSubject & "")

          If len(rsLastestPostsMod("Subject"))>30 then
               strTopicSubject = left(rsLastestPostsMod("Subject"),30) & "... "
          Else
               strTopicSubject = rsLastestPostsMod("Subject")
          End If
          

          
          
     rsLastestPostsMod.MoveNext
     If NOT rsLastestPostsMod.EOF Then Response.Write("  ")

     Loop
End If
Response.Write("<>")
rsLastestPostsMod.Close
Set rsLastestPostsMod = Nothing
%>