En paging der virker men ?

Hej
Jeg har et problemer jeg søger at få løst.
Når jeg beder om følgende side#bold_start# nykompetence_page.asp?services=\'System_Management\'&produkt=\'BMC\' #bold_end#
vises de kompetencer der er under System Management og som er med produktet BMC.

Koden ser således ud:
#code_start#

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    SQLstr = \"SELECT * FROM Service WHERE Services = \" & Request.QueryString(\"Services\") &\" AND Produkt = \"& Request.QueryString(\"Produkt\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"cgi-bin/kompetencedb.mdb\")
rs.Open SQLstr, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount%>
<%
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.write \"<a href=nykompetence_page.asp?page=\" & intNum & \"&Services=\'System_Management\'&produkt=\'BMC\'>\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=nykompetence_page.asp?page=\" & intPage - 1 & \"&Services=\'System_Management\'&produkt=\'BMC\'>max</a>\"
End If
%>

<%
On Error Resume Next
rs.MoveFirst
do While Not rs.eof And intRecCount > 0
    %>
<font class=\"REDFONT\"><li>
<%Response.Write rs(\"Overskrift\")%></li></font><font class=\"DATE\"></font>

<%
rs.MoveNext
loop%>
<%intRecCount = intRecCount - 1
rs.MoveNext
End If
rs.Close
Set rs = Nothing
%>
#code_end#
Men jeg ville gerne vide hvordan jeg kan sætte værdien af min
Request.QueryString(\"Services\") &\" AND Produkt = \"& Request.QueryString(\"Produkt\")
ind istedet for &Services=\'System_Management\'&produkt=\'BMC\'
så jeg på den måde kan bruge siden til andre Services og produkter ?

#code_start#

<%
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.write \"<a href=nykompetence_page.asp?page=\" & intNum & \"&Services=\'System_Management\'&produkt=\'BMC\'>\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=nykompetence_page.asp?page=\" & intPage - 1 & \"&Services=\'System_Management\'&produkt=\'BMC\'>max</a>\"
End If
%>
#code_end#

mvh
MAX]