| Usuario |
validacion de e-mail y formulario |
Desconocido
|
| Enviado - 2/12/2003 |
| |
Mi aplicación consiste en lo siguiente: Debo hacer un formulario que envíe los datos a un e-mail, ya tengo ese código elaborado pero me falta validar la dirección del e-mail y también validar que ninguno de los campos del formulario estén vacíos.
Soy un novato programando en ASP así que publico el código que tengo realizado hasta el momento a ver si me pueden ayudar. Muchas gracias de antemano por su atención. [email protected]
Códigos:
Formulario:
<form name="form1" method="post" action="envia_email.asp">
<p>Nombre<br>
<input type="text" name="nombre">
</p>
<p>Comentarios <br>
<textarea name="comentarios" rows="4" cols="60"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="enviar">
</p>
</form>
Envío de e-mail:
<%
'Declaramos las variables a usar
Dim Nombre, Comentarios, OBJ_EMAIL
'Obtenemos los valores del formulario
Nombre = Request.Form("Nombre")
Comentarios = Request.Form("Comentarios")
'Creación del objeto
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = "[email protected]"
OBJ_EMAIL.Subject = "Aqui el titulo del email"
OBJ_EMAIL.Body = Nombre & ":" & Comentarios ' Cuerpo del mensaje
OBJ_EMAIL.Send 'Envia el mail
'Cierra el Objeto
Set OBJ_EMAIL = Nothing
Response.Write "Gracias por su comentario"
%> |
| |
|
zervezator
28 Mensaje(s)
|
| Enviado - 3/12/2003 |
| |
Para validar que los campos no son vacios prueba con esto:
'esto debe de ir tras las instrucciones resquest
if trim(Nombre) = "" then
Response.Write "Falta el nombre"
else
if trim(Comentarios) = "" then
Response.Write "Falta el comentario"
else
'Creación del objeto
'aqui pones el código de envio de email
end if
end if
|
| |
|
|
|
Microsoft Certified