Problemmer med nyheds system

Hej jeg her problemmer med at få dette nyheds system til at vise nyhederne sådan

den første nyhed
Date: - author/email:
Titel:
News:

og de næste 15 sådan
Date: - Titel

ps der er også en pagingen funktion i den der skal væk
-------------------------------------------------------
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>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><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