if Not Page.IsPostBack then
  if Not Session("UAID") Is Nothing then
    Dim conPubs As New OdbcConnection( System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString") )
    Dim dtrReader As OdbcDataReader
    Dim strUAID As String = Session("UAID")
    Dim intOnlineFriends As Integer = 0
    Dim cmdSelect As New OdbcCommand( "SELECT b.*, c.*, a.Views, a.MainPic, a.UserName, (SELECT COUNT(CommentID) FROM ProfileComments WHERE ReceiveUserID=? and WasRead=0) As intComments, (SELECT COUNT(MessageID) FROM Messages WHERE ReceiveUserID=? and WasRead=0) As intMessages FROM Users a LEFT JOIN ProfileComments b ON b.ReceiveUserID=a.UserID LEFT JOIN Messages c ON c.ReceiveUserID=a.UserID WHERE a.UserID=? LIMIT 5", conPubs )
    cmdSelect.Parameters.AddWithValue( "?ReceiveUserID", strUAID )
    cmdSelect.Parameters.AddWithValue( "?ReceiveUserID", strUAID )
    cmdSelect.Parameters.AddWithValue( "?UserID", strUAID )
    Dim cmdSelect2 As New OdbcCommand( "SELECT (SELECT COUNT(UserID) As intOnlineFriends FROM Users WHERE Logged=1 AND UserID IN (SELECT FriendID FROM ProfileFriends WHERE UserID=?)) As intOnlineFriends, MainPic, UserID FROM Users WHERE Logged=1 AND UserID IN (SELECT FriendID FROM ProfileFriends WHERE UserID=?) LIMIT 12", conPubs )
    cmdSelect2.Parameters.AddWithValue( "?UserID", strUAID )
    cmdSelect2.Parameters.AddWithValue( "?UserID", strUAID )
    conPubs.Open()
    dtrReader = cmdSelect.ExecuteReader()
    if dtrReader.HasRows then
      while dtrReader.Read()
        ltlUserName.Text = dtrReader("UserName")
        ltlMainPic.Text = "<img src=""/Profiles/" & Session("UAID") & "/" & dtrReader("MainPic") & """ alt="""""" />"
        if dtrReader("intComments") > 0 then ltlComments.Text = dtrReader("intComments") & " New Comments!"
        if dtrReader("intMessages") > 0 then ltlMessages.Text = dtrReader("intMessages") & " New Messages!"
        ltlViews.Text = FormatNumber(dtrReader("Views"),0)
        rpComments.DataSource = dtrReader
        rpComments.DataBind()
        rpMessages.DataSource = dtrReader
        rpMessages.DataBind()
      end while
      dtrReader.Close()
      dtrReader = cmdSelect2.ExecuteReader()
      if dtrReader.HasRows then
        while dtrReader.Read()
          ltlOnlineFriends.Text = dtrReader("intOnlineFriends") & " Friends are Online Now!"
        end while
        dlOnlineFriends.DataSource = dtrReader
        dlOnlineFriends.DataBind()
      end if
    end if
    dtrReader.Close()
    conPubs.Close()
    
    if conPubs.State = ConnectionState.Open then conPubs.Close()    
  else
    response.Redirect("/home.aspx")
  end if
end if