<% If Len(Request("addressto")) > 0 Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "ASPMail Tester" Mailer.FromAddress= "hostprotest@yahoo.com" Mailer.RemoteHost = Request("mailhost") Mailer.AddRecipient Request("addresstoname"), Request("addressto") Mailer.Subject = "Test" Mailer.BodyText = Request("txtmsg") if Mailer.SendMail then Response.Write "
Mail sent...
" else Response.Write "
Mail send failure. Error was " & Mailer.Response & "
" end if End If %>

ASPMail Test

To:
SMTP:
Message: