Hente udvalgt data ved at opsætte kriterier

Jeg sidder og pusler med et script, men er lidt i tvivl om hvordan jeg får mit script til at trække ud fra dben så det kun er data der er i katagorien fx diverse og ikke som mit script er nu hvor den trækker alt ud fra dben.... jeg mener man skal skrive således:
strSQL = "Select * From digte Order by kat Desc"
for at opsætte kriterier for hvilke data der skal hentes, men kan ikke lige overskue hvordan det skal sættes ind i mit script. :-(

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from digte where vises = True ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db1.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 3
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<font face='Verdana' size='1'><center>Side " & intPage & " af " & intPageCount & "</center></FONT>"
  Do While Not rs.EOF And intRecCount > 0
response.write "<fieldset style='padding: 2'>"
response.write "<legend><font face='Verdana' size='1'COLOR='BLACK'><b>"& rs("overskrift")&"</b></FONT>"
response.write "</legend>"
response.write "<font face='Verdana' size='1'>"
response.write rs("digt") &"<br>"
Response.Write "Forfatter:" & rs("digtaf")  & " | Tilføjetaf: <a href='mailto:" & rs("email") & "'>" & rs("navn") & "</a><br>"
response.write "</FONT></div>"
response.write "</fieldset>"
response.write "<br>"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<hr color='#DCB7DC' size='1'>"
For intNum = 1 To intPageCount
Next
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='400'>"
Response.Write "<tr>"
Response.Write "<td width='33%' align='left'>&nbsp;"
If Clng(intPage) > 1 Then
Response.Write "<a href=digt.asp?page=" & intPage - 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b> </a>"
Else
Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b>"
End If
Response.Write "</td>"
Response.Write "<td width='33%' align='center'></td>"
Response.Write "<td width='34%' align='right'>"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=digt.asp?page=" & intPage + 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Næste</b></a> &nbsp;</td>"
Else
  Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Næste</b>"
End If
Response.Write "</tr>"
Response.Write "</table>"
%>