Alternative Home Plans - House Plan Ordering Information

<% '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

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