<% dim inCategories inCategories = Request.QueryString("categories") dim newCategories dim categories categories=Split(inCategories,"|") For Each item In categories newCategories = newCategories & ";category=" & Server.URLEncode(item) Next %>