<% Case "lankar"
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM pld WHERE typ=1 ORDER BY ID"
rs.Open SQL, Conn, 1, 2 %>
<%sida = Trim(Request.QueryString("sida"))
If sida = "" Then
sida = 1
End If
rs.PageSize = 10
rs.AbsolutePage = sida
rad = 0
Do while Not rs.EoF AND rad < rs.PageSize
rad = rad + 1%>
<b><%=rs("namn")%></b> - <b><a href="http://<%=rs("url")%>" target="blank"><%=rs("url")%></a></b>
<br />
<%=rs("kommentar")%>
<br /><br />
<%rs.MoveNext
Loop
If rs.PageCount > 1 Then
For i = 1 to rs.PageCount
If i = CLng(sida) Then
Response.Write "[" & i & "] "
Else
Response.Write "<a href=""default.asp?val=lankar&sida=" & i &""">" & i & "</a> "
End If
Next
End If%>