<% Option Explicit %> <% ' ******************************************************************************* Dim blnFeedbackSent Dim blnErrorInFeedback blnFeedbackSent = False blnErrorInFeedback = False if Request.QueryString("action") = "send" then Dim strBody Dim sch Dim cdoMessage, cdoConfig Dim subject_line strBody = "" ' if all form fields have data if NOT ValidateEmail(Request.Form("email")) then blnErrorInFeedback = true end if if Request.Form("name") <> "" AND Request.Form("email") <> "" AND Request.Form("address") <> "" AND _ Request.Form("city") <> "" AND Request.Form("state") <> "" AND Request.Form("phone") <> "" AND _ blnErrorInFeedback = false then strBody = "Received order through " & constWebsiteAddress & " on " & Now() & VbCrLf & VbCrLf strBody = strBody & "Remote Address: " & Request.Form("remote_addr") & VbCrLf strBody = strBody & "Name: " & Request.Form("name") & VbCrLf strBody = strBody & "Email: " & Request.Form("email") & VbCrLf strBody = strBody & "Address: " & Request.Form("address") & VbCrLf strBody = strBody & " " & Request.Form("city") & ", " & Request.Form("state") & " " & Request.Form("zip") & VbCrLf strBody = strBody & "Phone: " & Request.Form("phone") & VbCrLf & VbCrLf if Request.Form("25quantity") <> "" then strBody = strBody & "Qty: " & Request.Form("25quantity") & " - 25in. Firebox Depth" & VbCrLf if Request.Form("25type") = "airtype" then strBody = strBody & "Type: Ductable" & VbCrLf elseif Request.Form("25type") = "watertype" then strBody = strBody & "Type: Hydraulic" & VbCrLf else strBody = strBody & "Type: not specified" & VbCrLf end if if Request.Form("25size") = "short" then strBody = strBody & "Size: Short Unit" & VbCrLf & VbCrLf elseif Request.Form("25size") = "tall" then strBody = strBody & "Size: Tall Unit" & VbCrLf & VbCrLf else strBody = strBody & "Size: not specified" & VbCrLf & VbCrLf end if end if if Request.Form("34quantity") <> "" then strBody = strBody & "Qty: " & Request.Form("34quantity") & " - 34in. Firebox Depth" & VbCrLf if Request.Form("34type") = "airtype" then strBody = strBody & "Type: Ductable" & VbCrLf elseif Request.Form("34type") = "watertype" then strBody = strBody & "Type: Hydraulic" & VbCrLf else strBody = strBody & "Type: not specified" & VbCrLf end if if Request.Form("34size") = "short" then strBody = strBody & "Size: Short Unit" & VbCrLf & VbCrLf elseif Request.Form("34size") = "tall" then strBody = strBody & "Size: Tall Unit" & VbCrLf & VbCrLf else strBody = strBody & "Size: not specified" & VbCrLf & VbCrLf end if end if if Request.Form("43quantity") <> "" then strBody = strBody & "Qty: " & Request.Form("43quantity") & " - 43in. Firebox Depth" & VbCrLf if Request.Form("43type") = "airtype" then strBody = strBody & "Type: Ductable" & VbCrLf elseif Request.Form("43type") = "watertype" then strBody = strBody & "Type: Hydraulic" & VbCrLf else strBody = strBody & "Type: not specified" & VbCrLf end if if Request.Form("43size") = "short" then strBody = strBody & "Size: Short Unit" & VbCrLf & VbCrLf elseif Request.Form("43size") = "tall" then strBody = strBody & "Size: Tall Unit" & VbCrLf & VbCrLf else strBody = strBody & "Size: not specified" & VbCrLf & VbCrLf end if end if if Request.Form("52quantity") <> "" then strBody = strBody & "Qty: " & Request.Form("52quantity") & " - 52in. Firebox Depth" & VbCrLf if Request.Form("52type") = "airtype" then strBody = strBody & "Type: Ductable" & VbCrLf elseif Request.Form("52type") = "watertype" then strBody = strBody & "Type: Hydraulic" & VbCrLf else strBody = strBody & "Type: not specified" & VbCrLf end if if Request.Form("52size") = "short" then strBody = strBody & "Size: Short Unit" & VbCrLf & VbCrLf elseif Request.Form("52size") = "tall" then strBody = strBody & "Size: Tall Unit" & VbCrLf & VbCrLf else strBody = strBody & "Size: not specified" & VbCrLf & VbCrLf end if end if if Request.Form("61quantity") <> "" then strBody = strBody & "Qty: " & Request.Form("61quantity") & " - 61in. Firebox Depth" & VbCrLf if Request.Form("61type") = "airtype" then strBody = strBody & "Type: Ductable" & VbCrLf elseif Request.Form("61type") = "watertype" then strBody = strBody & "Type: Hydraulic" & VbCrLf else strBody = strBody & "Type: not specified" & VbCrLf end if if Request.Form("61size") = "short" then strBody = strBody & "Size: Short Unit" & VbCrLf & VbCrLf elseif Request.Form("61size") = "tall" then strBody = strBody & "Size: Tall Unit" & VbCrLf & VbCrLf else strBody = strBody & "Size: not specified" & VbCrLf & VbCrLf end if end if strBody = strBody & "Message:" & VbCrLf strBody = strBody & Request.Form("comment") & VbCrLf strBody = strBody & "-----------------------------------------------------" & VbCrLf ' SEND EMAIL TO WEBSITE ADMIN On Error Resume Next sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = constMailServer cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = Request.Form("email") cdoMessage.To = constAdminEmail cdoMessage.Subject = "Online Order for " & constCompanyName & " - from " & Request.Form("name") cdoMessage.TextBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing if Err.Number <> 0 then blnFeedbackSent = false else blnFeedbackSent = true end if On Error Goto 0 end if end if %> Welcome to AAEC Corp's Home Pages










Furnace Order Form

Blackjack Firebox Furnace

<% if blnFeedbackSent = true then %>

FEEDBACK SENT, THANKS!

Back to Contact page

<% elseif Request.QueryString("action") = "send" and blnFeedbackSent = false then %>

PROBLEM SENDING MAIL! YOUR MESSAGE WAS NOT SENT!

Back to Contact page

<% end if %> <% if blnErrorInFeedback = true then%>

YOU ENTERED AN INVALID EMAIL ADDRESS

Back to Contact page

<% elseif Request.QueryString("action") <> "send" then %> Please fill out the following form to receive more information about the Blackjack Firebox Furnace. Also, feel free to print, fill out, and fax this form to our office (785) 842-0909.

Prices are subject to change without notice and are F. O. B. Point of manufacture.

Prices include ash drawer, firebricks, grates, side covers and 10' section flue pipe with pipe cap. Prices do not reflect or include add-ons or substitutions over or above standard features.

These prices are for standard width furnace of 32" (24" main wall width plus 4" side extensions). For a wider unit -add 10% for each 4.5" extra width. On extra wide units doors, grates, ash drawer and heat exchanger are extra width also.

Please choose which Blackjack Firebox Model you are interested in. Once we receive your form submission, we will contact you with further information.

Quantity Model Firebox Depth Unit Size
Ductable "air type"
Hydronic "water type"		 25" $2,995 Short
$4,595 Tall
Ductable "air type"
Hydronic "water type"		 34" $3,695 Short
$5,695 Tall
Ductable "air type"
Hydronic "water type"		 43" $4,595 Short
$6,995 Tall
Ductable "air type"
Hydronic "water type"		 52" $5,695 Short
$8,695 Tall
Ductable "air type"
Hydronic "water type"		 61" $6,995 Short
$10,795 Tall

For crating, add $100 per short and/or $200 per tall unit.
Kansas residents add 5.9% sales tax.

Please provide your contact information below.
All fields are required.

Name
Address
City
State     Zip 
Phone
E-Mail">

Finally, please add any additional comments below and then press the "Submit" button. Your data will be sent via e-mail directly to our offices. You must only press the submit button once.



Note:
Compliance with state and local laws, regarding installation, use and taxes are the responsibility of owners and users.
<% end if %>

Home | AAEC | Collision Course | Declaration | Heating | Power Generation | CEO | Opportunities

ADVANCED ALTERNATIVE ENERGY CORP.
1207 N. 1800 Rd.
LAWRENCE, KS 66049
PH: 785-842-1943, FAX: 785-842-0909

BUSINESS OPPORTUNITIES