Fejl i loop - Udskriv i kolloner

Jeg har et stykke script som giver mig lidt kvaler, når jeg looper igennem DB, så skriver den kun tekst ud i den ene side af min tabel, den skal loope igennem så der kommer tekst tilhørende overskriften i begge sider, kan du se hvad jeg gør galt ?

Script-------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
SQL = "select * from kategorier ORDER BY kat_tekst"
Set RS = Conn.Execute(SQL)
if Not (rs.BOF Or rs.EOF) Then
%>
<div align="center">
<center>
<table border="0" cellpadding="1" style="border-collapse: collapse" bordercolor="#111111" width="468">
<%
LinkCount = 0
Do While Not rs.EOF
If LinkCount Mod 2 = 0 Then
'------------
SQL2 = "select top 5 * from telegram WHERE tlg_cat = '"&rs("kat_type")&"' ORDER BY tlg_datesent,tlg_timesent"
'response.write SQL2
Set RS2 = Conn.Execute(SQL2)
'------------
        'Do While Not rs2.EOF
        If LinkCount <> 0 Then Response.Write"</tr>"
            Response.Write"<tr><td valign=""top"" width=""50%""><table width=""100%""><tr><td bgcolor=#D2DFEC style=""border:1px solid #6699CC; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana""><b>"&rs("kat_tekst")&"</b></td></tr></table>"
                Do While Not rs2.EOF
                    Response.Write"<table><tr><td style=""font-family: Verdana; color: #000000; font-size: 10px"">"&rs2("tlg_headline")&"</td></tr></table>"
                rs2.MoveNext
                Loop           
            response.write "</td>"
        Else
            Response.Write"<td valign=""top"" width=""50%""><table width=""100%""><tr><td bgcolor=#D2DFEC style=""border:1px solid #6699CC; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana""><b>"&rs("kat_tekst")&"</b></td></tr></table>"
                Do While Not rs2.EOF
                    Response.Write"<table><tr><td style=""font-family: Verdana; color: #000000; font-size: 10px"">"&rs2("tlg_headline")&"</td></tr></table>"
                rs2.MoveNext
                Loop       
            response.write "</td>"
            Response.Write"</tr>"
        End If

    LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"</tr></table></center></div>"
end if
%>
<%
Conn.Close
Set Conn = Nothing
%>
Script-------