<%Response.buffer=true%> Daimond Head Sweet Bread
 
<% If Request.form("Status") = "Submit" then errStr = "" OrgName = Request.Form("OrgName") Address1 = Request.Form("Address1") Address2 = Request.Form("Address2") Email=Request.Form("Email") Phone=request.form("Phone") Fax=request.form("Fax") ContactName = Request.Form("ContactName") OrgOfficer=Request.form("OrgOfficer") Insurance = Request.form("Insurance") Policy = Request.form("Policy") Fund = Request.form("Fund") RefName1 = Request.Form("RefName1") RefPhone1 = Request.Form("RefPhone1") RefName2 = Request.Form("RefName2") RefPhone2 = Request.Form("RefPhone2") OrgSize = Request.Form("OrgSize") OrgType = Request.Form("OrgType") Tickets = Request.Form("Tickets") SaleStart = Request.Form("SaleStart") SaleEnd = Request.Form("SaleEnd") RedempDate = Request.Form("RedempDate") RedempSite = Request.Form("RedempSite") Comments=request.form("Comments") Today=Now() If OrgName = "" Then errStr = errStr & "Missing Organization Name
" End If If Address1 = "" Then errStr = errStr & "Missing Address
" End If If Phone = "" Then errStr = errStr & "Missing Phone Number
" End If If ContactName = "" Then errStr = errStr & "Missing Contact Person
" End If If Insurance = "" Then errStr = errStr & "Missing Insurance Company
" End If If Policy = "" Then errStr = errStr & "Missing Policy Number
" End If If RefName1 = "" or RefName2 = "" or RefPhone1 = "" or RefPhone2 = "" Then errStr = errStr & "General References incomplete
" End If If OrgSize = "" Then errStr = errStr & "Missing Organization Size
" End If If OrgType = "" Then errStr = errStr & "Missing Organization Type
" End If If Tickets="" Then errStr = errStr & "Missing Estimated Tickets
" End If If SaleStart="" Then errStr = errStr & "Missing Sale Start Date
" End If If SaleEnd="" Then errStr = errStr & "Missing Sale End Date
" End If If RedempDate="" Then errStr = errStr & "Missing Redemption Date
" End If If RedempSite="" Then errStr = errStr & "Missing Redemption Site
" End If If (Phone <> "") Then phonenumber = validate_phone(Phone) If Not (phonenumber) Then errStr = errStr & "Invalid Phone Number
" End If End If If (Email <> "") Then If chkEmail(Email) = 1 Then errStr = errStr & "Invalid E-mail Address
" End If End If If (Fax <> "") Then phonenumber = validate_phone(Fax) If Not (phonenumber) Then errStr = errStr & "Invalid Fax Number
" End If End If If (RefPhone1 <> "") Then phonenumber = validate_phone(RefPhone1) If Not (phonenumber) Then errStr = errStr & "Invalid Reference #1 Phone Number
" End If End If If (RefPhone2 <> "") Then phonenumber = validate_phone(RefPhone2) If Not (phonenumber) Then errStr = errStr & "Invalid Reference #2 Phone Number
" End If End If If SaleStart <> "" Then If IsDate(SaleStart) = False then errStr = errStr & "Invalid Sale Start Date
" End If End If If SaleEnd <> "" Then If IsDate(SaleEnd) = False then errStr = errStr & "Invalid Sale End Date
" End If End If If RedempDate <> "" Then If IsDate(RedempDate) = False then errStr = errStr & "Invalid Redemption Date
" End If End If If errStr = "" Then 'Send notification to administrator Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = Email Mailer.to = "cinthia@earthcenter.com;ffujimura@earthcenter.com;awong@earthcenter.com;ltaki@earthcenter.com" Mailer.Subject = "DHSB Fundraiser Application Submitted" Message = "Fundraiser Application from DHSB Web Site" & vbCrLf Message = Message & "Date Submitted: " & Today & vbCrLf & vbCrLf Message = Message & "Organization Name: " & OrgName & vbCrLf & vbCrLf Message = Message & "Address: " & vbTab & Address1 & vbCrLf & vbTab & vbTab & Address2 & vbCrLf & vbCrLf Message = Message & "Phone : " & Phone & vbTab & "Fax: " & Fax & vbTab & vbTab & "Email : " & Email & vbCrLf & vbCrLf Message = Message & "Contact Person: " & ContactName & vbTab & vbTab & "Organization Officer: " & OrgOfficer & vbCrLf & vbCrLf Message = Message & "Insurance Company: " & Insurance & vbTab & vbTab & "Policy No.: " & Policy & vbCrLf & vbCrLf Message = Message & "Previous Fundraisers: " & vbCrLf & vbTab & Fund & vbCrLf & vbCrLf Message = Message & "General References: " & vbCrLf Message = Message & vbTab & "1. " & RefName1 & vbTab & vbTab & "Phone: " & RefPhone1 & vbCrLf Message = Message & vbTab & "2. " & RefName2 & vbTab & vbTab & "Phone: " & RefPhone2 & vbCrLf & vbCrLF Message = Message & "Organization Size: " & OrgSize & vbTab & vbCrLf & "Organzation Type: " & OrgType & vbCrLf & vbCrLf & "Estimated Tickets: " & Tickets & vbCrLf & vbCrLf Message = Message & "Event Dates: " & vbCrLf Message = Message & vbTab & "Sale Start: " & SaleStart & vbtab & vbTab & "Sale End: " & SaleEnd & vbCrLf Message = Message & vbTab & "Redemption Date: " & RedempDate & vbTab & "Redemption Site: " & RedempSite & vbCrLf & vbCrLf Message = Message & "Comments: " & vbCrLf Message = Message & vbTab & Comments & vbCrLf & vbCrLf Mailer.MailFormat=0 Mailer.Body = Message Mailer.Send Set Mailer = Nothing Response.Redirect "thankyou.asp?action=fund&name=" & OrgName End If End if %>
<% If Request.form("Status") <> "Submit" then %>

Fund-raising Opportunities

Fund-raising organizations need to adapt to the constraints of today's frugal marketplace where consumers demand value in all expenditures, including those made toward charitable contributions. Our fund-raising program incorporates sound business fundamentals whereby your organization becomes an integral part of the merchandising and distribution process. 

Our fund-raising program is designed to provide organizations with long term financial stability with a systematic process of simple ticket pre-sales of special variety selections packaged in an attractive & sturdy Gift box. Our high quality and staple food line lends to repeat and even continuous sales opportunities, thereby affording organizations with flexible income potential. DHSB offers full planning and organizational support with lucrative earning plans including Prize incentive & Bonus awards programs.

Become one of our proud sponsors of DIAMOND HEAD SWEET BREAD fund-raising program and have fun while earning money for your Organization!

Our Fund-raising program offers:

  • Financial opportunities

  • Focus on customer satisfaction 

  • New, Quality, Proven product

  • Simple marketing plan 

  • Full developmental assistance 

  • Financial stability 

If you are interested in our Fund-raising Program, please fill out the following application:

<% End If %>

Fund-raising Application

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

Organization Name*:
Address*: 
Phone*(nnn-nnn-nnnn):
Fax (nnn-nnn-nnnn):
Email Address:
Contact Person*:

Organization Officer:
(Responsible party if other than contact person)
Insurance Company*: Policy No.*:
Previous Fund-raisers: 
 
General References*:
  1.Name: Phone (nnn-nnn-nnnn):
  2.Name: Phone (nnn-nnn-nnnn):
Organization Size*: Type*: Estimated Tickets*:
Event Information*:
Sale start (mm/dd/yy):Sale end (mm/dd/yy):
Redemption (mm/dd/yy): Redemption Site:
Comments:
About Us | Order Form | Fund-raiser | Contact Us
Diamond Head Sweet Bread
Honolulu, Hawaii
dhsb@earthcenter.com