Ordenando Arrays Com Recordset Desconectado

Webly: Ordenando Arrays Com Recordset Desconectado - Webly

Regras para postagem no fórum

É permitido postar livremente respostas com comentários, testes e avaliações dos scripts. Postagens contendo dúvidas sobre o script, deverão ser postadas no fórum principal de ASP.

IMPORTANTE: Todos os tutoriais postados neste fórum irão automaticamente para o portal Webly. Contribua você também e faça parte da equipe de colaboradores que fazem a evolução da web. Obrigado.

Página 1 de 1

Novo tópico
Responder

Ordenando Arrays Com Recordset Desconectado Exemplo prático de uso do recordset desconectado, útil para 'n' Avaliar tópico: 2 Votos

#1 jonathan

Grupo: Membros
Posts: 40
Cadastrado: 04-outubro 06
Localização:Porto Alegre - RS

Postou 31 agosto 2007 - 02:46

<%
'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
%>