Ordenar campos desde una cadena

[erika]

Buenas, finalmente ya lo pude resolver, por si a alguien le sirve aca dejo el ejemplo.
Saludos y gracias!

Tomo los datos del form

<%
Dim orden
orden = Request.Form("orden")
If orden = "precio" then
If Session("tipocliente") = "A" then
orden = "Precio1"
else orden = "Precio2"
end if
end If
If Request.Form("codigo")<>"" then
Dim palabras
palabras = Split(Request.Form("codigo"),VBCrLf)
%>

Y luego la consulta quedaría asi:

<%
Dim cn
Dim rsRubro
Dim strSql
Dim I
Dim criterio
strDsn = "yorma"
Set cn = Server.CreateObject("ADODB.Connection")
cn.open strDsn
Set rsRubro = Server.CreateObject("ADODB.recordset")
For I = 0 To UBound(palabras)
criterio = "Codigointerno = '" & palabras(I) & "' OR " & criterio
Next
criterio = Left(criterio,(Len(criterio)-4))
strSql = "Select * From Producto WHERE " & criterio & " Order by ("& orden &") ASC"
rsRubro.open strSql , cn
while Not rsRubro.eof
%>