<%
Dim maildestino, cnombre, cemail, casunto, ccoemtarios, accion
cnombre=Trim(Cstr(Request.Form("nombre")))
total = "Nombre : " & cnombre
'------------
maildestino=correo
cemail=Request.Form("correo")
casunto=Trim(Cstr(Request.Form("asunto")))
ccomentario=Cstr(Request.Form("comentario"))
if (cemail = "" or ccomentario = "") then
Formulario
else
MandarMail
end if
'========================================================================================
Sub Formulario
%>
<%
End Sub
'========================================================================================
Sub MandarMail
set oMail=Server.CreateObject("CDONTS.NewMail")
oMail.To = maildestino
oMail.From = cemail
oMail.Subject =casunto
oMail.Body=ccomentario
oMail.Send
set oMail=nothing
%>
Su mensaje se envio Correctamente
| |
En breve nos pondremos en contacto con Ud.
|
|
<%
End Sub
%>
|