Hola... bueno la verdad es que tampoco me funciono lo tuyo amigo gracias de todas formas... en cuanto a de donde sale la variable... les dejo el codigo completo
Código:
<% Option Explicit %>
<html>
<head>
<title>Borrar Producto</title>
<link rel="stylesheet" type="text/css" href="../estilo.css">
</head>
<body>
<%
'Declaración de variables
Dim conn
Dim rs
Dim productos_sql
Dim categorias_sql
Dim categoria
Dim estado
'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
'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
'Condición para estar seleccionado en el select
if categoria = rs("id_categoria") then
estado = "selected"
else
estado = ""
end if
%>
<option value="<% = rs("id_categoria") %>" <% = estado %>><% = rs("nombre_categoria") %></option>
<%
rs.MoveNext
Loop
%>
<option value="" <% if categoria = "" Then %>selected<% end if %>>Todas</option>
</select> <input type="submit" name="b2" value="Mostrar"></p>
</form>
</td>
</tr>
</table>
</body>
</html>
Bueno gracias de antemano y saludos