problema con if dentro de un select (option)

[El_Metallick]

si es que al final las separe en dos y categorias lo puse dentro de la condicion inicial de categoria:

categoria = Request.Querystring("categoria")
categorias = clng(Request.Querystring("categoria"))

y el select lo deje asi:

Código:

 <p align="center"><select name="categoria">
<% Do While Not rs.Eof %>
<option value="<% = rs("id_categoria") %>" <% if categorias = rs("id_categoria") Then %>selected<% end if %>><% = rs("nombre_categoria") %></option>
<%
rs.MoveNext
Loop
%>
	<option value="" <% if categoria = "" Then %>selected<% end if %>>Todas</option>
	</select>

y me quedo el codigo entero algo asi:

Código:

<%
'Declaración de variables
Dim conn
Dim rs
Dim productos_sql
Dim categorias_sql
Dim categoria
Dim categorias
'Rescate de la información pasada por URL
categoria = Request.Querystring("categoria")
'Conección a la Base de Datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
'Condición de validez de la variable categoria
if categoria = "" Then
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
productos_sql="Select * From productos"
else
categorias = clng(Request.Querystring("categoria"))
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
productos_sql="Select * From productos Where categoria = " & categoria & ""
end if
'Ejecución de la orden
Set rs = Conn.Execute(productos_sql)
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
 <tr>
  <td width="20%" valign="top">
   <!--#include file="inc/menu.inc" -->
  </td>
  <td width="80%" valign="top">
  <form method="post" action="borrar.asp" target="_blank">
   <table border="1" bordercolor="#DFE8FF" width="70%" cellspacing="0" cellpadding="0" align="center">
	<tr>
  <td>
   <table border="0"  width="100%" cellspacing="0" cellpadding="2">
	<tr>
	 <td width="2%" bgcolor="#DFE8FF" class="text">ID</td>
		<td width="22%" bgcolor="#DFE8FF" class="text">IMAGEN</td>
		<td width="22%" bgcolor="#DFE8FF" class="text">MARCA</td>
		<td width="22%" bgcolor="#DFE8FF" class="text">MODELO</td>
		<td width="22%" bgcolor="#DFE8FF" class="text">DESCRIPCION</td>
		<td width="10%" bgcolor="#DFE8FF" class="text">PRECIO</td>
	   </tr>
	
	   <% 
	If Not rs.Eof Then
	Do While Not rs.Eof 
	%>
	   <tr>
		<td width="2%" bgcolor="#EFEFEF"><input type="checkbox" name="id" value="<% = rs("id_producto") %>"></td>
		<td width="22%" bgcolor="#EFEFEF"><% = rs("imagen") %></td>
		<td width="22%" bgcolor="#EFEFEF"><% = rs("marca") %></td>
		<td width="22%" bgcolor="#EFEFEF"><% = rs("modelo") %></td>
		<td width="22%" bgcolor="#EFEFEF"><% = rs("descripcion") %></td>
		<td width="10%" bgcolor="#EFEFEF"><% = rs("precio") %></td>
	   </tr>
	   <% 
	   rs.MoveNext 
	   Loop
	else
	   %>
	<tr>
		<td width="100%" bgcolor="#EFEFEF" colspan="6" class="text" align="center">No hay productos en esta categoría</td>
	   </tr>
	<% end if %>
   </table>
  </td>
 </tr>
   </table>
   <p align="center"><input type="submit" name="b1" value="Borrar"></p>
  </form>
  <%
  rs.close
  
  'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
  categorias_sql="Select * From categorias"
  'Ejecución de la orden
  Set rs = Conn.Execute(categorias_sql)
  %>
  <form method="get" action="form_borrar.asp">
   <p align="center"><select name="categoria">
	<% Do While Not rs.Eof %>
	<option value="<% = rs("id_categoria") %>" <% if categorias = rs("id_categoria") Then %>selected<% end if %>><% = rs("nombre_categoria") %></option>
	<%
	rs.MoveNext
	Loop
	%>
 <option value="" <% if categoria = "" Then %>selected<% end if %>>Todas</option>
 </select>&nbsp;&nbsp;<input type="submit" name="b2" value="Mostrar"></p>
  </form>
  </td>
 </tr>
</table>