Paging Igen

Hej

Finns de någon vänlig själ som har lust att titta på detta paging script.

Jag vill få Respons.Write strängen (intTemp) att skriva ut 1-10 på varje sida för att sedan på nästa sida skriva ut 11-20 osv osv.

Som det är nu skriver strängen ut 10 st 1:or och nästa sida 10 st 2:or osv.

<%@ Language=VBScript%>

<%
Dim intPage
Dim rst
Dim query
Dim i
Dim intPageSize
Dim strPage
Dim intTotalPages

strPage = Request.ServerVariables("SCRIPT_NAME")
intPageSize = 10
i = 1

intTemp = Request.QueryString("page")

intPage = Request.QueryString("page")
    If Len("" & intPage) = 0 OR Not IsNumeric(intPage) Then intPage = 1
    
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser"

query = "SELECT * FROM Loggbok ORDER BY LogID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
        rs.ActiveConnection = databas
        rs.CursorLocation = 3
        rs.PageSize = intPageSize
        rs.Open query,,1,3
        rs.AbsolutePage = intPage
        intTotalPages = rs.PageCount
        rs.ActiveConnection = Nothing

Do While Not rs.EOF AND CLng(i) <= CLng(intPageSize)

	Response.Write "<a href=""index.asp?page2=" & intTemp &""">" & intTemp & "</a><BR>"
	
	rs.MoveNext
    i = i + 1
        Loop

Response.Write("<p>")

If CLng(intPage) > 1 Then
    Response.Write("<a href=""" & strPage & "?page=" & intPage - 1 & """>Föregående</a> | ")
End If

If Clng(intPage) < CLng(intTotalPages) Then
    Response.Write("<a href=""" & strPage & "?page=" & intPage + 1 & """>Nästa</a>")
End If

Set rs = NOthing
    databas.Close
Set databas = Nothing

%>