Pageing og parameter

Hej

Jeg har følgende kode, som jeg gerne vil lave pageing på, men kan ikke få det til at virke. Nogen der kan hjælpe?

Set rs = server.createobject("ADODB.recordset")
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "dbo.Search"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@SearchFrase", 200, 1, 255, keywords)
Set rs = cmd.Execute

If rs.EOF then
    Response.Write("<span class=""Fejl"" style=""font-size:14px;"">Der er ingen resultater der passer til din søgning<br><b>(""" & Keywords & """)</b></span>")
else
    rs.PageSize = 15
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

    Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""Text"">")

    Do while not rs.EOF
   
        Response.write("<tr onMouseOver=""this.style.background='#eeeeee'"" onMouseOut=""this.style.background='none'"" onclick=""location.href='" & rs("link") & "'"" style=""cursor:pointer"">")
            Response.write("<td>")
                Response.write("<b>" & rs("SearchTitle") & "</b><br>")
                Response.write(rs("SearchDescription") & "<br>")
            Response.write("</td>")
        Response.write("</tr>")
        Response.write("<tr><td><hr noshade color=""#d5d5d7"" align=""left"" size=""1""></td></tr>")

            intRecCount = intRecCount - 1
        rs.MoveNext
    loop
End if