<% 'NOTE: In ASP, comment lines start with a single quote '========================================================================= 'This checks to see if the Send Submit button of the form was clicked 'Obviously, on the first pass through the code it will be empty, so 'this code will not execute. 'Once clicked however the value of sbmSend = "Send" and the code 'within the IF/END IF block is executed '========================================================================= If Request("Send") <> "" Then MailMsg = Request.Form("Name") & vbCRLF MailMsg = MailMsg & Request.Form("Company") & vbCRLF MailMsg = MailMsg & Request.Form("Occupation") & vbCRLF MailMsg = MailMsg & Request.Form("Street") & vbCRLF MailMsg = MailMsg & Request.Form("Unit") & vbCRLF MailMsg = MailMsg & Request.Form("City") & vbCRLF MailMsg = MailMsg & Request.Form("State") & vbCRLF MailMsg = MailMsg & Request.Form("Zipcode") & vbCRLF MailMsg = MailMsg & Request.Form("Country") & vbCRLF MailMsg = MailMsg & Request.Form("Phone_day") & vbCRLF MailMsg = MailMsg & Request.Form("Phone_evening") & vbCRLF MailMsg = MailMsg & Request.Form("Fax") & vbCRLF MailMsg = MailMsg & Request.Form("Email") & vbCRLF MailMsg = MailMsg & Request.Form("Home_plan") & vbCRLF MailMsg = MailMsg & Request.Form("Foundation") & vbCRLF MailMsg = MailMsg & Request.Form("Plan_option") & vbCRLF MailMsg = MailMsg & Request.Form("Plan_sets") & vbCRLF MailMsg = MailMsg & Request.Form("Additional_sets") & vbCRLF MailMsg = MailMsg & Request.Form("Payment") & vbCRLF MailMsg = MailMsg & Request.Form("CC_name") & vbCRLF MailMsg = MailMsg & Request.Form("CC_Number") & vbCRLF MailMsg = MailMsg & Request.Form("Expiration") & vbCRLF MailMsg = MailMsg & Request.Form("3_digit_code") & vbCRLF MailMsg = MailMsg & Request.Form("Shipping") & vbCRLF MailMsg = MailMsg & Request.Form("Comments") & vbCRLF Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.To = "sales@alternativehomeplans.com" objCDO.From = "sales@alternativehomeplans.com" objCDO.Subject = "HOME PLAN ORDER" objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.alternativehomeplans.com" objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDO.Configuration.Fields.Update objCDO.TextBody = MailMsg objCDO.Send set objCDO = Nothing '--- end of email sending Response.redirect "thanks.htm" End If %> Alternative Home Plans - House Plan Ordering Information


Alternative Home Plans Home Page
View House Plan Catalog
What Our House Plans Include
Home Plan Pricing and House Options
Order House Plans
Custom Home Design

 

 

Order Home Plans Order Home Plans Order Home Plans


To order a home plan, please complete the form below or call us at:

(800) 819-0486


General Information
Name
Company (if applicable)

Street Address
Apt./Unit
City
State/Province
Zip/Postal Code
Country
Telephone (day)
Telephone (evening)
Fax
Email


Home Plan Information
See the Pricing/Options page for cost and plan options

Home Plan #

Foundation Type


Plan Option
Base Order
Additional Blueprint Sets at $50 each


Payment Information

Payment Method:


Name on card
Credit Card No.
Expiration Date
3-Digit Code on Back of Card


Shipping Information
(See Pricing/Options page):

US Regular (5-7 business days)
US Express (3 business days)
US Next Day (1 business day)
Canada Regular
Canada Express
International


Additional Comments or Questions?


To submit your order, please press "Submit Form" Thank you.



You may also contact us at:

Alternative Home Plans
2115 Morton Road | Wayzata, MN 55391
TEL (952) 548-9802

Thank you for visiting Alternative Home Plans.

Home | View Home Plans | What's Included in Our Home Plans | Pricing/Options | Order Plans