<% page = Request("page") amazonquery = page %> <% If page = "Introduction" then %> Relationships, Marriage, Kids, Children, and Divorce. What you need to know. <% ElseIF page = "Definitions" then %> Legal Terms and Definitions for marriage & divorce. <% ElseIF page <> "" then %> <%=page%>: What you need to know <% ElseIF page = "" then %> Marriage Warnings, Parenting Guidance, and Divorce Advice.: A Single Mom: Relationship Warnings Part(1) <% 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


    Subscribe to
    Posts [Atom]

    Thursday, February 22, 2007

    A Single Mom: Relationship Warnings Part(1)

    Dear Loyal Readers,

    Tonight, I would like to talk to you about a friend of mine who is undergoing a very difficult time. She was involved in a relationship with somebody for sometime before discovering that she was pregnant.

    At first, her boyfriend was very excited and was following up on the pregnancy. Unfortunately, this did not last for too long. As it turned out, he was going out, supposedly just for lunch, with his ex girlfriend. Sadly enough, he went back to his former girlfriend and left his pregnant girlfriend all alone! She later on had a baby boy!

    Now, how fair is that? and how smart is that?

    Needless to say that this is totally unfair to my friend who did not deserve this at all. In addition, he made the biggest mistake of his life, as he is giving up on the most precious person in his life, his son, in order to be back with his former girlfriend.

    People need to understand that their child, from the day she or he is born, shall be the most important person in their life henceforth. Your child is part of you and you of her or him. These two parts shall be eternally inseparable!

    My friend "A" is a full-time mom, a full-time employee, and a full-time student! she is strong and a true grit!

    More on "A" next time!

    I bid you a good night!

    Dr. Dreamer

    Labels: ,

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