Hvordan RS ?

Hejsa, er dér nogen der kan hjælpe mig med den her script? Jeg er ved at lave en nyhed-script hvor den viser viser det første 10 pr. side og den viser første nyhed med OverSkrift og Tekst men resten af Nyheder skal den kun vise OverSkrifter.

Her er scriptet:

<%
Dim Connection, RS, I, intPage, intRecCount, intPageCount

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set RS = Server.CreateObject(\"ADODB.RecordSet\")
RS.Open \"SELECT * FROM News ORDER BY ID DESC\", \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=x:.mdb\", 1

If Not (RS.BOF Or RS.EOF) Then
    RS.PageSize = 1
    RS.AbsolutePage = intPage
    intRecCount = RS.PageSize
    intPageCount = RS.PageCount
    Do While Not (RS.EOF Or RS.BOF) And intRecCount > 0
%>


<!-- <td width=\"277\" valign=\"top\" align=\"left\" bgcolor=\"#FFFFFF\">
        <h4><b><br>
        <%= RS(\"Head\") %></b></h4>
<p><%
                    Msg = RS(\"Message\")
                        If Len(Msg) > 364 Then
                          Response.Write Left(Msg,367) & \"...\"
                        Else
                          Response.Write Msg
                        End If
                %><a href=\"http://www.novihorizonti.com/tekst.asp?ArtikalID=<%= RS(\"ID\") %>\">dalje&nbsp;&raquo;</a>
        </p><br> -->
<%
intRecCount = intRecCount - 1
RS.MoveNext
Loop
End If

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
    If cint(intNum) = cint(intPage) Then
        Response.Write intNum & \" \"
    Else
        Response.Write \"<a href=index12.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
    End If
Next



%>