Matriz en session

[ignacioel]

¿Alguien podria ayudarme y decirme que esta mal en este codigo?
if Session("archivo")=nothing then
redim Session("archivo")(0)
else
redim preserve Session("archivo")(Ubound(Session("archivo"))+1)
end if

Session("archivo")(Ubound(Session("archivo")))=Fil eName


Ell error que me sale es el siguiente:
Error de compilación de Microsoft VBScript error '800a0401'

Se esperaba un final de instrucción

/fdr/archivo.asp, línea 128

If IsEmpty(Session("archivo")) Then ReDim Session("archivo")(0)

[tammander]

No se puede redimensionar una sesion. Tienes que asignarle una variable y trabajar sobre ella. Una vez que has hecho las operaciones pertinentes con la variable matriz, vuelve a asignarsela a la sesion:

Dim ar(), l

l = 0
if isArray(session("archivo")) then
ar = Session("archivo")
l = Ubound(ar)+1
Redim Preserve ar(l)
end if
ar(l) = FileName

Session("archivo") = ar



Un saludo

[ignacioel]

Muchisimas gracias por contestar, el tema de las matrices se me atasca mucho, he probado como me comentas pero me sale este error ahora:

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo


Gracias otra vez

[tammander]

Ups. Un despiste. Saca el Redim Preserve de la sentencia If...then

Código:

Dim ar(), l

l = 0
if isArray(session("archivo")) then 
     ar = Session("archivo")
     l = Ubound(ar)+1
end if
 Redim Preserve ar(l)
ar(l) = FileName

Session("archivo") = ar

Mis disculpas

[ignacioel]

Te agradezo mucho tu ayuda, ahora el primer valor parece que lo guarda bien pero cuando va a guardar el segundo valor me da este error:

No coinciden los tipos

en la linea 123 que es esta:
ar = Session("archivo")

es complicadillo esto....grrr
Gracias

[tammander]

No, no lo es. Es falta de tiempo (y, por ende, falta de concentracion en lo que hago :( )

Esto es lo correcto:

Código:

Dim s, x, arIn, arOut()


s = 0
if isArray(session("archivo")) then
    arIn = Session("archivo")
    s = Ubound(arIn)
    Redim arOut(s)
    for x = 0 to s
        arOut(x) = arIn(x)
    next
    s = s + 1
end if
Redim Preserve arOut(s)
arOut(s) = FileName

Session("archivo") = arOut

Deberia haberlo hecho bien desde el principio pero ando liadillo



Disculpame y un saludo

[ignacioel]

Muchisimas gracias, asi si parece que es, ahora le dare vueltas como recoger todos los valores para enviarlos con un Mail.AddAttachment
El FileName era el nombre de los archivos que voy subiendo al servidor.
Muchisimas gracias otra vez por haberme dado tu tiempo.

No consigo recoger los datos....una manita?

[ignacioel]

tammander una ultima ayuda por favor,

¿como le voy asignando el nombre de los ficheros recogidos?

Mail.AddAttachment (Server.Mappath("/adjuntos/"&¿¿¿¿¿variables del array?????&""))


gracias por toda la ayuda

[tammander]

No se que componente mail usas pero, a grosso modo, podría ser asi:

Código:

dim arIn
arIn = session("archivo")

if isArray(arIn) then
    for x = 0 to UBound(arIn)
         Mail.AddAttachment (Server.Mappath("/adjuntos/""" & arIn(x) & """"))
    next
end if

Un saludo

[ignacioel]

Conseguido, muchisimas gracias....eres una maquina, sobraban cuatro comillas pero lo demas funciona perfecto, GRACIASSSSSSSS
Mail.AddAttachment (Server.Mappath("/adjuntos/" & arIn(x) & ""))

Da gusto encontrarse gente como tu creeme.
Saludos

[tammander]

Iniciado por ignacioel

sobraban cuatro comillas pero lo demas funciona perfecto,

Cierto. Maldito despiste

Iniciado por ignacioel

Da gusto encontrarse gente como tu creeme.
Saludos

Gracias


Saludos