1. ¡OFERTA! con cupón "DIRVPS": hosting por $0,01 y también VPS Linux y Windows por $0,01 el primer mes por Interserver ← publi
    Descartar aviso
Descartar aviso
Al usar este sitio web, aceptas que nosotros y nuestros socios podamos establecer cookies para fines tales como personalizar el contenido y la publicidad. Más información.

Ayuda con Formulario en ASP

Tema en 'Programación y Diseño Web' iniciado por adi, 20 Sep 2005.

  1. adi

    adi Zen Moderator

    Hola,
    Tengo un problema con un formulario en asp, esta es parte del codigo:

    <!--c1--><div class='codetop'>CÓDIGO</div><div class='codemain'><!--ec1-->For I = 1 to Request.Form.Count

    &nbsp;Select case I

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 1

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "INFORMACION DE CONTACTO" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 7

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "PRODUCTOS O SERVICIOS DE INTERES" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 21

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "OTROS SERVICIOS QUE LE INTERESEN" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 22

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "COMENTARIOS" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 23

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#004A00"">" & hr & "</td></tr>"

    &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

    &nbsp;End Select

    &nbsp;If I < 23 then

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#FFFFFF"">" & Request.Form.Key(I) & ": &nbsp;" &nbsp;& Request.Form.Item(I) & "</td></tr>"

    &nbsp;end if<!--c2--></div><!--ec2-->

    En la parte de "case 7" son una serie de Checkboxes (14) que a menos que los seleccionen, no son contados en el resultado, por lo tanto dependiendo de cuantos seleccionen, los campos que siguen mas abajo, aparecen donde no van, no se si me doy a entender.... pero es que se me descompone toda la tabla que llegaria al email, y los datos que pongan luego no estarian donde van.
    Mi pregunta es, hay alguna forma de solucionar esto?

    Si alguien sabe, muchas gracias por adelantado.

    Saludos,
     
    adi, 20 Sep 2005
    #1
  2. Anunciante

    Anunciante

     
  3. kitsch

    kitsch Nuevo usuario

    El ASP y yo no somos buenos amigos que digamos, pero lo reviso y si encuentro algo, aqui te lo dejo. ;)
     
    kitsch, 20 Sep 2005
    #2
  4. adi

    adi Zen Moderator

    Si, mil gracias :D

    Aqui esta todo el codigo por si acaso:
    <!--c1--><div class='codetop'>CÓDIGO</div><div class='codemain'><!--ec1--><%



    If Request.Form.Count > 0 Then

    &nbsp;&nbsp;&nbsp;&nbsp;dim vbCRLF

    &nbsp;&nbsp;&nbsp;&nbsp;vbCRLF = chr(13) & chr(10)

    &nbsp;&nbsp;&nbsp;&nbsp;Body = "Content-Type: text/html; Charset=us-ascii"

    'Body = Body & "Content-Transfer-Encoding: 8bit"

    Body = ""



    'Body = Body & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

    Body = Body & "<html>"

    Body = Body & "<head>"

    Body = Body & "<title></title>"

    Body = Body & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"

    Body = Body & "<style type =""text/css"">"

    Body = Body & "TD {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; color: #000000;}"

    Body = Body & "</style>"

    Body = Body & "</head>"

    Body = Body & "<body>"

    Body = Body & "<table width=""450"" border=""1"" cellpadding=""5"" cellspacing=""0"" bordercolor=""#004A00"">"

    Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""> <div align=""center""><font color=""#FFFFFF""><strong>SOLICITUD DE INFORMACION</strong></font></div></td></tr>"

    Body = Body & "<tr><td height=""25""> <div align=""center""><font color=""#000000""><strong>" & date & "</strong></font></div></td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;

    &nbsp; &nbsp;For I = 1 to Request.Form.Count

    &nbsp;Select case I

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 1

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "INFORMACION DE CONTACTO" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 7

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "PRODUCTOS O SERVICIOS DE INTERES" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 21

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "OTROS SERVICIOS QUE LE INTERESEN" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 22

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#004A00""><font color=""#FFFFFF""><strong>" & "COMENTARIOS" & "</strong></font></td></tr>"

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#FFFFFF"">" & hr & "</td></tr>"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 23

    &nbsp; &nbsp;Body = Body & "<tr><td height=""2"" bgcolor=""#004A00"">" & hr & "</td></tr>"

    &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

    &nbsp;End Select

    &nbsp;If I < 23 then

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Body = Body & "<tr><td height=""25"" bgcolor=""#FFFFFF"">" & Request.Form.Key(I) & ": &nbsp;" &nbsp;& Request.Form.Item(I) & "</td></tr>"

    &nbsp;end if

    &nbsp; &nbsp; &nbsp;

    &nbsp; &nbsp;Next

    &nbsp;&nbsp;&nbsp;&nbsp;Body = Body & "</table></body></html>"

    &nbsp;&nbsp;&nbsp;&nbsp;



    &nbsp; &nbsp;'*** send email notice

    &nbsp; &nbsp;Set Mail = Server.CreateObject("Persits.MailSender")

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.IsHTML = True

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.Host = "mail...com" ' Required

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.Port = 25 ' Optional. Port is 25 by default

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.From = request.form("Email") ' Required

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.FromName = " " &nbsp;' Optional

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.AddAddress "[email protected]", "MAS INFORMACION -- "

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.Subject = "Formulario para mas Informacion de " & request.form("nombre") & " " & request.form("apellidos")

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.Body = Body

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mail.Send

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Err <> 0 Then

    &nbsp; &nbsp; &nbsp;Response.Write "ERROR FATAL - Mensaje NO enviado: " & Err.Description

    &nbsp; &nbsp; REsponse.end

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else

    &nbsp; &nbsp;response.redirect "gracias.htm"

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If

    &nbsp; &nbsp;

    End If



    %><!--c2--></div><!--ec2-->
     
    adi, 20 Sep 2005
    #3
  5. adi

    adi Zen Moderator

    Bueno, ya lo solucione... no como me hubiera gustado, pero igual me funciona perfecto. Simplemente cambie el tipo de campo a radio group con opciones de si y no, y una de ella siempre seleccionada, asi cuenta el resultado como quiera...

    Saludos, y gracias de todas formas... :wink:
     
    adi, 21 Sep 2005
    #4


Alojamiento web, Hosting Reseller, Servidores Dedicados - All in Hosting


    
    
    
    
Blog · Sitios amigos: GuiaHosting · Unidominios · Interalta ·