<% 'Documentation at http://www.aspemail.com & http://www.aspemail.com/manual_object.html set oNewMail = server.createobject("Persits.MailSender") for each item in request.form Email = Email & item & ": " & request.form(item) & vbcrlf next oNewMail.Host="mail.logical.net" 'From address. if customer supplied email address on form replace "from address" with request("fieldname") i.e. request("email") if request("email")<>"" then oNewMail.From=request("email") else oNewMail.From="jmielke@glenedenmemorialpark.org" end if oNewMail.AddAddress "jmielke@glenedenmemorialpark.org" 'To Address epruden@nowakagency.com oNewMail.AddAddress "robert@logical.net" 'To Address epruden@nowakagency.com oNewMail.Subject=request("Subject") oNewMail.Body=Email oNewMail.isHTML=FALSE On Error Resume Next oNewMail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description response.end end if %>





Your information has been sent!