paging false false false

Jeg får svaret false i en kategori, istedet for at få vist titler. Køre via access db.

Her burde den vise 3 titler!!!

DVD » Drama-komedie
Film titel
FalseFalseFalse
1  Side 1 af 1 

*********************koden********************
<% case "vis"
' Hvis der ikke er valgt noget mode vises alle film

' Paging
intPage = Request("page")
rpage = "&page=" & request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
  rpage = "&page=1"
End If

orderby = request("orderby")
if request("orderby") <> "" then
orderby = request("orderby")
else
orderby = "mname"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/bmdvd.mdb")
Set kat = Conn.Execute("SELECT catdescription FROM categories WHERE categoryID=" & request("kat") & "")
katg = kat("catdescription")
Set kat = nothing
Conn.Close
Set Conn = Nothing

' Database connection
  Response.Write "<table width='500' cellspacing='1' cellpadding='3'>"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM movies WHERE mcategory=" & request("kat") & " AND mshow='ja' ORDER BY " & orderby & ""
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/bmdvd.mdb")
rs.Open strSQL, strDSN, 1
    Response.Write "<tr><td width='100%' bgcolor=""#E5E5E5""><font size=""2""><b>DVD</b> » <b>" & katg & "</b></font></td></tr>"
If Not (rs.BOF Or rs.EOF) Then
'  Response.Write "<tr><td bgcolor=""#CCCCCC""><font size=""2""><b><a href=""test_oversigt.asp?mode=vis&kat=" & request("kat") & rpage & "&orderby=mname"">Film titel</a></b></font></td></tr>"
    Response.Write "<tr><td bgcolor=""#CCCCCC""><font size=""2""><b><a href=""test_oversigt.asp?mode=vis&kat=" & request("kat") & rpage & "&orderby=mname"">Film titel</a></b></font></td></tr>"
  rs.PageSize = 25
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0

If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If

        Response.Write "<tr><td valign=top bgcolor=" & bg & "><font size=2><b><a href=""movie.asp?id=" & rs("movieID") & "">"" & rs("mname") & "</a></b></font></td>"


  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
else
response.write "<tr><td  align=""center""><font size=""2""><b>Der er ingen DVD'er i denne genre!</b></font></td><tr>"
End If
rs.Close
Set rs = Nothing

' Navigering mellem siderne med paging
Response.Write "<tr><td  bgcolor=""#CCCCCC"">"
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%""><tr><td bgcolor=""#CCCCCC""><font size='1'>"

If Clng(intPage) > 1 Then
  Response.Write "<a href=test_oversigt.asp?mode=vis&kat=" & request("kat") & "&page=" & intPage - 1 & "&orderby=" & request("orderby") & " >[<<]</a>&nbsp;"
Else
  Response.Write ""
End If

Response.Write ""
For intNum = 1 To intPageCount
  Response.Write "&nbsp;<a href=test_oversigt.asp?mode=vis&kat=" & request("kat") & "&page=" & intNum & "&orderby=" & request("orderby") & " ><b>" & intNum & "</b></a>&nbsp;"
Next

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "&nbsp;<a href=test_oversigt.asp?mode=vis&kat=" & request("kat") & "&page=" & intPage + 1 & "&orderby=" & request("orderby") & " >[>>]</a>"
Else
  Response.Write ""
End If

Response.write "</b> Side <b>" & intPage & "</b> af " & intPageCount & "</font></td><td align=""right""></td></tr></table></td></tr></table>"