¿Habría alguna forma de que, en el código que ahora les muestro, al pulsar sobre el select las variables de mi base de datos se "reordenasen" cada vez que se elijiera un valor, quedando, de este modo, siempre la primera?
<%@ LANGUAGE="VBScript" %>
<%
SEC=REQUEST.FORM("Cod_Categoria")
%>
<html>
<head>
</head>
<body
<%
DIM Base
DIM Tabla
DIM SQL
DIM Ruta
set Base = server.CreateObject("ADODB.Connection")
set Tabla = server.CreateObject("ADODB.Recordset")
Base.open "la_que_sea"
sql = "SELECT Cod_Categoria, Categoria, Descripcion FROM " & "Categorias WHERE Activa ORDER BY Orden"
Tabla.Open SQL, Base, 3,3
Ruta = "PVP/Productos/Secciones.asp?Cod_Categoria=" & Server.URLEncode (Tabla("Cod_Categoria"))
%>
<script language="javascript">
function buscar()
{
var a,b
a=document.Form1.Cod_Categoria.value
b=a.toUpperCase()
location="PVP/Productos/Secciones.asp?Cod_Categoria="+escape(b)
}
</script>
<form method="POST" action="" name="Form1">
<select size="1" name="Cod_Categoria"
OnChange="document.forms[0].submit();">
<%
do while not Tabla.eof
%>
<option value="<%= Tabla("Cod_Categoria") %>"><%= tabla("Categoria") %></option>
<% Tabla.Movenext
LOOP
%>
</select>
<%
Tabla.close
Base.close
set Tabla = nothing
set Base = nothing
%>
</form>
<form method="POST" action="buscar()" name="formul">
<input type="button" value="Consultar Ofertas" name="Enviar" onclick="buscar()">
</form>
</body>
</html>
Ayudenme por favor 
