<% Dim email,respuesta, manda, recibe, asunto, cuenta manda = Request("remitente") recibe = Request("destinatario") asunto = Request("asunto") cuenta = Request("msg") strHost = "" If Request.Form("enviar") <> "" Then Set email = Server.CreateObject("Persits.MailSender") email.Host = strHost email.From = manda email.AddAddress recive email.FromName = "optica" email.Subject= asunto email.Body = cuenta email.Send email.reset respuesta = "mensaje enviado" End If %>