<% ' Get Private Message count for display on Default.asp if strDBType = "access" then strSqL = "SELECT count(M_TO) as [pmcount] " else strSqL = "SELECT count(M_TO) as pmcount " end if strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " Set rsPM = my_Conn.Execute(strSql) pmcount = rsPM("pmcount") ' Get Buddies online count If trim(strDBNTUserName)="" Then ' No user/password so ask user strMessBuddies = "Login to View Online Buddies" Else '### User Logged In So Get Buddies Who Are Online set rsBuddiesOnline = server.CreateObject("ADODB.RecordSet") strSql = "SELECT " & strMemberTablePrefix & "ONLINE.UserID," & strMemberTablePrefix & "MEMBERS.MEMBER_ID" strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE INNER JOIN (" & strMemberTablePrefix & "MEMBERS INNER JOIN " & strMemberTablePrefix & "BUDDYS ON " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strMemberTablePrefix & "BUDDYS.BUDBUDID) ON " & strMemberTablePrefix & "ONLINE.UserID = " & strMemberTablePrefix & "MEMBERS.M_NAME" strSql = strSql & " WHERE " & strMemberTablePrefix & "BUDDYS.BUDMEMBERID=" & getmemberID(strDBNTUserName) rsBuddiesOnline.Open strSQL, my_Conn dim intDisplayBudCount intDisplayBudCount = 0 If rsBuddiesOnline.Eof OR rsBuddiesOnline.Bof Then strMessBuddies = "No Buddies Online" Else do until rsBuddiesOnline.eof ' here we could read the Name in an array and display it in flash intDisplayBudCount = intDisplayBudCount + 1 rsBuddiesOnline.movenext loop strMessBuddies = cstr(intDisplayBudCount) & " Buddies online" End if rsBuddiesOnline.close set rsBuddiesOnline = Nothing End if 'response.write pmcount 'response.write "
" 'response.write strMessBuddies %>