Søgning og paging

Har denne kode.
Hvor jeg laver en søgning. og er søgeresultatet over 25 skal jeg så klikke videre på side 2 osv.Men virker ikke med denne kode jeg har. Hvordan skriver jeg den om så den kommer til at virke ?

if s = "Search" then
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set rs = Server.CreateObject("ADODB.RecordSet")
'strsql = "SELECT FROM movies WHERE ID,titel,format,Cds,sprog,prodaar,tid,genre1,genre2,genre3,instruktor LIKE '%" & strKeyword & "%' ORDER BY titel"

strSQL = "SELECT  ID,titel,format,Cds,sprog,prodaar,tid,genre1,genre2,genre3,instruktor FROM movies WHERE"
strSQL = strSQL & " (titel LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (format LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (CDs LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (sprog LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (prodaar LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tid LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (genre1 LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (genre2 LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (genre3 LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (instruktor LIKE '" & strKeyword & "')"
rs.Open strSQL, Conn, 1

if rs.EOF then
response.write "Der blev ikke fundet nogle resultater ved søgningen"
end if
end if
end if
%>
<table border="0" cellpadding="4" cellspacing="1" width="100%" id="table1" bgcolor="#DDDDDD">
    <tr >
        <td width="0"><b>ID</b></td>
        <td><b>Titel</b></td>
        <td><b>Format</b></td>
        <td><b>CD</b></td>
        <td><b>Sprog</b></td>
        <td><b>År</b></td>
        <td><b>Tid</b></td>
        <td><b>Genre 1</b></td>
        <td><b>Genre 2</b></td>
        <td><b>Genre 3</b></td>
        <td><b>Instruktør</b></td>
    </tr>
    <%
   
'** Paging part start
rs.PageSize = 25
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
'** Paging part end

counter=0
Do While Not rs.EOF And intRecCount > 0


counter = counter + 1
if counter = 2 then
counter = 0
end if
if counter = 0 then
color= "#F8F8F8"
else
color= "#ffffff"
end if
    %>
<tr onmouseover="this.style.backgroundColor='#ECEAE3'" onmouseout="this.style.backgroundColor='<%= color %>'" bgcolor="<%= color %>">
        <td width="0"><%=rs("ID")%></td>
        <td><%=rs("titel")%></td>
        <td><%=rs("format")%></td>
        <td><%=rs("CDs")%></td>
        <td><%=rs("sprog")%></td>
        <td><%=rs("prodaar")%></td>
        <td><%
   
    Dim min, timer
    min = rs("tid")   
   
    timer = Int(min / 60)
    min = min Mod 60
   
    Response.Write timer & " t. " & min & " min."
   
    %></td>
        <td><%=rs("genre1")%></td>
        <td><%=rs("genre2")%></td>
        <td><%=rs("genre3")%></td>
        <td><%=rs("instruktor")%></td>
    </tr>
<%
'**Paging part start
intRecCount = intRecCount - 1
'**Paging part end
rs.MoveNext
Loop

rs.close
set rs = nothing
%>
</table>


<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#DDDDDD">
<tr>
<td width="33%" align="left">&nbsp;
<%
If Clng(intPage) > 1 Then
Response.Write "<a href=default.asp?page=" & intPage - 1 & "><img src=left.gif border=0> <b>Forrige</b></a> "
end if %>
</td>
<td width="33%" align="center"><% Response.Write "Side <b>" & intPage & "</b> af <b>" & intPageCount & "</b>" %></td>
<td width="34%" align="right">
<%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & "&strKeyword=" & strKeyword & "&s=" & s & "><b>Næste</b> <img src=right.gif border=0></a>"
end if
%>&nbsp;</td>
</tr>
</table>