<% 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.: In-Laws and Divorce <% 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]

    Wednesday, March 21, 2007

    In-Laws and Divorce

    Dear Loyal Readers,

    I hope that everyone has had a good day!

    Here is a subject that is probably long overdue for me to discuss!

    The impact of "In-laws" is horrendous on a relationship, be it a boyfriend-girlfriend relationship or a marriage. If the In-laws are positive people, they may play a very nice role in bringing the couple together when they have problems or differences. On the other hand, if the In-laws are negative people, they may very well play a major role in bringing about the debacle (downfall) of the couple. Such was my experience with my ex.

    Unfortunately, my ex's family are not only very negative people, but also very mean!
    Needless to say that this did not help at all when my ex and I started to have our differences. Sadly, my ex's in-laws are such unreasonable people that they never thought of our children and what's in their best interest! I believe that this, in and of itself, speaks of the types of people they are.

    This is not to relieve my ex from the lion's share of selfishness and mistakes! In fact, in listening to one's family members, one has already made a decision to "go" with what they are going to say to a certain degree. All parties involved, starting with the parents of the children, and all in-laws should understand that the well being of the children is of utmost importance, and that there is no room for vendettas in case of divorces.

    I will add to these thoughts next time.....

    Have a great night!

    Dr. Dreamer

    Labels:

    posted by Dr. Dreamer @ 3:21 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 %>