Mail  To: <% = Request.QueryString("addressto") %><br>

<p>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost  = "mailhost.unknownhost.net"

Mailer.FromName    = "Joe's Shrimp Shack"
Mailer.FromAddress = "anyone@unknownhost.net"
Mailer.AddRecipient Request.QueryString("nameto"), Request.QueryString("addressto")
Mailer.Subject     = "Stock Split Announced!"
Mailer.BodyText    = Request.QueryString("txtmsg")

if not Mailer.SendMail then
  Response.Write " Mailing Failed... Error is: <br>"
  Response.Write Mailer.Response
else
  Response.Write " sent successfully...<p>"
end if
Response.Write "This component expires: " & Mailer.Expires & "<p>"
%>