vLink="<% =ActiveLinkColor %>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="imagenes/fondo.gif">
 
<% 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 & "Recive esto de : " & Request.Form("yname") & " " & Request.Form("yemail") & "
" & "
" msg = msg & "ivan ivanoff" & "
" msg = msg & "flash avatar" & "
" msg = msg & "rector de superMarket" & "
" msg = msg & "http://www.i2off.org" & "
" msg = msg & "http://www.i2off.org/superMarket" & "
" msg = msg & " ++ la comunidad para que desarrolles" & "
" msg = msg & " ++ tus proyectos experimentales" & "
" msg = msg & "
" 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]
remitente [nombre]
remitente [email]
Mensaje
<% end if %>