Nyhetsscript med paging

Det skulle väl kanske kunna funka såhär?

strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM nyheter"
Set objCount = objConn.Execute(strSQL)
intCount = objCount(0)
Set objCount = Nothing

If Request.QueryString("pg") = "" Then
  intPage = 1
Else
  intPage = CInt(Request.QueryString("pg"))
End If

If intPage > 1 Then
  For i = 1 To (intPage - 1)
    objRS.MoveNext
  Loop
End If

Response.Write(objRS("författare") & "<p>" & objRS("nyhet"))

If intPage > 1 Then
  Response.Write("<a href=""nyhet.asp?pg=" & intPage - 1 & """>Föregående</a> | ")
Else
  Response.Write("Föregående | ")
End If

If intPage < intCount Then
  Response.Write("<a href=""nyhet.asp?pg=" & intPage + 1 & """>Nästa</a>")
Else
  Response.Write("Nästa")
End If

Set objRS = Nothing

Och att använda Getrows() med paging knäcker prestandamässigt.

/red Äsch... Det var jag som missförstod vad det var han ville och gjorde det krångligare än det behövde bli.