CREATE PROCEDURE sp_PagedItems
	(
	 @Page int,
	 @RecsPerPage int
	)
AS

-- http://www.4guysfromrolla.com/webtech/062899-1.shtml
-- We don't want to return the # of rows inserted
-- into our temporary table, so turn NOCOUNT ON
SET NOCOUNT ON


--Create a temporary table
CREATE TABLE #TempItems
(
	
	ID int IDENTITY,
	Kontraktnummer varchar(50),
	Mobilnummer varchar(50),
	Opkaldstype varchar(255),
	Opkaldsmodtager varchar(255),
	Samtalestart datetime,
	Samtalevarighed varchar(50),
	Samtalepris varchar(50),
)


-- Insert the rows from tblItems into the temp. table
-- 
-- 
INSERT INTO #TempItems (Kontraktnummer,Mobilnummer,Opkaldstype,Samtalestart,Samtalevarighed,Samtalepris)
SELECT KontraktNummer,MobilNummer,Opkaldstype,Samtalestart,Samtalevarighed,Samtalepris FROM Usage WHERE Mobilnummer LIKE '%" & Rsearch & "%' ORDER BY Samtalestart DESC

-- Find out the first and last record we want
DECLARE @FirstRec int, @LastRec int
SELECT @FirstRec = (@Page - 1) * @RecsPerPage
SELECT @LastRec = (@Page * @RecsPerPage + 1)

-- Now, return the set of paged records, plus, an indiciation of we
-- have more records or not!
SELECT *,
       MoreRecords = 
	(
	 SELECT COUNT(*) 
	 FROM #TempItems TI
	 WHERE TI.ID >= @LastRec
	) 
FROM #TempItems
WHERE ID > @FirstRec AND ID < @LastRec


-- Turn NOCOUNT back OFF
SET NOCOUNT OFF
GO

<%
	Set objRS = Server.CreateObject("ADODB.Recordset")

	'How many records per page do we want to show?
	Const iRecordsPerPage = 10

	Dim currentPage	 'what page are we on??
	Dim bolLastPage	 'are we on the last page?
	
	if len(Request.QueryString("page")) = 0 then
		currentPage = 1
	else
		currentPage = CInt(Request.QueryString("page"))
	end if
	
	Rsearch = "12345678"
	
	'Show the paged results
	strSQL = "sp_PagedItems " & currentPage & "," & iRecordsPerPage
	objRS.Open strSQL, Conn
	
	'See if we're on the last page
	if Not objRS.EOF then
		if CInt(objRS("MoreRecords")) > 0 then
			bolLastPage = False
		else
			bolLastPage = True
		end if
	end if
%>

<%
	Do While Not objRS.EOF %>
		<TR><TD ALIGN=LEFT BGCOLOR=GRAY>
			<%=objRS("Mobilnummer")%>
		</TD><TD ALIGN=CENTER BGCOLOR=GRAY>
			<%=objRS("Kontraktnummer")%>
		</TD></TR>
<%		objRS.MoveNext
	Loop %>

	...
	Rsearch = "12345678"
	
	'Show the paged results
	strSQL = "sp_PagedItems " & currentPage & "," & iRecordsPerPage & ", '" & Rsearch & '"
	objRS.Open strSQL, Conn
	...

Create Procedure dbo.sp_PagedItems
	currentPage int,
	recordsPerPage int,
	searchStr varchar(100)
As
...

	Where someCol like '%'+@searchStr+'%'