<% sub send_mail(toaddress,toname,subject, bodytext) ' You will need to modify this function to use whatever email component is installed on your server. ' The code below is set to use the ASPEmail component from Persits Software, Inc. Set Mail = Server.CreateObject("Persits.MailSender") Mail.From = salesaddress Mail.FromName = storename Mail.Host = mailserver Mail.AddAddress toaddress Mail.Subject = subject Mail.Body = bodytext On Error Resume Next if not Mail.Send then Response.Write "An error occurred: " & Err.Description End If Set Mail = Nothing end sub %>