Almacenar un vector en Application!!!

[jotamarios]

Tengo un error Type mismatch en la linea que intento ingresar el vector almacenado en la variable Application a un vector local asi:

usuarios=Application("usuarios")

yo he declarado la variable usuarios arriba asi:
Dim usuarios()

No le hago Redim porque no sabría cual es el tamaño del vector en application para cualquier momento.

Que hago?!!!!

[Shiryu_Libra]

pero primero podrias preguntar si en realidad es un vector

Código ASP:

if IsArray(Application("usuarios")) then
 

digo esto... como algo para comprobacion... para saber si en realidad tienes un arreglo, y no simplemente un dato, ya que no creas el redim como mencionas

[jotamarios]

Iniciado por Shiryu_Libra

pero primero podrias preguntar si en realidad es un vector

Código ASP:

if IsArray(Application("usuarios")) then
 

digo esto... como algo para comprobacion... para saber si en realidad tienes un arreglo, y no simplemente un dato, ya que no creas el redim como mencionas

Buen punto, lo hare y les cuento. Pero...asumiendo de que se trate de un vector...que otra cosa podría estar sucediendo? o..si no fuese un vector, y aunque como ven, arriba lo declare como tal, que podría hacer para que se guardase como uno. Gracias!

[u_goldman]

Otra alternativa siendo que estás de antemano tomando valores del global.asa, es decir que defines un arreglo en dicho archivo, sería que en lugar de un arreglo, hicieras una cadena separada por algún identificador y después la convirtieras en arreglo mediante la función split.

Código asp:

'global.asa
Application("usuarios") = "1;2;3;4;5"
 
'archivo.asp
arrUsuarios = split(Application("usuarios"), ";")
 

Saludos

[jotamarios]

A esta ultima idea le veria el inconveniente de tener que hacer el proceso cada vez que un usuario ingresa a la aplicación, porque cabe aclarar que se trata de la página de inicio, y que la idea es guardar en aquel vector, los identificadores (email) de los usuarios, para poder saber quién esta conectado en un momento dado.

[u_goldman]

Hola de nuevo, si te entendí bien, el proceso sería el mismo solo que en lugar de agregar un índice arreglo por cada usuario que entre a la aplicación, agregarías dicho identificador a una cadena, esto se maneja en el global.asa, me imagino que ya tienes algún método para hacerlo, la solución planteada es más la manera de recuperar dichos valores.

Salud

[jotamarios]

Independientemente de si es en Global Asa o en mi página ASP que autentica los usuarios. El proceso es:
Un vector vacio, una variable tipo vector en Application con los emails de usuarios con sesión activa. El vector vacio recibe el vector de Application, le agrega el usuario que ha solicitado ingresar al sistema, y luego se vuelve a almacenar en Application("usuarios"). No se trata de cadenas concatenadas sino de un vector. Gracias! :D

[u_goldman]

Ando lento, no entiendo, suerte

[jotamarios]

jajajaja, bueno lo voy a poner con detalle así:

-El archivo ASP es ingreso.asp. Este logea a un usuario.

Ahora, intento almacenar los nombres de usuario que para mi aplicación son los email. ¿Porque?...para poder determinar si alguien intenta abrir sesión con un usuario ya autenticado.

-¿Como lo intento hacer?. Almacenandolos en una variable Application que se llama Application("usuarios"). Esta se trata de un vector.

-El inconveniente es: Para ir agregando al usuario que pide la página, lo saco del Application("usuarios") en un vector "temporal"(dado que muere cuando la página responde), que luego se va a almacenar y reemplazar en Application("usuarios")...espero ser claro :S

Depronto mi problema tambien sea que no se como agregar valores a la variable contenida en el objeto application (no se si se pueda, creo q no).

Gracias!!

[Myakire]

Independientemente de que puedes hacerlo como u_goldman dice en lugar de usar vectores, también haciendo de lado eso de que quieres usar innecesariamente una variable adicional a la Application donde ya tienes los correos, ¿por qué no los asignas uno por uno y listo?

Código asp:

vector = Array("1@1", "2@2", "3@3", "4@4")
 
Dim variable()
Redim variable(UBound(vector))
 
For i=LBound(variable) to UBound(Variable)
    variable(i) = vector(i)
Next
 

[Myakire]

http://www.forosdelweb.com/f15/matriz-session-481056/

[jotamarios]

Le he hecho un par de pruebas y estoy mas confundido aun :D

Borre el contenido de Application("usuarios") asignandole null.
Luego entre y el guarda lo que le digo, pero no lo ve como un array(use isarray(applcation("usuarios")). Y cuando intenta asignarle la variable de application("usuarios") a un vector me sale este error:
"

estoy en el else
contenido de application:
dad

Microsoft VBScript runtime error '800a000d'

Type mismatch
"
Lo que escribe es por este codigo:

dim shopper_email,shopper_password,uno
dim usuarios()

'Email
shopper_email = Request("shopper_email")

Application.Unlock


'Application("usuarios")=null
If Not IsArray(Application("usuarios"))Then
Response.Redirect("prueba.asp")
End If
If IsNull(Application("usuarios")) Then
ReDim usuarios(1)
usuarios(0)=shopper_email
Application("usuarios")=usuarios
Response.Write("<br>contenido de application:<br>"&Application("usuarios")(0))
Else
Response.Write("<br>estoy en el else")
Response.Write("<br>contenido de application:<br>"&Application("usuarios")(0))
Redim usuarios(1)
usuarios=Application("usuarios")
Response.Redirect("prueba.asp")
'Response.Write("<br>Ahora el valor de usuario es:"&Application("usuarios")(0))
End If
Application.Lock

Alguien que vea el error?? Gracias!

[jotamarios]

Como puedo obligarlo a que sea array????

[u_goldman]

Esto me funciona...

Código asp:

<script language="vbscript" runat="server">  
sub application_onstart
    Application.Lock
    'App Vars
    Application("val") = null
    Application.Unlock
end sub
</script>
 

Código asp:

<&#37;
Sub IteraArreglo(arr)
    if isArray(arr) then
        for i = 0 to uBound(arr)
            Response.Write("Indice " & i & ": " & arr(i) & "<br />")
        next
        Response.Write("<hr/>")
    else
        Response.Write("Este no es un arreglo")
        Response.Write("<hr/>")
    end if
End Sub
 
Application("val") = null
IteraArreglo(Application("val"))
 
'---------------
Dim arr(1)
arr(0) = 1
arr(1) = 2
 
Application("val") = arr
call IteraArreglo(Application("val"))
'-----------------------------
 
'------------------------------
Dim otroArreglo
Dim cadena
cadena = "1;2;3;4;5;6;7;8;9;10"
otroArreglo = split(cadena, ";")
 
Application("val") = otroArreglo
 
call IteraArreglo(Application("val"))
'----------------------------------
%>
 

A ver si te ayuda en tu búsqueda


Salud!

[jotamarios]

Pues esta ultima no era mi intensión, porque me toca convertirlo en vector cada vez que lo revise, pero como que me tocara :( ...se los agradezco mucho a todos, que comunidad tan cool. Saludos,

[Myakire]

No he revisado la solución de u_golmand a profundidad, pero si te ofrece usar una cadena en lugar de un vector, solo puesta el correo con el InStr en lugar de iterarlo.

Igual sobre las propuestas de pasar casi por casilla en lugar de hacer una asignación directa para evitar el error de Type mismatch ¿qué haz pensado?

[u_goldman]

En realidad no es tanto como una solución porque no le entendí mucho al problema lo que traté fué de asignar un arreglo a una variable de aplicación para después iterarlo, el arreglo creado a partir de diferentes métodos.

Salud chicos!

[jotamarios]

Segun lo que he leido e intentado, no se puede hacer asignacion directa...desfortunadamente

[u_goldman]

Iniciado por jotamarios

Segun lo que he leido e intentado, no se puede hacer asignacion directa...desfortunadamente

Siguiendo con nuestro ejemplo, creo un arreglo, lo asigno a la variable de aplicacion creo una variable y le asigno el arreglo que esta contenido en la variable de aplicacion:

Código asp:

'------------------------------
Dim otroArreglo
Dim cadena
cadena = "1;2;3;4;5;6;7;8;9;10"
otroArreglo = split(cadena, ";")
 
Application("val") = otroArreglo
unArregloMas = Application("val")
 
call IteraArreglo(unArregloMas)
'----------------------------------
 

¿Qué me estoy perdiendo que no entiendo?

[Myakire]

última vez que pregunto

Igual sobre las propuestas de pasar casi por casilla en lugar de hacer una asignación directa para evitar el error de Type mismatch ¿qué haz pensado?

[jotamarios]

Iniciado por Myakire

última vez que pregunto

Realmente (si entiendo bien se trata de recorrer la cadena y agregarla a un vector con split?¿) tendría que recorrer cada vez todos los usuarios conectados al sistema cuando un nuevo usuario entre(dado que mi solucion es para determinar que NO este YA conectado), esto haría demasiado lento el proceso y podría denegarle el servicio.

[Myakire]

Iniciado por jotamarios

Realmente (si entiendo bien se trata de recorrer la cadena y agregarla a un vector con split?¿) tendría que recorrer cada vez todos los usuarios conectados al sistema cuando un nuevo usuario entre(dado que mi solucion es para determinar que NO este YA conectado), esto haría demasiado lento el proceso y podría denegarle el servicio.

Claro que no, eso de recorrerlos uno por uno es simple y sencillamente para no hacer la asignación directa, que como ya vimos tal parece no se puede. Pero es trabajando vectores igual como lo haces ahora.

Iniciado por Myakire

Tengo un error Type mismatch en la linea que intento ingresar el vector almacenado en la variable Application a un vector local asi: ....

...¿por qué no los asignas uno por uno y listo?

Código asp:

vector = Array("1@1", "2@2", "3@3", "4@4")
 
Dim variable()
Redim variable(UBound(vector))
 
For i=LBound(variable) to UBound(Variable)
    variable(i) = vector(i)
Next
 

[jotamarios]

Iniciado por Myakire

Claro que no, eso de recorrerlos uno por uno es simple y sencillamente para no hacer la asignación directa, que como ya vimos tal parece no se puede. Pero es trabajando vectores igual como lo haces ahora.

El problema aqui es q esto lo unico que hace es copiar el contenido de un vector, en otro. Mi problema es que no lo puedo asignar a la variable 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

[jotamarios]

Muchas gracias por las respuestas, me decidi por guardarlo como cadena separada por comas y utilizarlo como un vector que le hace un split a la cadena aquella. Gracias a todos!

[AlZuwaga]

¿Y si usás un InStr() para verificar si ya existe el nuevo email en Application("val")?
Digo, si InStr vale cero, significa que no está y por lo tanto se concatena.

[u_goldman]

Iniciado por Al Zuwaga

¿Y si usás un InStr() para verificar si ya existe el nuevo email en Application("val")?
Digo, si InStr vale cero, significa que no está y por lo tanto se concatena.

Tenías que llegar tarde a dar con la solución

[AlZuwaga]

Jo, debo decir que cuando comencé a escribir el anterior mensaje no estaba el de jotamarios en donde decía que ya lo solucionó. También aclarar que no leí todo el mensaje. Recién lo hago y la solución del instr la propuso Myakire hace 3 días:

Iniciado por Myakire

No he revisado la solución de u_golmand a profundidad, pero si te ofrece usar una cadena en lugar de un vector, solo puesta el correo con el InStr en lugar de iterarlo.

(aunque no le entiendo qué quiso decir con lo que yo marqué en rojo )

[Myakire]

Se llama dislexia o disgrafía

quise decir "... solo busca el correo con el InStr ..."

Pero este usuario según me pareció, como que no leía las respuestas, o por lo menos no las razonaba, por eso se tardó tanto en solucionar su problema.

[jotamarios]

Bueno, fijense que lo del instr funcionaría pero...imaginemonos la siguiente situación:
Un usuario se logea en la aplicación y olvida cerrar sesión. La sesión caduca y cuando vuelve a entrar tiene que logearse; dado que mi página de logeo verifica que no se haya autenticado ya buscando en la cadena de los usuarios, lo va a encontrar como logeado porque nunca se retiro su email del objeto application y por lo tanto no podrá volverse a logear, o por lo menos hasta q se destruya dicho objeto. ¿Que solución se le podría dar a esto? porque yo tenia planeado sacarlo del objeto en cuanto presionara logout.