Ordenar campos desde una cadena

[erika]

Estuve probando un código que me pasaron, pero no me está funcionando. Lo que estoy haciendo es enviar a traves de un formulario en un textarea varios codigos de productos para que al ejecutar una consulta los ordene ya sea por precio, descripción, etc. Aplico la funcion Split para poner estos codigos separados por comas en una cadena, ya que los códigos los envía con un salto de renglón. Pero finalmente solo me muestra los resultados si en el formulario ingreso un solo código, si ingreso más de un código no me muestra nada, ni me dice que no encontró datos, ni me tira ningun tipo de error.
Les muestro mas abajo como apliqué lo que me pasaron para ver si alguien me puede ayudar a encontrar el error.

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!!!