Ordenar cookies Recuperando Valores

[ersao 0]

Olá Pessoal tenho codigo abaixo feito pelo Jonathan(jonathandj), mas gostaria de estar recuperando os valores vindos da cookie, ou seja o codigo retorna assim:

6

7

10

14

como eu faria para ficar assim:

6=test3

7=test1

10=test2

14=test

 

<%'Criado por : Jonathan R. Cardozo (jonathandj)'Data : 31/08/2007variavel = "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 ifnextnextarrayVar = split(var,",")Set Rs = Server.CreateObject("ADODB.RecordSet")Rs.Fields.Append "valor", 200, 255Rs.OpenFor i = 0 to ubound(arrayVar)Rs.AddNewRs.Fields("valor").Value = (right("00000"& arrayVar(i),3))NextRs.Sort = "valor Asc"Rs.MoveFirstDo While Not Rs.EoF	Response.Write(rs.fields("valor").value) &"<br>"	Rs.MoveNextLoopRs.CloseSet Rs = Nothing%>

[NewUser 0]

Num tendi!

[jrcardozo 4]

só você alterar umas coisinhas....é necessário fazer um ELSE e armazenar em outra variavel o valor depois do = e adicionar ao recordset para que o mesmo seja adicionado.

Ficando assim:

ASP

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 

                else

                        if var2 = "" then

                                var2 = arrrayAux(j)

                        else

                                var2 = var2&","&arrrayAux(j)   

                        end if                         

                end if

        next

Depois disso é só quebrar um novo array e ir adicionando no recordset atribuindo um novo nome pra coluna

[ersao 0]

FEITO E CONCLUÍDO VALEW (MUITO OBRIGADO)!!!

 

<%'Criado por : Jonathan R. Cardozo (jonathandj)'Data : 31/08/2007variavel = "14=test14&7=test7&10=test10&6=test6&1=teste1&15=test15&25=test25"	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)	elsevar = var&","&arrrayAux(j)	 		end if 	elseif var2 = "" then	var2 = arrrayAux(j)elsevar2 = var2&","&arrrayAux(j)   	end if 	end ifnextnextarrayVar = split(var,",")arrayVar2 = split(var2,",")	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),2) & "." & arrayVar2(i)	Next	Rs.Sort = "valor Asc"		Rs.MoveFirst			Do While Not Rs.EoF   				 Response.Write(rs.fields("valor").value) & "<br>"	Rs.MoveNextLoopRs.CloseSet Rs = Nothing%>

Resultado:

 

01.teste1

06.test6

07.test7

10.test10

14.test14

15.test15

25.test25

[nettcom 0]

FEITO E CONCLUÍDO VALEW (MUITO OBRIGADO)!!!

<%'Criado por : Jonathan R. Cardozo (jonathandj)'Data : 31/08/2007variavel = "14=test14&7=test7&10=test10&6=test6&1=teste1&15=test15&25=test25"	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)	elsevar = var&","&arrrayAux(j)	 		end if 	elseif var2 = "" then	var2 = arrrayAux(j)elsevar2 = var2&","&arrrayAux(j)   	end if 	end ifnextnextarrayVar = split(var,",")arrayVar2 = split(var2,",")	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),2) & "." & arrayVar2(i)	Next	Rs.Sort = "valor Asc"		Rs.MoveFirst			Do While Not Rs.EoF   				 Response.Write(rs.fields("valor").value) & "<br>"	Rs.MoveNextLoopRs.CloseSet Rs = Nothing%>

Resultado:01.teste106.test607.test710.test1014.test1415.test1525.test25

do php para ASP: falta corrigir...!

<%Dim gv_bancoFunction fn_teste ( lv_p )	Dim lv_p, lv_db, lv_campo, lv_campos(), lv_banco(), lv_valor 	lv_db = split ( lv_p , "&" )	$banco = Array (  )	foreach($db as $db1 = >$db2){	$campos=split ( $db2 , "=" )	lv_campo = lv_campos(0)	valor=lv_campos(1);			   lv_banco($campo) = lv_valor			 }End Functionfn_teste = gv_banco%>

[jrcardozo 4]

nettcom, esse seu código não está funcional, favor rever e posta-lo pois ao que parece não foi modificado do Php para Asp e não vi onde que ordena

do php para ASP: falta corrigir...!

<%Dim gv_bancoFunction fn_teste ( lv_p )	Dim lv_p, lv_db, lv_campo, lv_campos(), lv_banco(), lv_valor 	lv_db = split ( lv_p , "&" )	$banco = Array (  )	foreach($db as $db1 = >$db2){	$campos=split ( $db2 , "=" )	lv_campo = lv_campos(0)	valor=lv_campos(1);			   lv_banco($campo) = lv_valor			 }End Functionfn_teste = gv_banco%>