************* NOTE: Code for AC Nielsen ItemFinder (store locator) 9.15.09 http://www.kayem.com/itemfinder/index.htm *************** <% Response.AddHeader "X-XSS-Protection", 0 %> Kayem Foods, Inc.
<% dim v vv = Request("Item") sub WriteItem(k,v) dim selected if trim(k) = trim(vv) then selected = " selected " else selected = "" end if %><% end sub sub WriteBoldItem(k,v) dim selected if trim(k) = trim(vv) then selected = " selected " else selected = "" end if %><% end sub dim wi_idx wi_idx = 1 sub WriteItemRadio(k,v) wi_idx = wi_idx + 1 %>
<% end sub sub OpenList(id) %><% end sub function GetHtml(x) dim fso,f Set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile(Server.MapPath("/ItemFinder/" & x)) GetHtml = f.ReadAll f.close GetHtml = Replace(GetHtml, """/", """http://www.kayem.com/") GetHtml = Replace(GetHtml, """../", """http://www.kayem.com/") GetHtml = Server.HTMLEncode ( GetHtml) end function sub WriteSelectOption(Key, Text, Value) dim selected if trim(Key) = trim(Value) then Selected = " selected " end if %>
Store Locator
"> Please enter Zip Code or City and State of desired location,
and then choose the product category or item to locate:

Radius:
Zip: or   City:
  State:

"> "> ">

Kayem Old Tyme Franks
<% OpenList 1 WriteBoldItem "KMNaturalCasing", "Any Kayem Old Tyme Franks" WriteItem "003077101003", "12oz Kayem Old Tyme Franks (6 links)" WriteItem "003077101042", "12oz Kayem Old Tyme Beef Franks (6 links) " WriteItem "003077101002", "12oz Kayem Old Tyme Reds (6 links) " WriteItem "003077101012", "2.5lb Kayem Old Tyme Franks (About 20 links) " WriteItem "003077101014", "2.5lb Kayem Old Tyme Reds (About 20 links) " WriteItem "003077101090", "5lb Kayem Old Tyme Franks (About 40 links) " %>
<%'WriteItemRadio "KMSkinless", "Kayem Hot Dogs"%>Kayem Hot Dogs
<% OpenList 2 WriteBoldItem "KMSkinless", "Any Kayem Hot Dogs" WriteItem "003077101082", "1lb Kayem Deli Jumbo Hot Dogs (8 links) " WriteItem "003077101083", "1lb Kayem Deli Jumbo Beef Hot Dogs (8 links) " WriteItem "003077101081", "1lb Kayem Deli Beef Hot Dogs (10 links) " WriteItem "003077101080", "1lb Kayem Deli Hot Dogs (10 links) " WriteItem "003077101021", "1.5lb Kayem Skinnies Hot Dogs (12 links) " WriteItem "003077101020", "2lb Kayem Jumbo Hot Dogs (16 links) " WriteItem "003077101018", "3lb Kayem Deli Lower Sodium Hot Dogs (About 24 links)" WriteItem "003077101022", "3lb Kayem Deli Jumbo Hot Dogs (About 24 links) " WriteItem "003077101026", "5lb Kayem Deli Hot Dogs (About 50 links) " WriteItem "003077101031", "5lb Kayem Deli Super Long Hot Dogs (About 35 links)" CloseList %>
<%'WriteItemRadio "KMBrats", "Kayem Brats"%>Kayem Brats
<% OpenList 3 WriteBoldItem "KMBrats", "Any Kayem Brats" WriteItem "003077101231", "20oz Kayem Original Brat (5 links)" WriteItem "003077101233", "20oz Kayem Pale Ale Brat (5 links) " WriteItem "003077101235", "20oz Kayem Cheddar Brat (5 links)" CloseList %>
Kayem Kielbasa
<% OpenList 4 WriteBoldItem "KMKielbasa", "Any Kayem Kielbasa" WriteItem "003077101201", "1lb Kayem Polish Kielbasa" WriteItem "003077101216", "1lb Kayem Old World Kielbasa" CloseList %>
Schonland's Franks
<% OpenList 5 WriteBoldItem "KMNaturalCasing", "Any Schonland's Franks" WriteItem "003077102010", "3lb Kayem Schonland Franks (About 24 links)" CloseList %>
Schonland's Hot Dogs
<% OpenList 6 WriteBoldItem "SchonSkinless", "Any Schonland's Hot Dogs" WriteItem "007449000009", "1lb Schonland Xtra Mild Hot Dogs (10 links)" CloseList %>
McKenzie Franks
<% OpenList 7 WriteBoldItem "McKenzieNaturalcasing", "Any McKenzie Franks" WriteItem "002445209504", "12oz McKenzie Country Classics Hot Dogs (6 links)" WriteItem "002445209503", "3 lb McKenzie Country Classics Hot Dogs (About 24 links)" WriteItem "002445203711", "5 lb McKenzie Country Classics Hot Dogs (About 40 links)" CloseList %>
McKenzie Hot Dogs
<% OpenList 8 WriteBoldItem "McKenzieSkinless", "Any McKenzie Hot Dogs" WriteItem "002445209511", "1lb McKenzie Country Classics Beef Hot Dogs (10 links)" WriteItem "002445209512", "1lb McKenzie Country Classics Hot Dogs (10 links)" CloseList %>
Meisterchef Hot Dogs
<% OpenList 9 WriteBoldItem "MeistrSkinless", "Any Meisterchef Hot Dogs" WriteItem "003077102560", "1lb Meisterchef Hot Dogs (10 links)" WriteItem "003077102564", "1lb Meisterchef Jumbo Hot Dogs (8 links)" WriteItem "003077102562", "2.5lb Meisterchef Xtra Mild Hot Dogs (10 links)" WriteItem "003077102545", "3lb Meisterchef Hot Dogs (About 30 links)" WriteItem "003077102558", "5lb Meisterchef Jumbo Hot Dogs (About 40 links)" WriteItem "003077102559", "5lb Meisterchef Xtra Mild Hot Dogs (About 50 links)" CloseList %>