<% Dim Mailer, fromWho, toWho, thisPage SUB sendmail( fromWho, toWho, Subject, Body ) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "web1.ecol.net" Mailer.FromName = "*artTime* Web Page" Mailer.FromAddress = "mailsender@ecol.net" Mailer.AddRecipient "Application Taker", Request.Form("toWho") Mailer.Subject = "From *artTime* and " & fromWho Mailer.BodyText = thisPage Mailer.SendMail Set Mailer = Nothing END SUB fromWho = Trim(Request.Form("fromWho")) toWho = Trim(Request.Form("toWho")) thisPage = "Check out this link! http://www.art-time.com/stained_glass_corner.htm" If toWho <> "" Then sendMail fromWho, toWho, Subject, Body Response.Write "This page has been sent. " %>
Return to Stained Glass Corner
<%Else %>
">
To Whom?
(email address)
From Whom?
(your name)
