%@language="vbscript"%>
<%
if (cstr(request("Submit")) <> "") then
dim cdomail
dim mybody
dim fromaddr
set fromaddr = request.form("contactemail")
set cdomail = server.createobject("CDONTS.Newmail")
if (fromaddr = "") then
cdomail.from = "webmaster@aspenmortuaries.com"
else
cdomail.from = fromaddr
end if
cdomail.to = "halkovash@aspenmortuaries.com"
cdomail.subject = "Pre-Planning worksheet for " & request.form("firstname") & (" ") & request.form("middlename") & (" ") & request.form("lastname")
CDOMail.BodyFormat = 0
CDOMail.MailFormat = 0
mybody = "


The purpose of this form is to provide a written record of
your final wishes, so that your family and your Funeral Director will have
this information available upon your death. A permanent I.D. card will be
issued stating that this information is on file at the Funeral Home, and
available for the purpose of arranging your Funeral/Cremation, 24 hours a
day, 7 days per week.