See products from:

<% Set dbccConnection = Server.CreateObject("ADODB.Connection") dbccConnection.Open "eis_promos" select case request.form("GetMfr") case "3M" SQLQuery = "Select * from promolinks where mfrid='3M' order by ITEMNO" pagetitle= "Products with special promotions from 3M." case "POSTIT" SQLQuery = "Select * from promolinks where mfrid='POSTIT' order by ITEMNO" pagetitle= "Products with special promotions from Post-It." case "SCOTCH" SQLQuery = "Select * from promolinks where mfrid='SCOTCH' order by ITEMNO" pagetitle= "Products with special promotions from Scotch Brand." case "ALL" SQLQuery = "Select * from promolinks order by ITEMNO" pagetitle= "All Products with special promotions." case else mfr = request.form("GetMfr") SQLQuery = "Select * from promolinks where mfrid='" & mfr & "' order by ITEMNO" pagetitle= "Products with special promotions." end select Set rsPromo = dbccConnection.Execute(SQLQuery) if not rsPromo.EOF then response.write "

" & pagetitle & "

" response.write "" do while not rsPromo.EOF description = "" & finddescription(rsPromo("Itemno")) & "" picture = find_a_thumb(rsPromo("itemno")) picture = "" & rsPromo("OfferText") & "" work1 = "" work2 = "" rsPromo.MoveNext if not rsPromo.EOF then description = "" & finddescription(rsPromo("Itemno")) & "" picture = find_a_thumb(rsPromo("itemno")) picture = "" & rsPromo("OfferText") & "" work3 = "" work4 = "" rsPromo.MoveNext else work3 = " " work4 = " " end if response.write "" response.write work1 response.write work2 response.write work3 response.write work4 response.write "" loop Set rsPromo = nothing Set dbccConnection = nothing response.write "
" & picture & "" & rsPromo("Itemno") & "
" & description work2= work2 & "		" & picture & "" & rsPromo("Itemno") & "
" & description work4= work4 & "
" end if %>

<%= work22 %>