Almacenar un vector en Application!!!

[u_goldman]

Si entendi bien, esto lo deberia solucionar, si no, de que menos me divertí un rato, vamos, un poco de creatividad

Código asp:

<!--#include file = "adodb.asp"-->
<&#37;
'Estos son nuestros usuarios conectados
Application("val") = "[email protected],[email protected],[email protected],[email protected],[email protected],[email protected],[email protected],[email protected]"
 
Response.Write(Application("val") & "<br />")
 
'Nuevo email
email = "[email protected]"
 
'Creamos un arreglo para iterar con los emails que ya tenemos
arr = split(arrString, ",")
 
'Vamos a crear un recordset desconectado para agregar mejor los emails y hacer el filtrado
Set rs = Server.CreateObject("ADODB.Recordset")
 
'Creamos el recordset desconectado
with rs
    .ActiveConnection = Nothing
    .LockType = 3
    with .Fields
        .Append "email", adBSTR, 300
    end with
    .Open
end with
 
'Llenamos el recordset
for i = 0 to uBound(arr)
    rs.AddNew "email", arr(i)
next
'Filtramos
rs.Filter = "email="&email
 
'Si el email no existe, entonces lo agregamos a nuestra variable de aplicacion
if rs.RecordCount = 0 then
    if len(Application("val")) > 0 then
        Application("val") = Application("val") & ","
    end if
    Application("val") = Application("val") & email
end if
 
'Este es nuestro nuevo valor
Response.Write(Application("val"))
%>
 

Saludos