Ver Mensaje Individual
  #6 (permalink)  
Antiguo 21/02/2011, 09:40
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 10 meses
Puntos: 1
Respuesta: problemas con redirigir a otra ventana

¿Nadie sabe la razón por la que no me recoge los datos del formulario? Muchas gracias
Código PHP:
// JavaScript Document
function contar() {
  var 
checkboxes document.getElementById("form1").borrar//Array que contiene los checkbox

  
var cont 0//Variable que lleva la cuenta de los checkbox pulsados

  
for (var x=0checkboxes.lengthx++) {
   if (
checkboxes[x].checked) {
    
cont cont 1;
   }
  }
      if(
cont<1){
  
alert ("Debe de seleccionar una opción");
 return 
0;
  }else if(
cont>1){
      
  
alert ("El número de checkbox pulsados es " cont);
 return 
0;
  }else{
     
alert ("OK");
       
document.form1.submit();
       return 
true;

  }
 
 } 
Aquí me debería recoger los datos del formulario

Código PHP:
Dim accion
accion
=""
accion=request.Form("btnprobar")

Select Case accion
    
Case "Responder a todos"
        
idmensaje=request.Form("borrar")        
        
Dim MiCadena
        MiCadena 
Split(idmensaje",", -1)
        
session("esmensaje")=MiCadena(1)
        
session("idmensaje")=MiCadena(2
        
session("idrespuesta")=MiCadena(0
    
'set rs5=ob_conn1.Execute("select * from T_mensajesdestino c_idmensajeresponder where c_idmensaje='"& MiCadena(2) &"' and c_idmensajeresponder<='"& MiCadena(0) &"'")
        '
idmensajeresponder=rs5("c_idmensajeresponder")
        
set rs=ob_conn1.Execute("select * from T_mensajesdestino where c_idmensaje = '"MiCadena(2) &"' and c_esmensaje='"&"'")
        
'Para=rs("c_idorigen")
        '
set rs1=ob_conn1.Execute("select * from T_mensajesdestino where c_idmensaje = '"MiCadena(2) &"' and c_esrespuesta='"&"' and c_idmensajeresponder='"MiCadena(0) &"'")                                                
        
set rs15=ob_conn1.Execute("select * from T_mensajesdestino where c_idmensaje = '"MiCadena(2) &"' and c_esrespuesta='"&"' and c_idmensajeresponder="MiCadena(0) &"")
        
        
dim num(5)
        do while 
not rs15.eof    
        usuarios
=usuarios&rs15("c_iddestino")&","
        
rs15.movenext
        loop
        session
("Para")=usuarios        
        response
.Redirect("usuario-mensaje-responder-todos.asp")
    Case 
"Responder al remitente"        
        
response.Write("Adios")
End Select
%>