<% if isArray(arrOnlineBuddy) then Dim iBuddy, budSeparator,maxShortMsg:maxShortMsg = Application(dbName&"maxShortMsg") for iBuddy = 0 to ubound(arrOnlineBuddy,2) %> <% next end if %> <%= pmbuddyList %> > <%= HTMLEncode(""&arrOnlineBuddy(1,iBuddy)) %> <% budSeparator = false %> <% if maxShortMsg<>0 and ((arrOnlineBuddy(4,iBuddy) = 1 and arrOnlineBuddy(5,iBuddy) = 1) or isAdmin) then %> <% budSeparator = true %> <% end if %> <% if arrOnlineBuddy(2,iBuddy) = 0 and not isAdmin then %> <% else %> <% if budSeparator then response.write("|") %> <% if allowmail <>"NoMail" then %> " align="absmiddle"> <% else %> " align="absmiddle"> <% end if %> <% end if %>