Problem med paging (forrige side funktion)

Hej

Jeg har et problem med mit paging system...
Det virker egentlig fint men nede i bunden vil jeg lave sådan at man kan gå til næste side og forrige side.
Linksne skal kun vises hvis man er på en side hvor det er muligt at gå tilbage, fremad eller begge dele.
Næste side virker fint men jeg kan s** ikke få Forrige side til at virke.

Her er min kode:

<!--#include file="ban.asp"-->

<html>

<head>
<title>Tagwall</title>
<link rel="stylesheet" href="style.css">
</head>

<body>
Tagwall | <a href="tilfoj.asp">Tilføj besked</a> | <%
If Session("login") = "ok" Then
Response.Write "<a href='Admin/admin.asp'>Admin</a><br><br>"
Else
Response.Write "<a href='Admin/default.asp'>Admin</a><br><br>"
End if
%>
<%

Dim Side
Side = Trim(Request("Side"))
If Side = "" Then
Side = 1
End if

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

strSQL = "Select * from Tagwall order by Id desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open(strSQL), Conn, 1

rs.PageSize = 10
rs.AbsolutePage = Side

If NOT rs.EOF Then
rs.AbsolutePage = cINT(Side)
Raekke = 0
End if

If rs.EOF Then
Response.Write "<i>Ingen beskeder</i>"

Else

Do

Dim Besked, Hjemmeside
Besked = rs("Besked")
Besked = Replace(Besked, vbCrLf, "<br>")
Hjemmeside = rs("Hjemmeside")

Response.Write "<b>Navn:</b> " & rs("Navn") & "<br>"
If rs("Email") = "<i>Ingen e-mail</i>" Then
Response.Write "<b>E-mail:</b> " & "<i>Ingen e-mail</i>" & "<br>"
Else
Response.Write "<b>E-mail:</b> " & "<a href='mailto:" & rs("Email") & "'>" & rs("Email") & "</a>" & "<br>"
End if
If Hjemmeside = "<i>Ingen hjemmeside</i>" Then
Response.Write "<b>Hjemmeside:</b> " & "<i>Ingen hjemmeside</i>" & "<br>"
Elseif NOT Left(LCase(Hjemmeside), 7) = "http://" Then
Response.Write "<b>Hjemmeside:</b> " & "<a href='http://" & Hjemmeside & "' target='_blank'>" & "http://" & Hjemmeside & "</a>" & "<br>"
Else
Response.Write "<b>Hjemmeside:</b> " & "<a href='" & Hjemmeside & "' target='_blank'>" & Hjemmeside & "</a>" & "<br>"
End if
Response.Write "<b>Dato:</b> " & rs("Dato") & "<br>"
Response.Write "<b>Besked:</b><br><br>" & Besked & "<br><br><br>"

Raekke = Raekke + 1
rs.MoveNext

Loop While Not rs.EOF AND Raekke < rs.PageSize

End if

If NOT rs.EOF Then
If NOT rs.PageCount = 1 Then
If NOT Side = 1 Then
If Side <= rs.PageCount Then
Response.Write "<a href='default.asp?Side=" & Side - 1 & "'>Forrige side</a>"
End if
If NOT Side = rs.PageCount Then
Response.Write "<a href='default.asp?Side=" & Side - 1 & "'>Forrige side</a>&nbsp;&nbsp;"
Response.Write "<a href='default.asp?Side=" & Side + 1 & "'>Næste side</a>"
End if
End if
If NOT Side = rs.PageCount Then
Response.Write "<a href='default.asp?Side=" & Side + 1 & "'>Næste side</a>"
End if
End if
End if

Conn.Close
Set Conn = Nothing

%>

</body>

</html>

Jeg får ingen fejl



Ralle