Problem med Paging hvor ID skal med fra anden side!

Hejsa

Jeg har nedenstående kode, som jeg har lidt af et problem med at få til at virke optimal! Jeg vil gerne have at man fra en nav side kan kalde det dokument som indeholder nedenstående kode hvor man henter indhold ud fra et ID som sendes fra nav siden! samtidig vil jeg gerne have at man kan bladre til næste eller forrige "side" som indeholder den record som kommer før eller efter i ID rækken! men hvis jeg sætter WHERE id = Request.Querystring("catid") ind i SQL sætningen får jeg ikke mulighed for at gå frem og tilbage i "siderne" og jeg mangler også noget logik i hvilken ID der kommer før og efter den record som jeg har valgt i nav menuen?? Er der en der kan hjælpe mig med at tilrette nedenstående kode??

På forhånd tak

/Stig :-)



<%

'####### Productscount ############
'## Create db objects and SQL   
set ProdcountConn = Server.CreateObject("ADODB.Connection")
ProdcountConn.CursorLocation = 3
ProdcountConn.Open Application("ConnectString")
Set prodcountrs = Server.CreateObject("ADODB.Recordset")

ProdcountSql = "SELECT count(*) as amountcount FROM house WHERE provehusaktiv='yes';"

Set prodcountrs = ProdcountConn.Execute(ProdcountSql)

%>


<%
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
      intPage = 1
    End If

    set dbhouseConn = Server.CreateObject("ADODB.Connection")
    dbhouseConn.CursorLocation = 3
    dbhouseConn.Open Application("ConnectString")
    Set rshouse = Server.CreateObject("ADODB.Recordset")

    sqlhouse = "SELECT * FROM house"
   
    Set rshouse = dbhouseConn.Execute(sqlhouse)
   
    If Not (rshouse.BOF Or rshouse.EOF) Then
    rshouse.PageSize = 1
    rshouse.AbsolutePage = intPage
    intRecCount = rshouse.PageSize
    intPageCount = rshouse.PageCount
%>

<br>
<br>
<br>

<center>

<table cellspacing="2" cellpadding="2" border="0" style="width: 90%">
<tr>
    <td valign="top" style="width: 270px"><img src="BinProvehusePic.asp?id=<%=rshouse("id")%>&DBImageName=largeimage" border="0"></td>
    <td valign="top"><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" color="#666666" size="2"><b><%=rshouse("headline")%></b></font><br><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" color="#993333" size="1"><b>D. <%=rshouse("dates")%><br>Kl. <%=rshouse("starttime")%> til <%=rshouse("endtime")%></b></font><br><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" color="#666666" size="1"><%=rshouse("description")%></font></td>
</tr>
<tr>
    <td valign="top" style="width: 270px"><table align="center" width="100%" cellspacing="0" cellpadding="0" border="0">
                    <tr>
                        <td width="50%" valign="top"><%
                                                        If Clng(intPage) > 1 Then
                                                          Response.Write "<a href=provehus.asp?catid=" & trim(request.querystring("catid")) & "&page=" & intPage - 1 & "><img src=../img/forrige.gif alt=Forrige border=0></a>"
                                                        Else
                                                          Response.Write "&lt;&lt;"
                                                        End If
                                                       
                                                        Response.Write "&nbsp;"
                                                      %></td>
                        <td width="50%" align="right" valign="top"><%
                                                                    If Clng(intPage) < Clng(intPageCount) Then
                                                                      Response.Write "<a href=provehus.asp?catid=" & trim(request.querystring("catid")) & "&subid=" & trim(request.querystring("subid")) & "&page=" & intPage + 1 & "><img src=../img/next.gif alt=Videre border=0></a> "
                                                                    Else
                                                                      Response.Write "&gt;&gt;"
                                                                    End If
                                                                    %></td>
                    </tr>
                    </table></td>
    <td valign="top">&nbsp;</td>
</tr>
</table>           

               
</center>               
                   
<% end if %>