Nyheds system

Hej er der en der kan få det funktion der gør at hvis ikke alle nyheder kan vær på en side så vise de på 1,2 osv sider

og så lave det så dan at den viser en nyhed sådan
Dato: - author/email:
Titel:
News:

og de næste 10 sådan
Dato: - Titel

asp fil

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/news.mdb")

Const perSida = 20
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan

End If

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

SQL = "SELECT * From news Order By Id Desc"
rs.Open SQL, MinCon

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

Sidor =  rs.PageCount

Count = 0

Do While Not rs.EOF And Count < rs.PageSize
%>


<font color="" size="2"><b><%=rs("title")%></b></font><br>
Skrivet av: <b><a href="mailto:<%=rs("email")%>"><%=rs("author")%></a></b> | <b><%=rs("date")%><br></b>
<%=rs("news")%><br>

<%
Count = Count + 1
rs.MoveNext
Loop

rs.Close
MinCon.Close
%>

<%If Sidor = 1 Then%>
<%Else%>

<%End If%>




<%If Sidor <> 1 Then%>



<%For Sid = 1 To Sidor%>
<%If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <a href="default.asp?sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%>
<%End If%>

/WarEagle