<%@ Language=VBScript %> <%if Request.Form("Send")= "Send" then Dim ProdInfo If Request.Form("Icings") = "on" then ProdInfo = "Icings" End If If Request.Form("Pie Fillings") = "on" then ProdInfo = ProdInfo & " " & "Pie Fillings" End If If Request.Form("Pastry Fillings") = "on" then ProdInfo = ProdInfo & " " & "Pastry Fillings" End If If Request.Form("Cookie Mixes") = "on" then ProdInfo = ProdInfo & " " & "Cookie Mixes" End If If Request.Form("Glazes(Donuts,Pastry)") = "on" then ProdInfo = ProdInfo & " " & "Glazes(Donuts,Pastry)" End If If Request.Form("Sweet Dough Bases/Danish Dough Bases") = "on" then ProdInfo = ProdInfo & " " & "Sweet Dough Bases/Danish Dough Bases" End If If Request.Form("Funnel Cake") = "on" then ProdInfo = ProdInfo & " " & "Funnel Cake" End If If Request.Form("Bread Mixes") = "on" then ProdInfo = ProdInfo & " " & "Bread Mixes" End If If Request.Form("Smears") = "on" then ProdInfo = ProdInfo & " " & "Smears" End If If Request.Form("Frappe(Marshmallow)") = "on" then ProdInfo = ProdInfo & " " & "Frappe(Marshmallow)" End If If Request.Form("Candy Centers") = "on" then ProdInfo = ProdInfo & " " & "Candy Centers" End If If Request.Form("Meringue(Ready to use)") = "on" then ProdInfo = ProdInfo & " " & "Meringue(Ready to use)" End If Dim Mailer, Body, errorlog Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.imsarc.com" Mailer.FromName = Request.Form("Name") Mailer.FromAddress = Request.Form("Email") 'Mailer.AddRecipient "Dave", "dholm@imsarc.com" Mailer.AddRecipient "B&K Manufacturing", "info@bkcompany.com" Mailer.Subject = "B&K Manufacturing Request for Product Information" Body= Now & vbnewline & vbnewline Body=Body & "From: " & Request.Form("Name") & vbnewline Body=Body & "Title: " & Request.Form("Title") & vbnewline Body=Body & "Company: " & Request.Form("Company") & vbnewline Body=Body & "Street: " & Request.Form("Street") & vbnewline Body=Body & "City: " & Request.Form("City") & vbnewline Body=Body & "State: " & Request.Form("State") & vbnewline Body=Body & "Zip: " & Request.Form("Zip") & vbnewline Body=Body & "Phone: " & Request.Form("Phone") & vbnewline Body=Body & "Fax: " & Request.Form("Fax") & vbnewline Body=Body & "Email: " & Request.Form("Email") & vbnewline Body=Body & "Web Site: " & Request.Form("Web") & vbnewline & vbnewline Body=Body & "Product Interest: " & ProdInfo &vbnewline Body=Body & "Type Business: " & Request.Form("Business") & vbnewline Body=Body & "Food Service: " & Request.Form("Service") & vbnewline Body=Body & "Retail Bakery: " & Request.Form("Retail") & vbnewline Body=Body & "Intermediate Wholesale Baker: " & Request.Form("Baker") & vbnewline Body=Body & "Distibutor/Dealer: " & Request.Form("Dealer") & vbnewline Body=Body & "Other Dealer: " & Request.Form("DealerOther") & vbnewline Body=Body & "Frozen: " & Request.Form("Frozen") & vbnewline & vbnewline Body=Body & "TaxID Number: " & Request.Form("Tax") & vbnewline Body=Body & "Title: " & Request.Form("TitleSpec") & vbnewline Body=Body & "Location: " & Request.Form("Location") & vbnewline Body=Body & "Number Of Units Operated: " & Request.Form("Units") & vbnewline Body=Body & "Annual Dollar Volume: " & Request.Form("Volume") & vbnewline Mailer.BodyText= Body if Mailer.SendMail= true then errorlog="" congrats else errorlog="Sorry, there was an error sending your email." end if else show_form end if %> <%sub show_form%> New Page 1
Please complete the form to receive more information about B&K Manufacturing Products.
*Name:
Title:
*Company:
Street:
City:
State:
Zip:
Phone:
Fax:
*Email:
Web Site:
 
Product Interest:
Icings Pie Fillings
Pastry Fillings Cookie Mixes
Glazes (Donuts,Pastry) Sweet Dough Bases /
      Danish Dough Bases
Funnel Cake Bread Mixes
Smears Frappe (Marshmallow)
Candy Centers Meringue (Ready to use)
 
Type Of Business:
Food Service:
Retail Bakery:
Intermediate Wholesale Baker: Yes No
Distributor/Dealer: Yes No
Other:
Are You Able Receive And
Store Frozen Products?		 Yes No
 
Tax ID Number:
Description Of Your Title
Location
Number Of Units Operated
Annual Dollar Volume
* notes required fields
 
B&K Manufacturing
131 Kline Avenue
Callery, PA 16024
877-444-2240
724-538-5200
Fax 724-538-9292
<% end sub%> <%sub congrats%> New Page 1
<%if errorlog <> "" then%> <%=Errorlog%> <%else%> Congratulations, your email was successfully sent! <%end if%>
<%end sub%>