pasar datos de un array a otra ventana

[igonfil]

Hola a tod@s. Necesito pasar los datos de un array a otra ventana en la que se encuentra un inser (esto es para que me introduzca unos valores seleccionados de una ventana flotante y posteriormente de mostrar los datos en una ventana y ver que son correctos pulsar sobre un botón y que me dirija a otra ventana en la cual inserta dichos datos a la bd) y no lo consigo ya que me da el siguiente error ¿Como puedo solucionarlo? muchas gracias

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'LBound'

/ventanaflotante/drag/Untitled-1.asp, line 32

Y el codigo que tengo es el siguiente

Código PHP:

   
<%if request.form("equipo")="" then%> 
<div id="capa1" onclick="mostrar('window')">Mostrar</div> 
<%else%> 
<div style="height:auto"> 
 
<% Sub muestraArray(datos) 
For i = LBound(datos) To UBound(datos) Step 1 
response.write datos(i)+"<br>" 
Next 
End Sub 
 
equipo=request.form("equipo") 
 
Dim equipos(), I  
I = 0  
For Each Valor In Request.Form("equipo")  
    Redim Preserve equipos(I)  
    equipos(I) = Valor  
    I = I + 1  
Next  
 
muestraArray(equipos) 
 
%></div> 
<%end if%> 
<form method="post" action="insertar_bd.asp?vector=<%muestraArray(equipos)%>"> 
    <input type="submit" /> 
</form> 
<div id="window" style="position:absolute; z-index:10; left:350px; top:160px; width:400px;background-color:#dde3eb; border:1px solid #464f5a; visibility:hidden">  
     
   <div style="padding-bottom:8px; width:400px; background-color:#718191; border-bottom:1px solid #464f5a; height:20px" onMouseDown="beginDrag(this.parentNode, event);"> 
 
      <div style="position:absolute; top:2px; left:5px; font-size:16px; font-weight:bold; color:#FFFFFF;">Ventana</div>  
        
      <div style="position:absolute; top:3px; left:377px; float:right;">  
        <div onclick="ocultar('window')"><img src="img/cerrar.jpg" /></div> 
      </div>  
        
   </div>  
<br/>  
   <div style="margin-left:20px;"> 
           <form name="miformulario" action="Untitled-1.asp" method="post" > 
            <select name="equipo" multiple> 
            <%do while not rs.eof%> 
                <option value="<%=rs("c_idusuario")%>"><%=rs("c_nombre")%>&nbsp;<%=rs("c_1apellido")%></option> 
            <%rs.movenext 
            loop%> 
            </select> 
            <input type="submit" value="enviar"> 
        </form>    
   </div>      
    
<br/>  
 
</div>  
   

[IsaBelM]

LBound(datos) es igual a 0. usa el integer y no es necesario step 1, por defecto la iteración es de uno

[igonfil]

He realizado las modificaciones

Código PHP:

  <% Sub muestraArray(datos) 
For i = 0 To UBound(datos) 
response.write datos(i)+"<br>" 
Next 
End Sub 
 
equipo=request.form("equipo") 
 
Dim equipos(), I  
I = 0  
For Each Valor In Request.Form("equipo")  
    Redim Preserve equipos(I)  
    equipos(I) = Valor  
    I = I + 1  
Next  
 
muestraArray(equipos) 
 
%>  
   

pero me da el siguiente error

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBound'

/ventanaflotante/drag/Untitled-1.asp, line 32

[IsaBelM]

se me pasó decirte que aunque crees que está recibiendo una matriz, en realidad lo que se recibe es un string. de ahí el error. lo puedes comprobar con isArray(datos)
esto es lo que yo haría

<% Sub muestraArray(datos)
teams = split(datos, ",")
For i = 1 To UBound(teams)
response.write teams(i)+"<br>"
Next
End Sub

equipo=request.form("equipo")

Dim equipos
equipos = ""
For Each Valor In Request.Form("equipo")

equipos = equipos & "," & Valor

Next

muestraArray(equipos)

%>

[igonfil]

Ahora otro problema. Estoy intentando recuperar los datos de la matriz en la otra ventana de la siguiente manera

Código PHP:

  <%vector=request.QueryString(vector)%>  
   

Expecting string input

/ventanaflotante/drag/insertar_bd.asp, line 15

The function expects a string as input.

[igonfil]

Ya he encontrado la solución se me olvido poner doblecomilla
Muchas gracias IsaBelM me has sido de mucha ayuda

Código PHP:

  <%prueba=request.QueryString("vector")%>  
   

[igonfil]

Perdonar pero ahora se me ha presentado otro problema. Todo este código me introduciría todo el contenido de la matriz en una variable pero lo que necesito es que. Pero todo esto lo quisiera para que cada uno de los valores de la matriz se introdujera cada valor en una fila de la tabla de la bd.

No se si me estoy liando mucho y hay otra solución mejor que todo esto.
Muchas gracias

[igonfil]

Ya está resuelto, lo he solucionado con un split. El código que he usado es el siguiente.

Código PHP:

  destinatario=request.QueryString("vector") 
    tema=split(destinatario, ",") 
    For i = 0 To UBound(tema)-1     
        set rs1=ob_conn1.Execute("Insert into T_mensajes (c_destinatarios) values ('" & tema(i) & "')") 
    Next  
   

[igonfil]

Una última cosa que me ha surgido ahora mismo y es que si tengo otra manera de hacer esto sin que me escriba los datos en pantalla, ya que no quiero que se me muestre nada (sin usar el response.write). He probado con una variable pero luego no me recoge ningún dato.
Muchas gracias

Código PHP:

  Sub muestraArray(datos) 
teams = split(datos, ",") 
For i = 1 To UBound(teams) 
response.write teams(i)+"<br>" 
Next 
End Sub  
   

[IsaBelM]

no comprendo que es lo que realmente quieres hacer, así que antes de especular, explicalo mas detalladamente.
mira aquí hay un error. fue culpa mía, venia de js y se me escapo esa concatenación

response.write teams(i)&"<br>"

[igonfil]

Tengo una ventana en la cual aparece dos botones uno que sería la que abre una ventana flotante(es una capa que al pulsar el botón se muestra u oculta) en esta capa hacemos una selección de los datos que necesitamos (select multiple) y lo que necesito es que estos datos que he seleccionado me los mande a otra ventana (pero sin mostrarmelos en dicha ventana) y el otro botón que tengo es el que manda esos datos a la otra ventana en la cual se encuentra un insert que me los introduce en una bd. No se si me explicado bien es un poco lioso.
Muchas gracias

[igonfil]

Nada, sigo sin encontrar la solución ¿Cómo lo podría resolver?¿una ayudita? Gracias

[IsaBelM]

lo que necesito es que estos datos que he seleccionado me los mande a otra ventana (pero sin mostrarmelos en dicha ventana)

cuando dices otra ventana, es una ventana ya abierta?? la ventana desde donde se abrió la capa?? o una nueva ventana??
que no se muestren los datos, no uses response.write
siento no poder ser mas concreta, pero no comprendo que tiene que ver este código con lo que te ocupa

Sub muestraArray(datos)
teams = split(datos, ",")
For i = 1 To UBound(teams)
response.write teams(i)&"<br>"
Next
End Sub

[igonfil]

Ya está resuelto, me hice un lío con el código, que desastre. Tan solo necesitaba equipo=request.form("equipo") para recoger los datos de la select multiple del formulario equipo y ya estaba todo el procedimiento que cree sobraba. Lo dicho que desastre soy Muchas gracias.