Не работает цикл обработки БД Access + ASP - VB

Формулировка задачи:

Добрый день!
На сайте используется ASP + VB + ACCESS. Дорабатываю скрипт новостей. Нужно вывести все новости дивами для дальнейшей обработки каруселью.
Использую такой код.
1) В шапке:

<%
Dim sSQL, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar
 
id = CLng(Request.QueryString("id").Item)
 
id = CStr(id)
 
if dbType = "SQLServer" then
    sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
    sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if
 
rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>

2) В главной части:

<%
if rs.RecordCount <> 0 then
%>
 
        <%
    i2 = 0
    Do While (Not rs.EOF)
    i2 = i2 + 1
%>
  class="carousel-item"> "news_detail.asp?id=<%=rs.fields("news_id")%>"> "images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> class="title"><%=rs.fields("subject")%>  
  <%
    rs.MoveNext
    Loop
%>
  <% end if%>
<%
cn.Close
Set rs = Nothing
Set cn = Nothing
%>

В итоге выводится только один DIV вида:

class="carousel-item"> href="news_detail.asp?id=62"> src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> Новость 1  


А в базе 20 новостей.
В VB разбираюсь совсем плохо, сижу уже 2,5 дня. Помогите, пожалуйста. Буду очень благодарен.

Решение задачи: «Не работает цикл обработки БД Access + ASP»

textual
                            Листинг программы 
                        
                            Dim rs2

Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.Open ...