Mail to: <% = Request.QueryString("addressto") %>... <%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost = "mail.xhost.co.uk"
Mailer.FromName = "WEB Test"
Mailer.FromAddress = "support@xhsot.co.uk"
Mailer.AddRecipient Request.QueryString("nameto"), Request.QueryString("addressto")
Mailer.Subject = "ASP Mail test"
Mailer.BodyText = Request.QueryString("txtmsg")
if not Mailer.SendMail then
Response.Write " failed... Error is:
"
Response.Write Mailer.Response
else
Response.Write " sent successfully...
" end if %>