formulario en .asp de envio a correo hola yo tengo un formulario ya hecho que funciona impecable ,pero en la parte de texto, para dejar un comentario abajo del todo , me gustaria que fuera mas grande, es que probe insertar un campo de texto pero no logro introducir en el .asp el codigo para que funcioe bien, alguien sabe como agregar ese paso, si me lo peuden modificar , gracias.Este formulario asi funciona muy bien ,pero nesecito un campo de comentario mas grande... seria este renglon , <td><input name="txtComentarios" type="text" id="txtComentarios" /></td>
reemplazarlo por un campo mas grande y corregir el envio_activa.asp ...
el codigo .html del formulario es:
<body>
<form action="envio_activa.asp" method="post">
<table width="400" height="395" border="5" align="center" cellpadding="2" cellspacing="0" bordercolor="#000000" class="borde">
<tr>
<td width="230"><span class="Estilo6 Estilo15">Sexo: </span></td>
<td width="144"><input name="txtSexo" type="text" id="txtSexo" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Ciudad: </span></td>
<td><input name="txtCiudad" type="text" id="txtCiudad" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Nombre real: <br />
</span></td>
<td><input name="txtreal" type="text" id="txtreal" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Nombre Fantasia: </span></td>
<td><input name="txtFantasia" type="text" id="txtFantasia" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Telefono Celular: </span></td>
<td><input name="txtTelefono" type="text" id="txtTelefono" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">E-Mail Privado: </span></td>
<td><input name="txtPrivado" type="text" id="txtPrivado" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">E-Mail que deseas publicar: </span></td>
<td><input name="txtpublicar" type="text" id="txtpublicar" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">viajes</span></td>
<td><input name="txtviajes" type="text" id="txtviajes" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Dias Disponibles:</span></td>
<td><input name="txtDias" type="text" id="txtDias" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Horarios Disponibles:</span></td>
<td><input name="txtHorarios" type="text" id="txtHorarios" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Idiomas:</span></td>
<td><input name="txtIdiomas" type="text" id="txtIdiomas" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Busto:</span></td>
<td><input name="txtBusto" type="text" id="txtBusto" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Cintura:</span></td>
<td><input name="txtCintura" type="text" id="txtCintura" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Cadera:</span></td>
<td><input name="txtCadera" type="text" id="txtCadera" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Altura:</span></td>
<td><input name="txtAltura" type="text" id="txtAltura" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Peso:</span></td>
<td><input name="txtPeso" type="text" id="txtPeso" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Color de piel:</span></td>
<td><input name="txtpiel" type="text" id="txtpiel" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Color de ojos:</span></td>
<td><input name="txtojos" type="text" id="txtojos" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Color de Pelo: </span></td>
<td><input name="txtPelo" type="text" id="txtPelo" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15"> Masajes: </span></td>
<td><input name="txtMasajes" type="text" id="txtMasajes" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Descripcion Personal: </span></td>
<td><input name="txtDescripcion" type="text" id="txtDescripcion" /></td>
</tr>
<tr>
<td><span class="Estilo6 Estilo15">Comentarios Adicionales:</span></td>
<td><input name="txtComentarios" type="text" id="txtComentarios" /></td>
</tr>
<tr>
<td> </td>
<td><input name="enviar" type="submit" id="enviar" value="enviar" /></td>
</tr>
</table>
y aca va el .asp :
<%
txtSexo = request.Form("txtSexo")
txtCiudad = request.Form("txtCiudad")
txtreal = request.Form("txtreal")
txtFantasia = request.Form("txtFantasia")
txtTelefono = request.Form("txtTelefono")
txtPrivado = request.Form("txtPrivado")
txtpublicar = request.Form("txtpublicar")
txtviajes = request.Form("txtviajes")
txtDias = request.Form("txtDias")
txtHorarios = request.Form("txtHorarios")
txtIdiomas = request.Form("txtIdiomas")
txtBusto = request.Form("txtBusto")
txtCintura = request.Form("txtCintura")
txtCadera = request.Form("txtCadera")
txtAltura = request.Form("txtAltura")
txtPeso = request.Form("txtPeso")
txtpiel = request.Form("txtpiel")
txtojos = request.Form("txtojos")
txtPelo = request.Form("txtPelo")
txtMasajes = request.Form("txtMasajes")
txtDescripcion = request.Form("txtDescripcion")
txtComentarios = request.Form("txtComentarios")
'Envio
Dim objNewMail
Set objNewMail = Server.CreateObject("CDO.message")
objNewMail.From = "[email protected]"
objNewMail.To = "[email protected]"
objNewMail.Subject = "Consulta desde el formulario"
txt = ""
txt = txt & " lo que quiero enviar " & "<br />" & "<br />"
txt = txt & " " & "<br />" & "<br />"
txt = txt & "Nombre: " & txtSexo & "<br />"
txt = txt & "Apellido: " & txtCiudad & "<br />"
txt = txt & "Edad: " & txtreal & "<br />"
txt = txt & "Signo: " & txtFantasia & "<br />"
txt = txt & "Descripcion: " & txtTelefono & "<br />"
txt = txt & "Nombre: " & txtPrivado & "<br />"
txt = txt & "Nombre: " & txtpublicar & "<br />"
txt = txt & "Nombre: " & txtviajes & "<br />"
txt = txt & "Nombre: " & txtDias & "<br />"
txt = txt & "Nombre: " & txtHorarios & "<br />"
txt = txt & "Nombre: " & txtIdiomas & "<br />"
txt = txt & "Nombre: " & txtBusto & "<br />"
txt = txt & "Nombre: " & txtCintura & "<br />"
txt = txt & "Nombre: " & txtCadera & "<br />"
txt = txt & "Nombre: " & txtAltura & "<br />"
txt = txt & "Nombre: " & txtPeso & "<br />"
txt = txt & "Nombre: " & txtpiel & "<br />"
txt = txt & "Nombre: " & txtojos & "<br />"
txt = txt & "Nombre: " & txtPelo & "<br />"
txt = txt & "Nombre: " & txtMasajes & "<br />"
txt = txt & "Nombre: " & txtDescripcion & "<br />"
txt = txt & "Nombre: " & txtComentarios & "<br />"
txt = txt & " ----------------------------------------------" & "<br />"
objNewMail.HTMLBody = txt
objNewMail.Send
'response.Write(txt)
response.redirect "envioOK.html"
%>
