All Occasion Flowers & Gifts

3855 Wadsworth Blvd.

Wheatridge Colorado 80033

(303)420-3650

Toll Free 888-298-1688

TO CONTACT US PLEASE FILL IN THE REQUEST FORM BELOW.

Email:
First Name:
Last Name:
Subject:
Comments:

<% Dim strEmail, strFirstName, strLastName, strSubject, strComments, Mail strEmail = Contact.form("Email") strFirstName = Contact.form("FirstName") strLastName = Contact.form("LastName") strSubject = Contact.form("Subject") strComments = Contact.form("Comments") Mail.isHTML=True DIM Mail, strMsgHeader Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.www.netnation.com" Mail.From = strEmail Mail.AddAddress "general@www.alloccasionflowersco.com" Mail.AddCC "general@lstra2308@aol.com" Mail.Subject = "ASP Contact: Online Form" strMsgHeader = "This email was delivered from the ASP Contact page." & vbCrLf & vbCrLf Mail.Body = strMsgHeader & "Email: " & strEmail & vbCrLf & _ "First Name: " & strFirstName & vbCrLf & _ "Last Name: " & strLastName & vbCrLf & _ "Subject: " & strSubject & vbCrLf & vbCrLf & _ "Comments: " & vbCrLf & strComments On Error Resume Next Mail.Send Set Mail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email. Please contact us directly at 1-716-768-6221. " & Err.Description END IF %>

<% Response.Write strFirstName & ",
" Response.Write "Your message has been successfully sent." %>