<% ' Use Persits.MailSender for ReadyHosting 'Set Mail = Server.CreateObject("Persits.MailSender") Set Mail = Server.CreateObject("CDONTS.NewMail") 'Mail.Host = "63.99.209.44" 'Mail.Host = "65.163.27.210" Mail.Host = "mail.tksoftwareinc.com" Mail.From = "tony@tksoftwareinc.com" ' Next 3 lines - ReadyHosting only 'Mail.FromName = "TKSoftware Home Page" 'Mail.AddAddress "tony@tksoftwareinc.com" 'Mail.AddAddress "matt@tksoftwareinc.com" ' Next 2 lines - lunarpages only Mail.To = "tony@tksoftwareinc.com;matt@tksoftwareinc.com" Mail.BodyFormat = 0 Mail.Subject = "TKSoftware New Home Page has been entered from LunarPages" ' message body Mail.Body = "Your website has been entered!" & chr(10) & chr(13) & "Remote address: " & request.servervariables("REMOTE_ADDR") & chr(10) & chr(13) & now() strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If %>