Bien, muchas gracias.
Fijate que probando tu codigo me encontre con una solucion mas sencilla (Como el burro que tocó la flauta)...
Código:
<%
if (request.querystring("cat")) then
Dim prueba
set prueba = webDato(1,0,"Categorias","catID",request.querystring("cat"))
while not prueba.EOF
%>
<tr>
<td>
<%= prueba("descripcion") %>
</td>
</tr>
<%
prueba.movenext
wend
end if
%>
Gracias de nuevo!