<% page = replace(Request("page"), "%20", " ") amazonquery = page %> <% If page = "Introduction" then %> Relationships, Marriage, Kids, Children, and Divorce. What you need to know. <% ElseIF page = "Definitions" then %> Marriage, Divorce, Family Law Legal Terms and Definitions. <% ElseIF page = "In-Laws and Divorce" then %> In-Laws and How They Affect Your Marriage and Children. <% ElseIF page = "Family Law" then %> Family Law - Discussison of the Unfairness of Family Law. <% ElseIF page <> "" then %> <%=page%>: What you need to know <% ElseIF page = "" then %> Marriage Warnings, Parenting Guidance, and Divorce Advice.: Celebrity Divorces and Money <% End If %>

Marriage Warnings, Parenting Guidance, and Divorce Advice.

My nickname is Dr. Dreamer because first, I am a Doctor, and second, I have always dreamt of a wonderful life, where my spouse, and I would enjoy our children and have a great marriage. Even though my original dream is shattered, as a result of a divorce, I am still dreaming.....I would like to share with you a brief introduction of my story. I got married years ago, and my marriage was pretty good for the first 5 years. After that,


"The Yearning and the Reality"

Dr. Dreamer

the relationship between my ex and me started to deteriorate slightly and steadily. However, things were still reasonable between us, and we had our first child. After the birth of our child, my ex changed a lot, negatively so. This affected our relationship further, and life was getting more difficult.After the birth of our second child, things were getting a lot worse between us. This was the beginning of the end.
Topics:
  • All Posts
    • <% ' ------------------------------------------------------------------------------------------------- TOPICS dim myDir myDir = "/labels" sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(Server.MapPath(path)) for each item in folder.Files on error resume next myArr = Split (item.Name,".") myLimit = UBound(myArr) myOldName = "" i = 0 for each items in myArr if i" & myOldName & "
    " & vbCrLf) end if page = Replace(item.Name, " ", "%20") page = Replace(page, ".asp", "") if myArr(myLimit) = "asp" then Response.Write("
  • " & Replace(item.Name, ".asp", "") & "
    • ") End If next end sub ListFolderContents(myDir) %>
    Useful Links:
    Winning Child Custody ParentingTime.net

    Subscribe to
    Posts [Atom]

    Friday, April 13, 2007

    Celebrity Divorces and Money

    Dear Loyal Readers,

    Life gets so hectic sometimes that I did not have the chance to write for the last few days, but here we go.....

    Another interesting, yet very sad, aspect of divorce is GREED!

    Unfortunately, many people are driven by pure greed as opposed to principles or scruples!


    In other words, some people are more interested in how much money they are going to get from a divorce than whether it's fair or reasonable to do that. Let's take a look together at some data that I have garnered (gathered) for you.

    The top 10 celebrity divorces and the settlement amounts are:

    (1) Michael Jordan, and Juanita Vanoy: the divorce settlement is estimated at over $150 million.
    (2) Neil Diamond and Marcia Murphey: the divorce settlement is $150 million.
    (3) Steven Spielberg, and Amy Irving: the divorce settlement is $100 million.
    (4) Harrison Ford, and Melissa Mathison: the divorce settlement is $85 million.
    (5) Kevin Costner, and Cindy Silva: the divorce settlement is $80 million.
    (6) Paul McCartney, and Heather Mills: the divorce settlement is $60 million out of his estimated $700 million.
    (7) James Cameron, and Linda Hamilton: the divorce settlement is estimated at $50 million.
    (8) Michael Douglas, and Diandra Luker: the divorce settlement is estimated at $45 million.
    (9) Lionel Richie, and Diane Richie: the divorce settlement is estimated at $20 million.
    (10) Mick Jagger, and Jerry Hall: the divorce settlement is between $15 million and $20 million.

    Needless to say that these numbers are mind boggling to the rest of us who do not and will probably never make that kind of money! The point at hand here is how some people look at money irrespective of whether they deserve it.

    I am definitely not talking about whether they deserve it according to the law. I am talking about whether they have worked hard to earn this money. In essence, this is money that is handed over to them by law, but they did not really work hard to earn that money.

    Some might argue the point of view that some of these celebrities are mothers, and that they deserve some money for the children. Sure, that's what child support is for, but these settlements, as they appear to be, are alimony or spousal support settlements only!

    Is it really fair for a spouse to claim that she needs tens of thousands of dollars a month for manicures, massages, etc.......?

    I will let you cogitate over that one!

    Until next time, good night everybody!

    Dr. Dreamer

    Labels:

    posted by Dr. Dreamer @ 5:17 PM

    0 Comments:

    Post a Comment

    << Home

    		<% Dim SearchType Dim Query Dim XML Dim ResultLength Dim recordNumber Dim iCount Dim IPAddy Dim SearchEngine Dim Node DIM TITLE DIM URL DIM PRICE DIM IMAGEURL Dim ProductDescription If amazonquery = "" Then amazonquery = "Divorce" ElseIf amazonquery = "Intoduction" Then page = "Divorce" End If amazonquery = Replace(amazonquery, " ", "%20") SearchEngine = "http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&SubscriptionId=1R15PYA4AG277WQYTTR2&Operation=ItemSearch&SearchIndex=Books&Keywords=" & amazonquery & "&ResponseGroup=Request,Small&AssociateTag=productinform-20" Set XML = Server.CreateObject("Microsoft.XMLHTTP") XML.Open "GET", SearchEngine, False XML.Send resultLength = CInt(XML.responseXML.selectNodes("ItemSearchResponse/Items/Item").length) If resultLength > 0 Then %> <% 'For iCount = 0 To CInt(resultLength)-1 For iCount = 0 To 6 on error resume next Set Node = XML.responseXML.selectSingleNode("ItemSearchResponse/Items/Item[" & CInt(iCount)& "]") 'ITEMID = Node.selectSingleNode("ASIN/ItemId").Text TITLE = Node.selectSingleNode("ItemAttributes/Title").Text URL = Node.selectSingleNode("DetailPageURL").Text PRICE = Node.selectSingleNode("ItemAttributes/ListPrice/FormattedPrice").Text IMAGEURL = Node.selectSingleNode("SmallImage/URL").Text DESC = Node.selectSingleNode("EditorialReviews/EditorialReview/Content").Text %> ") 'Response.Write(" " & page_name & " ") 'Response.Write(" " & PRICE & "
    ") 'Response.Write Left(DESC,100) 'Response.Write ("....Read More") %> <% Next Set Node = Nothing Set XML = Nothing %>
    Books:
    <% Response.Write("
    " & TITLE & "
    <% End If %>