Ordenar campos una vez ejecutada la consulta

[erika]

Hola Javo! Gracias por responder.
Estuve probando el código que me pasaste, pero no me está funcionando. Aplique esa conversion de la cadena ya que los códigos los envía con un salto de renglón pero solo me muestra los resultados si en el formulario ingreso un solo código, si ingreso más código no me muestra nada, ni me dice que no encontró datos.
Te muestro mas abajo como apliqué lo que me pasaste para ver si te entendí bien o no.

Tomo los datos del formulario

<%
Dim orden
orden = Request.Form("orden")
If Request.Form("codigo")<>"" then
Dim cadena
cadena = replace(request.form("codigo"),VBCrLf, ",")
%>

Luego ejecuto la consulta

<%
Dim cn
Dim rsRubro
Dim strSql
strDsn = "yorma"
Set cn = Server.CreateObject("ADODB.Connection")
cn.open strDsn
Set rsRubro = Server.CreateObject("ADODB.recordset")
strSql = "Select IdProducto, Codigo, Codigointerno, Nombre, Descripcion, Medidas, Precio1, Precio2, Imagen, Imagen2, Imagen3, Cantidadxbulto From Producto WHERE Codigointerno in ('" & cadena & "') Order by ('"& orden &"')"
rsRubro.open strSql , cn
while Not rsRubro.eof
%>

Muestro los datos

<%=rsRubro.fields("Descripcion")%>
<%=rsRubro.fields("Codigointerno")%>
etc.....

y cierro la conexion

<%
rsRubro.movenext
wend
cn.close
Set rsRubro = nothing
Set cn = nothing
else
Response.Write "<h2>No hay datos Disponibles</h2>"

%>

Gracias!!!