Hola Metallick, probé la porción de código de la parte del select, y lo modifique para seleccionar las cosas de acuerdo a unas tablas que yo tengo, y el codigo funciona correctamente. Y te digo mas, la parte que tu tienes esto:
<option value="" <% if categoria = "" Then %>selected<% end if %>>Todas</option>
también funciona, por lo no te haría falta modificar el código que habias puesto en el post al principio. Quizás no le estes enviando bien la variable por el querystring, para mi que es eso. AHora te mando la porcion del código que copie yo, modificalo para adaptarlo a tus tablas y dime si te funciona.
categoria =""
categorias_sql="Select * From Productos WHERE IdNegocio = 3"
'Ejecución de la orden
Set rs = session("conn").Execute(categorias_sql)
%>
<form method="get" action="form_borrar.asp">
<p align="center"><select name="categoria">
<% Do While Not rs.Eof
'Condición para estar seleccionado en el select
if categoria = rs("Id") then
estado = "selected"
else
estado = ""
end if
%>
<option value="<% = rs("Id") %>" <% = estado %>><% = rs("Nombre") %></option>
<%
rs.MoveNext
Loop
%>
<option value="" <% if categoria = "" Then %>selected<% end if %>>Todas</option>
</select>
</form>
Bueno ese es el codigo que modifique yo para adaptarlo a mis tablas y probarlo. Fijate que yo uso el string de conexion con session("conn"). ESo también deberías modificarlo. Y otra cosa, no le pases por el querystring la variable para hacer esta comprobacion, sino asignale un valor arbitrario a la variable categoria que esta en la primer linea y que compruebe la condición con ese valor que le pasaste arbitrariamente.
Despues avisame si te funciona. Saludos Metallick.