% Dim oTitle ,oText Call GetInfos( 1 ,oTitle ,oText ,oTag ,1 ) 'CurrentMenuArr(0) = "class='current-menu'" %>