<%Response.buffer=true%> Daimond Head Sweet Bread <% Function fmtSelectItem(sItem,myItem) strOutput = "" & vbCrLf Response.Write strOutput End Function Name = request.form("Name") Address = request.form("Address") City = request.form("City") State = request.form("State") Zip = request.form("Zip") Phone = request.form("Phone") Orders = request.form("Orders") gifts = request.form("gifts") If gifts = "" then gifts = 1 End If If Orders <> "" then All = Orders*10 Shipping = Orders*8 Subtotal = All + Shipping If State = "HI" then Tax = round(Subtotal * 0.04166, 2) Total = Round(Subtotal + Tax, 2) Else Total = Round(Subtotal, 2) End If End If If Request.form("more") = "Add Another Gift Order" then gifts = gifts + 1 giftno = CStr(gifts) End If If (Request.form("Submit") = "Submit") then errStr = "" If Name = "" then errStr = errStr & "Missing Name
" End If If Address = "" then errStr = errStr & "Missing Street Address
" End If If (Address <> "") then If City = "" then errStr = errStr & "Missing City
" End If If Zip = "" then errStr = errStr & "Missing Zip Code
" End If End If If Phone = "" then errStr = errStr & "Missing Phone Number
" End If If (Phone <> "") then phonenumber = validate_phone(Phone) response.write phonenumber If Not (phonenumber) then errStr = errStr & "Invalid Phone Number
" End If End If If Orders = "" then errStr = errStr & "Missing Number of Orders
" End If m = 0 For k=1 to gifts RecName = Request.form("Rec" & k & "Name") If RecName <> "" then Session("Rec" & k & "Name") = RecName RecAddress1 = Request.form("Rec" & k & "Address1") If RecAddress1 <> "" then Session("Rec" & k & "Address1") = RecAddress1 RecAddress2 = Request.form("Rec" & k & "Address2") If RecAddress2 <> "" then Session("Rec" & k & "Address2") = RecAddress2 Else errStr = errStr & "Incomplete Address for Receiver#" & k & "
" End If Else errStr = errStr & "Incomplete Address for Receiver#" & k & "
" End If Phones = Request.form("Rec" & k & "Phone") If Phones <> "" then Session("Rec" & k & "Phone") = Phones phonenumbers = validate_phone(Phones) If Not (phonenumbers) Then errStr = errStr & "Invalid Phone Number for Receiver#" & k & "
" End If Else errStr = errStr & "Missing Phone Number for Receiver#" & k & "
" End If m = m + 1 End If If RecName = "" then gifts = k Exit For End If Next If errStr = "" then Session("gifts") = m Session("Name") = Name Session("Address") = Address Session("City") = City Session("State") = State Session("Zip") = Zip Session("Phone") = Phone Session("Orders") = Orders Session("Shipping") = Shipping Session("Subtotal") = Subtotal If State = "HI" then Session("Tax") = Tax End If Session("Total") = Total Response.redirect "printorder.asp" End If End If %>
 
For the time being, orders are not being accepted. This is only temporary,
please check back soon. Thank you for your understanding. Sorry for the inconvenience.
DHSB Order Form <% If (Request.form("more") = "") and (Request.form("Submit") = "") then %>

Our packages available for ordering are ideal for gifts and contain in each package the following:

 

 

  • 1 package of Sweet Hearth Bread (1.5 lb.)
  • 1 package of Sweet Round Bread (1.0 lb.)
  • 1 package of Sweet Hot Dog Buns (8 buns)

 

 

 

 

**Each package costs $10 and is attractively packaged in a sturdy mailer to insure the maximum in product integrity.  Flat rate shipping & handling fees.  Orders may only be shipped within the United States only.  Hawaii customer orders include a sales tax of 4.166%.  

Please fill in the following required form for orders. Orders can be taken by fax or mail. 

<% End If %>

A form that has the following filled in information will be generated for printing after submitting this page.  Please remember to fill in the form of payment on the printed page before faxing or mailing.  Thank you for your purchase.  We will be contacting you shortly pertaining your order.

You must fill in the fields with the * sign.
<%=errStr%>

Name*:
Address*:(Street Apt#)
City*: State*: Zip*:
Phone*:(nnn-nnn-nnnn)
<% If Orders <> "" then %> <% If State = "HI" then response.write "" End If %> <% End If %>
Number of Orders:
Shipping and Handling:
($8 per package)  		 $<%=FormatNumber(Shipping,2)%>
Subtotal: $<%=FormatNumber(Subtotal,2)%>
Tax:$" & FormatNumber(Tax,2) & "
Total: $<%=FormatNumber(Total,2)%>

If this is a gift order, please fill in the following information:

<% For j=1 to gifts RecName= "Rec" & j & "Name" RecAddress1 = "Rec" & j & "Address1" RecAddress2 = "Rec" & j & "Address2" RecPhone = "Rec" & j & "Phone" %>
Receiver Name #<%=j%>: value="<%=request.form("Rec" & j & "Name")%>" size=30>
Address: value="<%=request.form("Rec" & j & "Address1")%>" size=30>
value="<%=request.form("Rec" & j & "Address2")%>" size=30>
Phone:(nnn-nnn-nnnn) value="<%=request.form("Rec" & j & "Phone")%>" maxsize=12>

<% Next %>

We only accept the following
methods of payment:

About Us | Order Form | Fund-raiser | Contact Us
Diamond Head Sweet Bread
Honolulu, Hawaii
dhsb@earthcenter.com