CREATE PROCEDURE sp_PagedItemsUsage
	(
	 @Page int,
	 @RecsPerPage int,
	 @searchStr varchar(100),
	 @searchDate varchar(3)
	)
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 nvarchar(50),
	Mobilnummer nvarchar(50),
	Opkaldstype nvarchar(255),
	Opkaldsmodtager nvarchar(255),
	Samtalestart datetime,
	Samtalevarighed datetime,
	Samtalepris nvarchar(50),
)

-- Insert the rows from tblItems into the temp. table CONVERT(char(20), ytd_sales) LIKE '3%'
INSERT INTO #TempItems (Kontraktnummer,Mobilnummer,Opkaldstype,Opkaldsmodtager,Samtalestart,Samtalevarighed,Samtalepris)
SELECT KontraktNummer,MobilNummer,Opkaldstype,Opkaldsmodtager,Samtalestart,Samtalevarighed,Samtalepris FROM Usage WHERE Month(SamtaleStart)  LIKE '%'+@searchDate+'%'  AND Mobilnummer LIKE '%'+@searchStr+'%'  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

Const iRecordsPerPage = 30

		Dim currentPage	 ' Hvilken side er vi på ?
		Dim bolLastPage	 ' Er vi på sidste side ?
	
		if len(Request.QueryString("page")) = 0 then
			currentPage = 1
		else
			currentPage = CInt(Request.QueryString("page"))
		end if
				
		' Viser det sideinddelt resultat, samt henter sproc kode fra sql serveren.
		strSQL = "sp_PagedItemsUsage " & currentPage & "," & iRecordsPerPage & "," & ValgMaaned & "," & Rsearch 

		objRS.Open strSQL, Conn