Check Box

[asegoviaz]

Amigo,
No me envia nadaen el sector de los check box.
Este el parte del codigo de los checks box del que envia

Código:

<td><div align="center">
                                  <input type="checkbox" name="rubro" id="rubro" value="Plantas de Residuos S&oacute;lidos ">
                                </div></td>
                              </tr>
                              <tr>
                                <td><div align="left">Terminales Terrestres</div></td>
                                <td><div align="center">
                                  <input type="checkbox" name="rubro" id="rubro" value="Terminales Terrestres">
                                </div></td>
                                <td><div align="left">Centros de Revisiones Tecnicas </div></td>
                                <td><div align="center">
                                  <input type="checkbox" name="rubro" id="rubro" value="Centros de Revisiones Tecnicas">
                                </div></td>
                              </tr>
                              <tr>
                                <td><div align="left">Servicios Tur&iacute;sticos </div></td>
                                <td><div align="center">
                                  <input type="checkbox" name="rubro" id="rubro" value="Servicios Tur&iacute;sticos ">
                                </div></td>

Este el codigo completo del que recibe

Código:

<%@ Language=VBScript %>

<%
Set Mail = Server.CreateObject("CDONTS.Newmail")

Mail.From ="[email protected]" 
Mail.To ="[email protected]" 

Mail.Subject = "Desde la Web"  
Msg = Msg & "DATOS DE LA EMPRESA" & Chr(10)& Chr(10)
Msg = Msg & "EMPRESA: " & Request.Form("empresa") & Chr(10) 
Msg = Msg & "SECTOR: " & Request.Form("sector") & Chr(10)
Msg = Msg & "DIRECCION: " & Request.Form("dir") & Chr(10) 
Msg = Msg & "TELEFONOS: " & Request.Form("tel") & Chr(10) 
Msg = Msg & "FAX: " & Request.Form("fax") & Chr(10) 
Msg = Msg & "--------------------------------------------------------------" & Chr(10) 
Msg = Msg & "RUBROS DE PROYECTOS: " & Chr(10) 


variable = request.form("rubro")
arrCasilla = split(variable,",")
for i = 0 to Ubound(arrCasilla)
Msg= Msg & Response.Write (arrCasilla(i)&"<BR>") 
Next


Msg = Msg & "--------------------------------------------------------------" & Chr(10) 
Msg = Msg & "PARTICIPANTE 1" & Chr(10)
Msg = Msg & "APELLIDOS : " & Request.Form("a1") & Chr(10)
Msg = Msg & "NOMBRES : " & Request.Form("n1") & Chr(10)
Msg = Msg & "CARGO : " & Request.Form("c1") & Chr(10)
Msg = Msg & "E-MAIL : " & Request.Form("e1") & Chr(10)
Msg = Msg & "TELEFONO/ANEXO : " & Request.Form("t1") & Chr(10)

Msg = Msg & "--------------------------------------------------------------" & Chr(10) 
Msg = Msg & "PARTICIPANTE 2" & Chr(10)
Msg = Msg & "APELLIDOS : " & Request.Form("a2") & Chr(10)
Msg = Msg & "NOMBRES : " & Request.Form("n2") & Chr(10)
Msg = Msg & "CARGO : " & Request.Form("c2") & Chr(10)
Msg = Msg & "E-MAIL : " & Request.Form("e2") & Chr(10)
Msg = Msg & "TELEFONO/ANEXO : " & Request.Form("t2") & Chr(10)


Mail.Body = Msg
Mail.Send
Set Mail = Nothing
Response.Redirect "http://www.dominio.com" 


%>

Los demas datos, es decir los que estan en text si salen, pero justo la parte de los chechs box se recibe en blanco, como si no se hubiese señalizado nada.
Gracias por tu ayuda