Visa Nyheter

Hur gör man följande?

De tre senaste nyheterna skall visas i sin helhet och de 5 senaste efter dom skall visas med bara rubrik.
Viktigt är också att de tre som visas i sin helhet inte skall vara med bland de fem som visas med rubrik. Ganska naturligt eftersom dom redan visas på sidan. Resten skall visas i paging som det är nu!

Någon som kan hjälpa till att gräva lite i koden för att få det så som jag beskrev?
Jag postade bara en del utav koden, men jag tror att inställningarna görs i denna kod.

<%
Losen1 = "admin"
Losen2 = "admin"
db1 = Server.MapPath("db/nyheter.mdb")  
inknamnet = "news.asp"                             
db = Server.MapPath("db/nyheter.mdb") 
sidnamn = "news.asp"
mappen  = ""                              
Const perSida = 5   
%>

<%If Request.QueryString("do") = "" Then%>

        
<table cellpadding="1" cellspacing="0" width="350">
  <%Set Conn = Server.CreateObject("ADODB.Connection") 
          Set RecSet = Server.CreateObject("ADODB.Recordset")
          Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db1

          Sidan = Request.QueryString("page")
          If Sidan = "" then 
              sida = 1 
          Else 
              sida = Sidan 
          End If 

          With RecSet
              .CursorLocation = 3
              .CacheSize = perSida 
          End With

          If CStr(Request.QueryString("id")) <> "" Then
             SQL = "SELECT * FROM nyheter Where id=" & Request.QueryString("id")
          Else
             SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          End If
          RecSet.Open SQL, Conn%>
  <tr> 
    <td><img src="graphic/pix.gif" width="1" height="1"></td>
  </tr>
  <tr> 
    <td height="14" bgcolor="<%=Color%>"><b><%=RecSet("rubrik")%> - <%=FormatDateTime(RecSet("datum"),2)%></b></td>
  </tr>
  <tr> 
    <td bgcolor="<%=Color%>" class="normal"><%=Replace(RecSet("nyhet"),vbCrLf,"<br>")%></td>
  </tr>
  <%If RecSet.EOF Then%>
  <tr> 
    <td>Inga nyheter inlagda.</td>
  </tr>
  <tr> 
    <td height="10"><img src="graphic/hr3d.gif" width="349" height="2"></td>
  </tr>
  <%Else
          RecSet.Close

          SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          RecSet.Open SQL, Conn

          With RecSet
               .MoveFirst 
               .PageSize = perSida 
               .AbsolutePage = sida
          End With

          Sidor =  RecSet.PageCount%>
  <tr> 
    <td height="10"><img src="graphic/hr3d.gif" width="349" height="2"></td>
  </tr>
  <%Count = 0 
          Do While Not RecSet.EOF And Count < RecSet.PageSize

          X = X + 1 
          If X Mod 2 = 0 then 
             color = "" 
          Else 
             color = "#f0f0f0" 
          End If %>
  <tr> 
    <%If Request.QueryString("page") = "" Then%>
    <td height="14" bgcolor="<%=Color%>"><b> 
      <a href="?NODE=1&ID=<%=RecSet("id")%>"><%=RecSet("rubrik")%></a> - <%=FormatDateTime(RecSet("datum"),2)%></b></td>
    <%Else%>
    <td height="14" bgcolor="<%=Color%>"><b> 
      <a href="?NODE=1&page=<%=Request.QueryString("page")%>&ID=<%=RecSet("id")%>"><%=RecSet("rubrik")%></a> - <%=FormatDateTime(RecSet("datum"),2)%></b></td>
    <%End If%>
  </tr>
  <%Count = Count + 1
         RecSet.MoveNext
         Loop

         RecSet.Close
	 Set RecSet = nothing
         End If%>
  <%If Sidor > 1 Then%>
  <tr> 
    <td height="10"><img src="graphic/hr3d.gif" width="349" height="2"></td>
  </tr>
  <tr> 
    <td><b> 
      <%If Sidor > 1 Then%>
      <%Else%>
      <%End If%>
      <%If Sidor <> 1 Then
           For Sid = 1 To Sidor
           If (Int(Sid)) = (Int(sida)) Then%>
      <font color="#666666"><%=Sid%></font> 
      <%Else%>
      <a href="?NODE=1&page=<%=Sid%>"><%=Sid%></a> 
      <%End If
           Next 
           End If%>
      </b></font> </td>
  </tr>
</table>
<%End If%>
<%End If
If Request.QueryString("do") = "login" Then%>

Mkt tacksam för lite hjälp :)