Findes kategorien?

Nedenstående ændres, så der checkes - hvis det er en tekst

<HTML>
<BODY>
<%
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

if IsNumeric(url) then
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if rs.eof then
response.write(\"Artiklen er der IKKE\")
else
response.write(\"Artiklen er DER\")
end if
set rs = nothing
dbconn.close
set dbconn = nothing
else
response.write(\"det er tekst\")
end if
else
response.write(\"Der er ikke angivet nogen side\")
end if %>
</BODY>
</HTML>

- med følgende kode til databasen:

BEMÆRK jeg kan have kludret/ændret i det følgende:

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
SQL = \"Select * FROM Articles where Category = \'&url&\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)

Hvis der findes en kategori der hedder url skrives: Kategorien findes - HURRA!!

Hvis den ikke findes - så skrives: Desværre ingen kategori - prøv et andet sted :0)

Samme med ingen tal og ingen tekst som før.

Hvordan ser koden ud?