vLink="<% =ActiveLinkColor %>">
<% if Request.QueryString("mode") = "doit" then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = Request.Form("email") objCDO.From = ForoMail objCDO.Subject = "De: " & Request.Form("yname") & " ::Pagina interesante" msg = "Hola " & Request.Form("name") & vbcrlf & vbcrlf msg = msg & Request.Form("msg") & vbcrlf & vbcrlf msg = msg & "Recivio esto de : " & Request.Form("yname") & " " & Request.Form("yemail") objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Body = msg on error resume next ' Ignore Errors objCDO.Send set objCDO = nothing %>
Email enviado
<% else %>
Enviar a[nombre]:
[email]
Su nombre
Su email
Mensaje
Hi, <%=vbcrlf %>Yo creo que estaras interesado en esta pagina:<%=vbcrlf & Request.QueryString("page") %>
<% end if %>
cerrar ventana