<% keywords_cats = "Downingtown, flower,shop,florist,bouquets,arrangement,floral,roses,gift,wine,cheese,basket,delivery" keywords_regions = keywords_regions + ",Chester County, Exton, Malvern, Coatesville, West Chester, Coatesville" keywords_regions = keywords_regions + "Malvern, Chester Springs, Glenmoore, Parkesburg, Eagle, Honey Brook" keywords = keywords_cats + keywords_regions if request("occ")<>"" then if instr(keywords_cats, request("occ"))=0 then keywords = request("occ") & "," & keywords_cats end if end if If isObject(GetOccasion)=TRUE then if request("category")<>"" then keywords = GetOccasion.Fields.Item("Name").Value & keywords_regions end if end if %>