<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "www.excelsiordirect.com" ' Specify a valid SMTP server Mail.From = "quenton@excelsiordirect.com" ' Specify sender's address Mail.FromName = "Quenton" ' Specify sender's name Mail.AddAddress "quenton@excelsiordirect.com", "Quenton Fyfe" Mail.Subject = "CD Order" Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _ "Here is my order" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set Mail = Nothing %>