% dim fromloc, strHref fromloc = Request.QueryString("fromloc") select case fromloc case "" strHref = "../default.htm" case "prod" strHref = "../produce/produce.htm" end select %>