Nunca se me hubiera ocurrido hacer lo que
Adler sugiere

, supongo funciona, pero "lo normal", "lo convencional" es algo como esto:
Código:
<%
opt = Request.QueryString("consulta")
%>
<select name="consulta" class="texto_desplega" id="consulta">
<option value="primero" <%=iif(opt="primero", " selected ", "")%>>primero</option>
<option value="segundo" <%=iif(opt="segundo", " selected ", "")%>>segundo</option>
<option value="ambos" <%=iif(opt="ambos", " selected ", "")%>>ver todo</option>
</select>
<%
function iif(condition,isTrue,isFalse)
if (condition) then
iif = isTrue
else
iif = isFalse
end if
end function
%>
Si no te gusta la función iif (que debe ir en tu archivo de funciones globales si es que usas alguno), pues colocas el If-Then completo en cada opción del combo.