(303)420-3650
Toll Free 888-298-1688
TO CONTACT US PLEASE FILL IN THE REQUEST FORM BELOW.
<%
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."
%>