Dim OrderStr OrderStr = ParamNode.getAttribute("orderstr") : If OrderStr="" Then OrderStr=" SpecialID Desc" OrderStr=Lcase(OrderStr) If trim(OrderStr)="rnd" Then Randomize : OrderStr="Rnd(-(SpecialID+"&Rnd()&"))" ElseIf Lcase(Left(Trim(OrderStr),9))<>"specialid" Then OrderStr=OrderStr &" SpecialID Desc" Else OrderStr=" S.SpecialID Desc" End If