<%
'Criado por : Jonathan R. Cardozo (jonathandj)
'Data : 31/08/2007
variavel = "14=test&7=test1&10=test2&6=test3"
arrayVar = split(variavel,"&")
for i=0 to ubound(arrayVar)
arrrayAux = split(arrayVar(i),"=")
for j = 0 to ubound(arrrayAux)
  if j mod 2 = 0 then
   if var = "" then
    var = arrrayAux(j)
   else
    var = var&","&arrrayAux(j)
   end if
  end if
next
next
arrayVar = split(var,",")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Fields.Append "valor", 200, 255
Rs.Open
For i = 0 to ubound(arrayVar)
Rs.AddNew
Rs.Fields("valor").Value = (right("00000"& arrayVar(i),3))
Next
Rs.Sort = "valor Asc"
Rs.MoveFirst
Do While Not Rs.EoF
    Response.Write(rs.fields("valor").value) &"<br>"
    Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
%>